AIUTO!! Rapidamente se possibile… Copiare le file dai manuali e dalla colla multipli in uno strato sommario - Problemi e soluzioni alle problematiche legate a Software

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

consoSheets secondari ()
Sht fioco come manuale, più shtDest come manuale, lastRow come lungamente
application.ScreenUpdating = falso
Più shtDest stabilito = ActiveWorkbook.Sheets (“la stima dettaglia„)

Per ogni sht in ActiveWorkbook.Worksheets
    Se di destra (disposizione (sht. Nome), 8) = “stima„ ed andato (disposizione (sht. Nome), 7) <> “sommario„ allora
        
        lastRow = sht. Cellule (sht. Rows.Count, 2).End (xlUp). Fila
        
        Se lastRow > 2 allora
            sht.range (“B3: V„ & lastRow). Copia
            lastRow = shtDest.Cells (sht. Rows.Count, 2).End (xlUp). Fila
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Colla di contrappeso (1, 0) .PasteSpecial: =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Colla di contrappeso (1, 0) .PasteSpecial: =xlPasteFormats
        Concluder se
        
    Concluder se
Sht seguente
application.ScreenUpdating = allineano
Sommergibile dell'estremità

Questione : AIUTO!! Rapidamente se possibile… Copiare le file dai manuali e dalla colla multipli in uno strato sommario

Risposta : AIUTO!! Rapidamente se possibile… Copiare le file dai manuali e dalla colla multipli in uno strato sommario