calvuch

calvuch

las fallas constantes de esta web me cansaron!! me voy a www.ayudaexcel.com/foro
 175K puntos  Chile @calvuch desde - visto
Preguntar

Respuestas

Respuesta en a

Crear Usuario y contraseña en controles activex

Tengo un ejemplo que tal vez puedas adaptar, consiste en que al solicitar la apertura del libro se pide usuario y contraseña, mediante un par de inputbox estas cadenas se unen en una sola cadena, la cual se compara mediante los registros de un...
Respuesta en a

Macro nombrar hojas

Inserta un modulo en tu proyecto y en el pones este macro: Sub renombrar_hoja() Dim i As Long Dim h As Long h = 2 Application.ScreenUpdating = False For i = 1 To ThisWorkbook.Sheets.Count If Range("A" & h).Text = Empty Then MsgBox "No se puede...

Duda sobre macro para colorear un rango de filas

tu codigo no esta mal solo debes hacer un pequeño cambio reemplaza la linea Target.EntireRow.Interior.ColorIndex = 3 por esto: Target.Range(Target.Address, "D" & Target.Row).Interior.ColorIndex = 3 bye
Respuesta en a

Extraer tres primeros números de una celda

Utiliza la función extrae() En la celda que necesitas el resultado pones =EXTRAE(A1;1;3) Así extraerá desde la celda a1 los 3 primeros dígitos de la cadena
Respuesta en a

Como extraer la hora de un formato de fecha y hora

Utiliza esto: En la celda en que necesitas el resultado escribes: =EXTRAE(A1;LARGO(A1)-12;LARGO(A1)-12) Suponemos que el dato esta en celda A1 Bye
Respuesta en a

Desocultar Ventana Excel basandose en un celda

En libro "madre" ( para mi "Libro1") en ele ventó Workbook_BeforeClose del objeto ThisWorkbook pones esta llamada: Cerrar Y en algún modulo de tu hoja madre pones este sub Sub cerrar() If Hoja1.Cells(1, 1) = 1 Then Windows("Libro2.xls").Visible =...
Respuesta en a

Formato textbox

Prueba esto en tu useform Option Explicit Private Sub TextBox1_Change() If Len(Trim(TextBox1)) = 0 Then TextBox2 = "" TextBox2.Enabled = False Else TextBox2.Enabled = True End If End Sub Private Sub TextBox2_Change() If Len(Trim(TextBox2)) = 0 Then...

Eliminar filas

Prueba esta macro Sub Elimina_Filas_vacias() Dim c As Long Dim f As Long 'x calvuch Application.ScreenUpdating = False [a1].Select Selection.End(xlDown).Select Cells(Selection.Row + 1, 1).Select f = Selection.Row [a65536].Select...
Respuesta en a

Añadir una serie de datos a una columna ya copiada

Veamos si los datos van desde la celda A1 hasta la A15000 entonces en B1 pon el numero 1 y en B2 pon esto: =SI(A2=A1;B1+1;1) Luego copias esta función hacia abajo y listo
Respuesta en a

Macro para encontrar parte de un texto en una celda

Para eso utilizar el filtro "filtros de texto", opcio "contiene" allí le pones el texto "Sin acusar falla" y te filtrara solo los que contienene ese rotulo. Estoy a lo hace excel no es necesario macro

Suscríbete RSS