Pytanie : Dostawać wszystkie prześcieradło row2 do końcówka dane jeden prześcieradło. Jeden po the jeden.

Cześć,

Get wszystkie prześcieradło row2 do końcówka dane jeden prześcieradło. Jeden po the other.

On jeden bieg jasny the prześcieradło i dostawać nowy set

Row (1) być chodnikowiec i i chcieć copied

One prześcieradło musieć wykluczać swój imię być "Pełny Lista "

Can (1) pomoc z ten macro.

Regards
Sharath

Odpowiedź : Dostawać wszystkie prześcieradło row2 do końcówka dane jeden prześcieradło. Jeden po the jeden.

Sharath,

I zmieniać the macro ono łatwy worksheet imię - widzieć łatwy. Ono być w the dołączać kartoteka.

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

Okręt podwodny consolidator ()
Ciemnawy ws Jako Worksheet
Ciemnawy rng Pasmo

Dla Each ws W Worksheets
    Wybrany Skrzynka LCase (ws. Imię)
        Skrzynka Być = "sheet4", "pełny lista" 'dodawać inny worksheet imię w lowercase na ten linia
        Skrzynka Inny
            Ustalony rng = ws. Pasmo (ws. Komórka (2, "A"), ws. Komórka (ws. Rows.Count, "A"). Końcówka (xlUp). Odsadzka ((0), 10))
            Z Prześcieradło ("Sheet4")
                rng. Kopia. Komórka (. Rows.Count, "A"). Końcówka (xlUp). Odsadzka ((1), (0))
            Końcówka Z
    Końcówka Wybiórka
Następny ws

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us