Vraag : HULP!!  Indien snel mogelijk… De rijen van het exemplaar van veelvoudige aantekenvellen en deeg in een summier blad

HULP!
Simple Macro…

If er is gegeven in de kolom van Commentaren (b) in om het even welk/wat/alle volgende bladen: Raming van de manifestatie, vervaardigt Raming, de Rechte, Raming van de Druk, en de Raming van de Steun van de Pijp, dan zou ik de volledige rij in de Deskundigen/>
Thanks willen kopiëren van de Details worksheet.

File is attached.
Attachments:
van
TEST-SON.xls (512 KB)  (de Details van het Type van Dossier)  
File
in bijlage

Antwoord : HULP!!  Indien snel mogelijk… De rijen van het exemplaar van veelvoudige aantekenvellen en deeg in een summier blad

Hier is een update om de formules te verwijderen die ik niet eerst had gezien.

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

Sub consoSheets ()
Schemerige sht als Aantekenvel, het meest shtDest als Aantekenvel, lastRow zoals lang
application.ScreenUpdating = Vals
Vastgestelde het meest shtDest = ActiveWorkbook.Sheets (de „Details van de Raming“)

Voor Elke sht in ActiveWorkbook.Worksheets
    Als Juist (Versiering (sht. Naam), 8) = „Raming“ en links (Versiering (sht. Naam), 7) <> „Samenvatting“ toen
        
        lastRow = sht. Cellen (sht. Rows.Count, 2). Eind (xlUp). Rij
        
        Als lastRow > 2 toen
            sht.range („B3: V“ & lastRow). Exemplaar
            lastRow = shtDest.Cells (sht. Rows.Count, 2). Eind (xlUp). Rij
            shtDest.Cells (shtDest.Rows.Count, 1). Eind (xlUp). Van de compensatie (1, 0) het Deeg .PasteSpecial: =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1). Eind (xlUp). Van de compensatie (1, 0) het Deeg .PasteSpecial: =xlPasteFormats
        Eind als
        
    Eind als
Volgende sht
application.ScreenUpdating = Waar
Sub van het eind
Andere oplossingen  
 
programming4us programming4us