Tengo un libro con 15 hojas de datos y 1 inicial donde quiero hacer un resumen. Necesito copiar todas las filas de las 15 hojas que contengan datos a la primera hoja llamanda RESUMEN. He buscado en el foro y la red y he encontrado una macro que lo hace pero necesito que me copie desde el rango A2 hasta la K2 todas las filas que tengas datos, esdeir que cuando en la columna A encuentre una celda en blanco para de opiar. Os dejo la macro
Hola de nuevo,
Tengo un libro con 15 hojas de datos y 1 inicial donde quiero hacer un resumen. Necesito copiar todas las filas de las 15 hojas que contengan datos a la primera hoja llamanda RESUMEN. He buscado en el foro y la red y he encontrado una macro que lo hace pero necesito que me copie desde el rango A2 hasta la K2 todas las filas que tengas datos, esdeir que cuando en la columna A encuentre una celda en blanco para de opiar. Os dejo la macro
Sub ejemplo()
'por luismondelo
'Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
'ActiveSheet.Name = "RESUMEN"
For Each Hoja In ActiveWorkbook.Sheets
If Hoja.Name <> "RESUMEN" Then
Hoja.Range("A2:K" & Hoja.Range("A65536").End(xlUp).Row).Copy
Sheets("RESUMEN").Range("A65536").End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlValues
End If
Next
End Sub
Gracias y saludos.