Respuesta
en
Microsoft Excel
y en 2 temas más
a
Código de VBA para un Listbox con más de 10 columnas
Revisa los siguientes enlaces, ahí explico cómo agregar más columnas Codigo VBA para un Listbox con mas de 10 columnas Tengo un Listbox con 20 columnas pero sólo me muestra 10 ['.Recuerda votar las respuestas y regresar a valorar. Avísame si tienes...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como hacer una búsqueda usando como referencia filas y Columnas
Te anexo el código para buscar y enviar Private Sub cmdenv_Click() 'Por Dante Amor 'Buscar y enviar ' Set h1 = Sheets("MEMORIAS ACTO") 'hoja origen Set h2 = Sheets("EMPALMES2") 'hoja destino h2.Range("A15:E28").ClearContents ' If cbxsum.Value = "" Or...
Respuesta
en
VBA
y en 3 temas más
a
Tiempo de espera ejecución de código vba
Prueba de esta forma: Private Sub Workbook_Open() ActiveWorkbook. RefreshAll DoEvents Application. Wait (Now + TimeValue("00:00:01")) DoEvents Módulo2. ColoresIconos Módulo3. ExportarIconos End Sub '.[Sal u dos. Dante Amor. No olvides valorar la...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como ocultar filas según criterio
Te anexo la macro Sub ocultar_filas() Cells.Rows.Hidden = False For i = 7 To Range("N" & Rows.Count).End(xlUp).Row If Cells(i, "N").Value = 0 Or Cells(i, "N").Value = "-" Then Rows(i).Hidden = True End If Next MsgBox "Fin" End Sub'.[Sal u dos. Dante...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como realizar un case en vba de selección de hojas
Te anexo un ejemplo Sub Copiar_Registros() Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row hoja = LCase(h1.Cells(i, "D").Value) Select Case hoja Case "archivo1": Set h2 =...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como usar la Función "Fórmula R1C1"
¿Pero qué quieres sumar? ¿Y para qué el contador? ¿Y por qué lo haces de abajo hacia arriba?
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Comparar datos entre hojas de Excel mediante Macros
Te anexo la macro Sub Buscar_Dato() 'Por Dante Amor Set h1 = Sheets("RED ALDO") Set h2 = Sheets("Items") ' For i = 2 To h1.Range("R" & Rows.Count).End(xlUp).Row Set b = h2.Columns("C").Find(h1.Cells(i, "R"), lookat:=xlWhole) If Not b Is Nothing Then...
Respuesta
en
VBA
y en 1 temas más
a
Cómo copiar y crear nuevas filas según criterio
Te anexo la macro. Antes de ejecutar la macro debes cambiar estos datos: Set h1 = Sheets("Hoja5") 'hoja origen Set h2 = Sheets("Hoja6") 'hoja destino col = "C" 'columna de letras fila = 2 'fila inicial donde empiezan las letras Cambia "Hoja5 " por el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Apoyo con Macro en Excel VBA
Te anexo la macro. Los encabezados de tu hoja deberán estar en la fila 1. Cambia en la macro "datos" por la información que quieres llenar. Sub Filtrar_Rellenar() 'Por Dante Amor ' If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Extraer metadatos de archivos y colocarlos en excel con VBA
Te anexo la macro. Cuando ejecutes la macro selecciona la carpeta inicial, la macro obtendrá los archivos de la carpeta inicial y también los archivos de cada subcarpeta contenida dentro la carpeta inicial. Copia la macro en un módulo, observa que la...