Copiar una fila de todas las hojas en una hoja resumen
Estimados, me ayudan con una macro que copie la fila 20 de todas las hojas, las filas las tiene que poner en la hoja Resumen y siempre debe empezar en la fila 2.
Gracias por el tiempo que se toman.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cada que ejecutes la macro, se limpiará al hoja "Resumen" y pondrá las filas nuevas.
Sub Resumen()
'Por.Dante Amor
Set h1 = Sheets("Resumen")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If u = 1 Then u = 2
h1.Range("A2:A" & u).EntireRow.ClearContents
j = 2
For Each h In Sheets
If h.Name <> h1.Name Then
h.Rows(20).Copy h1.Rows(j)
j = j + 1
End If
Next
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
