Vraag : Krijg alle bladen row2 tot eind van gegevens aan één blad. na andere.

Hallo,

Get alle bladen row2 tot eind van gegevens aan één blad. na other.

On elke in werking gestelde duidelijk het blad en krijgt een nieuwe set

Row 1 is kopballen en ik wil hen niet copied

One- blad zou moeten worden uitgesloten zijn naam „Volledige Lijst "

Can iedereen hulp met dit macro.

Regards
Sharath
 is

Antwoord : Krijg alle bladen row2 tot eind van gegevens aan één blad. na andere.

Sharath,

Ik heb de macro veranderd om het gemakkelijker te maken om uit te sluiten aantekenvelnamen toe te voegen - zie verder. Het is in het dossier in bijlage.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub consolidator ()
Schemerige ws als Aantekenvel
Schemerige rng als Waaier

Voor Elke ws in Aantekenvellen
    Selecteer Geval LCase (ws. Naam)
        Het geval is = „sheet4“, de „volledige lijst“ 'voegt andere aantekenvelnamen in in kleine letters op deze lijn toe
        Geval anders
            Reeks rng = ws. Waaier (ws. Cellen (2, „A“), ws. Cellen (ws. Rows.Count, „A“). Eind (xlUp). Compensatie (0, 10))
            Met Bladen („Sheet4“)
                rng. Exemplaar. Cellen (. Rows.Count, „A“). Eind (xlUp). Compensatie (1, 0)
            Eind met
    Uitgezocht eind
Volgende ws

Sub van het eind
Andere oplossingen  
 
programming4us programming4us