Actividad pública reciente
Ha valorado "Excelente" la respuesta
Juntar 500 hojas con filas ocultas y filtros activos, en una sola
Si duplicas posts, haz referencia al primero: Juntar 500 hojas de Excel en 1 sola
Ha valorado "Excelente" la respuesta
Juntar 500 hojas de Excel en 1 sola
Prueba este código: Sub resumen() Dim wks As Worksheet Set h = Sheets("resumen") i = 1 j = 1 For Each wks In ActiveWorkbook.Worksheets Sheets(j).Select If wks.Name <> h.Name Then Range("A1:F188").Copy (h.Cells(i, 1)) i = i + 188 j = j + 1 Else Exit...