Elsa Matilde

Tengo un par de ejemplos de macros para comparar rangos. Podés descargarlos de la sección Ejemplos de mi sitio. En el índice de temas son los 3 últimos. Si luego necesitas ayuda para adaptar alguno de éstos a tu caso enviame tu libro con la macro...

Te acerco una macro para esto... quizás necesita aún algún ajuste. Lo que hace es presentarte el explorador para que ubiques la carpeta que necesitas capturar. Luego abre cada libro Excel pasando cada una de sus hojas tengan o no datos, en hojas...

Si tu idea es utilizar un mismo botón para las 2 acciones (mostrar u ocultar), la macro sería esta sola: Sub Mostrar_OcultarFilas() 'x Elsamatilde If Range("B10").EntireRow.Hidden = True Then Range("b10:b160").EntireRow.Hidden = False Else...

La macro debes colocarla en el objeto HOJA donde vayas a controlar la celda A1. Si la hoja tiene clave debes agregarla en las 2 líneas (Unprotect y Protect). Por ej. ActiveSheet.Unprotect ("mi_clave") Private Sub Worksheet_Change(ByVal Target As...

El primer mensaje aparece generalmente cuando se está en un bucle del que no sale... o cuando intenta encontrar la primer celda vacía (con xlDown) y la hoja está aún vacía. El segundo es claro: intentas copiar un rango mal definido (revisa nombre de...

Si la macro no falla, es que falla la fórmula y eso debes revisar. Si la macro coloca la fórmula en una celda podrás hacer el seguimiento seleccionando esa celda y desde menú Fórmulas, Evaluar fórmula, ir viendo los valores que toma cada argumento....

Miro tu historial y veo que esta es tu primer consulta ... por lo tanto no comprendo el significado de tu comentario inicial... no se de qué estamos hablando. Enviame imagen del formato que mencionas porque no recuerdo tener algo desarrollado con ese...

Solo necesitas recorrer la tabla con algún tipo de bucle como por ejemplo: [B20].Select '1er celda de la tabla While ActiveCell <> "" 'el bucle se ejecutará mientras haya datos en la col B 'pasas cada campo a tu hoja destino sheets("Datos").Range("G"...

Pareciera que recorres la col G desde el final hasta la fila 146. Pero en ninguna línea seleccionas alguna celda. Entonces en lugar de evaluar 'ActiveCell' debes evaluar el rango G For i = fin To 146 step -1 If Not IsEmpty Range("G" & i) Then...

1 - Para borrar archivos de una carpeta. Debes indicar la ruta de tu Carpeta Destino Sub EliminaArchivos() 'x Elsamatilde 'se establece la carpeta donde se ubican los pdf Dire = "C:\Users\......." 'aquí la ruta de la carpeta destino 'se crea la...