Frage : Alle Blätter row2 erhalten, bis Dateiende zu einem Blatt. Einer nach dem anderen.

Hallo, bebauen

Get alle Blätter row2 Dateiende zu einem Blatt. Ein, nachdem die other.

On jedes klar das Blatt laufen lassen und ein neues set

Row 1 ist Überschriften erhalten und ich wünschen, die sie nicht, copied

One sollte Blatt ausgeschlossen werden sein Name ist „volle Liste "

Can jedermann Hilfe bei diesem macro.

Regards
Sharath

Antwort : Alle Blätter row2 erhalten, bis Dateiende zu einem Blatt. Einer nach dem anderen.

Sharath,

Ich geändert das Makro, um es einfacher zu bilden, Arbeitsblattnamen zu addieren, um auszuschließen - unten sehen. Es ist in der angebrachten Akte.

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

Vorkonsolidator ()
Schwaches WS als Arbeitsblatt
Schwaches rng als Strecke

Für jedes WS in den Arbeitsblättern
    Fall LCase vorwählen (WS. Name)
        Fall ist = „sheet4“, „volle Liste“ 'hinzufügen andere Arbeitsblattnamen in Kleinschreibung auf dieser Linie
        Fall sonst
            Rng = WS einstellen. Strecke (WS. Zellen (2, „A“), WS. Zellen (WS. Rows.Count, „A“). Ende (xlUp). Versatz (0, 10))
            Mit Blättern („Sheet4“)
                rng. Kopie. Zellen (. Rows.Count, „A“). Ende (xlUp). Versatz (1, 0)
            Ende mit
    Ende auserwählt
Folgendes WS

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us