Macro para copiar un rango de datos de todas las hojas de un libro de Excel a una hoja concreta
¿Qué código debería usar para pegar un rango de datos igual len todas las hojas de un libro de excel a una hoja concreta?
1 respuesta
H o l a:
Te anexo la macro, tienes que poner el nombre de la hoja destino, la fila inicial y la columna inicial en donde se pegarán los datos y el rango a copiar.
Yo puse estos ejemplos, pero tienes que poner tus datos
Set h1 = Sheets("Hoja1") 'hoja destino
rango = "A4:B6" 'rango de datos
fil = 2 'fila inicial para pegar los datos
col = "A" 'columna inicial para pegar los datos
Sub CopiarRango()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1") 'hoja destino
rango = "A4:B6" 'rango de datos
fil = 2 'fila inicial para pegar los datos
col = "A" 'columna inicial para pegar los datos
'
For Each h In Sheets
If h.Name <> h1.Name Then
Set r = h.Range(rango)
r.Copy
h1.Cells(fil, col).PasteSpecial xlValues
fil = fil + r.Rows.Count
End If
Next
Application.ScreenUpdating = True
MsgBox "fin"
End Sub
¡Gracias!
Muchas gracias Dante, me funciona perfectamente pero si una columna de datos está vacía, habría alguna manera de omitir esa columna en el momento de pegar los datos???
Con mucho gusto te ayudo con todas tus peticiones.
Crea una nueva pregunta en el tema de microsoft excel, en el desarrollo de la pregunta escribe: "para Dante Amor"
