Pasar el contenido de varias hojas de excel a una sola

 

Si por algún motivo has necesitado pasar el contenido de varias hojas de excel a una sola sabrás lo tedioso que resulta realizar dicha tarea. Pues bien, a continuación transcribo el macro el macro que me encontré en internet y que me ayudó a realizar dicha tarea en cuestión de segundos!


Macro:
"

Sub pasar_datos()
Dim i as Integer

For i = 2 To Sheets.Count

Sheets(i).Select 'Selecciona la hoja a copiar
Range("A1:M500").Copy 'Selecciona el rango a copiar
Sheets(1).Select 'Selecciona la primera hoja
Cells(i * 500 + 1, 1).Select 'Hace un despazamiento vertical para evitar que los datos se sobre escriban
ActiveCell.PasteSpecial 'Se pegan los datos

Next i

End Sub
"


Lo unico que necesitas es crear una hoja nueva y ejecutar el macro (Alt + F8).

Descarga el archivo en el siguiente link:

Descargar