¡AYUDA!! Rápidamente si es posible… Copiar las filas de las hojas de trabajo y de la goma múltiples en una hoja sumaria - Problemas y soluciones a los problemas relacionados con Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

consoSheets secundarios ()
Sht dévil como hoja de trabajo, más shtDest como hoja de trabajo, lastRow como de largo
application.ScreenUpdating = falso
La más shtDest determinado = ActiveWorkbook.Sheets (la “estimación detalla”)

Para cada sht en ActiveWorkbook.Worksheets
    Si es derecho (ajuste (sht. Nombre), 8) = “estimación” e ido (ajuste (sht. Nombre), 7) <> “resumen” entonces
        
        lastRow = sht. Células (sht. Rows.Count, 2).End (xlUp). Fila
        
        Si lastRow > 2 entonces
            sht.range (“B3: V” y lastRow). Copia
            lastRow = shtDest.Cells (sht. Rows.Count, 2).End (xlUp). Fila
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Goma de la compensación (1, 0) .PasteSpecial: =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Goma de la compensación (1, 0) .PasteSpecial: =xlPasteFormats
        Terminar si
        
    Terminar si
Sht siguiente
application.ScreenUpdating = verdad
Submarino del extremo

Cuestión : ¡AYUDA!! Rápidamente si es posible… Copiar las filas de las hojas de trabajo y de la goma múltiples en una hoja sumaria

Respuesta : ¡AYUDA!! Rápidamente si es posible… Copiar las filas de las hojas de trabajo y de la goma múltiples en una hoja sumaria