Frage : HILFE!!  Schnell, wenn möglich… Reihen von den mehrfachen Arbeitsblättern und von der Paste in ein zusammenfassendes Blatt kopieren

HILFE!
Simple Makro…

If dort ist- Daten in der Anmerkungsspalte (b) in irgendwelchen/in einigem/in allen folgenden Blättern: Demo-Schätzung, fabrizieren Schätzung, aufgerichtete, Druck-Schätzung und Rohr-Stützschätzung, dann möchte ich die gesamten Reihen in die Experten der Schätzungs-Detail-kopieren worksheet.

Thanks!

File ist attached.
Attachments:
TEST-SON.xls (512 KBS)  (Akten-Art Details)  
Angebrachtes file

Antwort : HILFE!!  Schnell, wenn möglich… Reihen von den mehrfachen Arbeitsblättern und von der Paste in ein zusammenfassendes Blatt kopieren

Ist hier ein Update, zum der Formeln zu entfernen, die ich nicht zuerst gesehen hatte.

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

VorconsoSheets ()
Schwaches sht als Arbeitsblatt, shtDest als Arbeitsblatt, lastRow als lang
application.ScreenUpdating = falsch
Gesetztes shtDest = ActiveWorkbook.Sheets („Schätzung führt“) einzeln auf

Für jedes sht in ActiveWorkbook.Worksheets
    Wenn recht (Ordnung (sht. Name), 8) = „Schätzung“ und verlassen (Ordnung (sht. Name), 7) <> „Zusammenfassung“ dann
        
        lastRow = sht. Zellen (sht. Rows.Count, 2).End (xlUp). Reihe
        
        Wenn lastRow > 2 dann
            sht.range („B3: V“ u. lastRow). Kopie
            lastRow = shtDest.Cells (sht. Rows.Count, 2).End (xlUp). Reihe
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Paste des Versatz-(1, 0) .PasteSpecial: =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Paste des Versatz-(1, 0) .PasteSpecial: =xlPasteFormats
        Beenden wenn
        
    Beenden wenn
Folgendes sht
application.ScreenUpdating = richten aus
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us