Question : Obtenir toutes les feuilles row2 jusqu'à ce que de fin de données à une feuille. Un après l'autre.

Bonjour, le

Get toutes les feuilles row2 labourent de fin de données à une feuille. On après que les other.

On chacun courent clairement la feuille et obtiennent un nouveau set

Row 1 soient des en-têtes et moi ne les veulent pas que la feuille du copied

One devrait être exclue son nom est le

Can n'importe qui de « pleine liste " aide avec ce macro.

Regards
Sharath
class= de

Réponse : Obtenir toutes les feuilles row2 jusqu'à ce que de fin de données à une feuille. Un après l'autre.

Sharath,

J'ai changé le macro pour le faciliter pour ajouter des noms de feuille de travail pour exclure - voir ci-dessous. Elle est dans le dossier joint.

Patrick

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

Unificateur secondaire () Le faible WS comme feuille de travail Faible rng comme gamme Pour le chaque WS en feuilles de travail Choisir le cas LCase (WS. Nom) Le cas est = « sheet4 », « pleine liste » 'ajoutent d'autres noms de feuille de travail en minuscules sur cette ligne Cas autrement Placer le rng = le WS. Gamme (WS. Cellules (2, « A »), WS. Cellules (WS. Rows.Count, « A »). Extrémité (xlUp). Excentrage (0, 10)) Avec les feuilles (« Sheet4 ») rng. Copie. Cellules (. Rows.Count, « A »). Extrémité (xlUp). Excentrage (1, 0) Extrémité avec Extrémité choisie Le prochain WS Sous-marin d'extrémité