Extraer datos de varias hojas y consolidarlas en un nuevo libro
Deseo extraer información de celdas B27:L40 de diferentes hojas (375) y copiar dicha información a una nueva hoja de calculo excel generando de esta forma un reporte. Cabe recalcar que todas las hojas tienen el mismo formato, si es posible no considerar celdas vacías seria excelente
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para consolidar en un nuevo libro
Sub Resumen()
'Por Dante Amor
Application.ScreenUpdating = False
Application.StatusBar = False
Set l1 = ThisWorkbook
Set l2 = Workbooks.Add
Set h2 = l2.Sheets(1)
n = 1
For Each h1 In l1.Sheets
Application.StatusBar = "Copiando datos de la hoja " & n & " de " & Sheets.Count
u1 = h1.Range("B" & Rows.Count).End(xlUp).Row
If u1 > 26 Then
h1.Range("B27:L" & u1).Copy
u2 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Range("B" & u2).PasteSpecial xlValues
End If
n = n + 1
Next
l2.Activate
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Fin"
End Sub.
.
