Respuesta
en
Microsoft Excel
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
Microsoft Excel
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...
Respuesta
en
Microsoft Excel
a
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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
Microsoft Excel
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...
Respuesta
en
Microsoft Excel
a
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
Microsoft Excel
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
Microsoft Excel
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