Jairo Martínez

¿La segunda vez que lo haces es con una hoja diferente? ¿La cuál no se llama ok? ¿Al momento de fallar la macro te salta algún error en tiempo de ejecución? ¿Si es así cuál es?

Intenta de esta manera, si te marca error me dices en qué línea y cual es el error. Sub Consolidar() Dim h As Long Dim ultima As Integer Dim Origen, destino As Workbook Dim HOrigen, HDestino As Worksheet Dim ruta As String ruta = ("C:\Users\lina...

Intenta con un bucle, debajo de tu código donde selecciona el rango pon esto: For each cell in selection Range("AC6").value = Range("AC6").value + cell.value

No es exactamente lo que buscabas pero te puede servir. Sub filtro() 'criterios ejemplos Criterio1 = "hola" Criterio2 = "estoy" Criterio3 = "alla" 'seleccionar el rango que se desea es más fácil y más rápido que en toda la hoja For Each cell In...

Añade el siguiente código en el evento que más te convenga, puede ser en el evento open del workbook: Sub CreaArch() Dim fsys As New Scripting.FileSystemObject Dim ini As Object Set fsys = CreateObject("Scripting.FileSystemObject") Set ini =...

James Bond respondió: intenta esta correccion en las lineas, usas on error resume next para saltar error y continuar la macro y on error goto 0 para poner Err.number=0 de lo contrario se queda en la memoria el 1004. Set tabla =...