Fråga : Få alla täcker kassalådan row2 avslutar av data till en täcker. En efter annat.

Hi

Get som allt täcker kassalådan row2, avslutar av data till en täcker. En efter other.
On varje som fri körs täcka och, får en ny set

Row 1 är titelrader, och jag önskar som inte dem, copied

One täcker bör vara utesluten dess känt är ”listar mycket "

Can någon hjälp med denna macro.

Regards
Sharath
 " klar "

Svar : Få alla täcker kassalådan row2 avslutar av data till en täcker. En efter annat.

Sharath,

Jag har ändrat makroen för att göra den lättare att tillfoga arbetssedeln namnger för att utesluta - se nedanfört. Den är i fäst sparar.

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

Underconsolidator ()
Dunkel ws som arbetssedeln
Dunkel rng som spänner

För varje ws i arbetssedlar
    Välj fallet LCase (ws. Namnge),
        Fallet är = ”sheet4”, ”listar mycket” 'tillfogar annan arbetssedel namnger i lowercase på denna fodrar
        Fall annars
            Fastställd rng = ws. Spänna (ws. Celler (2, ”A”), ws. Celler (ws. Rows.Count, ”A”). Avsluta (xlUp). Offset (0, 10))
            Med täcker (”Sheet4”)
                rng. Kopiera. Celler (. Rows.Count, ”A”). Avsluta (xlUp). Offset (1, 0)
            Avsluta med
    Avsluta valt
Nästa ws

Avsluta suben
Andra lösningar  
 
programming4us programming4us