19 agosto, 2015

Pasar el contenido de varias hojas de excel a una sola

https://upload.wikimedia.org/wikipedia/commons/thumb/8/86/Microsoft_Excel_2013_logo.svg/2000px-Microsoft_Excel_2013_logo.svg.png 




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

 

Publicaciones relacionadas

Pasar el contenido de varias hojas de excel a una sola
4 / 5
Oleh

Suscríbete al blog

Ingresa tu dirección de email para recibir en tu correo las nuevas publicaciones.