Pytanie : Workbook różny prześcieradło

I mieć przodować praca książka, The Pierwszy prześcieradło dzwonić Mistrzowski, The inny 12 prześcieradło być styczeń - Grudzień.  The Pierwszy colum 'A " na Mistrz dzwonić miejsce imię, i drugi Szpaltowy "B" dzwonić Instalować data.  I potrzebować the imię i instalować data sheet na the respecetd miesiąc sheets.

Ex I mieć 100 miejsce spisywać z różnorodny data na Styczeń jak I dostawać wszystkie the miejsce i instalować data robić w Styczeń na the Styczeń sheet

Odpowiedź : Workbook różny prześcieradło

Alternatywny rozwiązanie móc macro prześcieradło jak ten jeden the miesięczny prześcieradło gdy the dane wchodzić do w the ćwiczyć prześcieradło.

Jeżeli ty już mieć mnóstwo dane ty móc the pętla (który komentować mnóstwo) wszystkie istniejący dane. Zamieniać ActiveCell.Row - (1) z i i usuwać 'przedtem Dla i Następnie.

Ten kod być w the próbka kartoteka.

Uwzględnienie,
Szorstki
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Intymny Okręt podwodny Worksheet_Change (ByVal Cel Pasmo)

    Ciemnawy i Długo, LastRow Długo, lRow Długo
    Ciemnawy Ws1 Jako Worksheet, Ws2 Jako Worksheet
    Ciemnawy iMonth Sznurek
    Jeśli nie Przecinać (Pasmo ("B: B"), Cel) Być B Wtedy
        Set Ws1 = Worksheets ("Mistrz")
        LastRow = Ws1.Range ("A65536"). Końcówka (xlUp). Rząd
        'Dla i = 2 LastRow
            iMonth = Format (Worksheets ("Mistrz"). Komórka (ActiveCell.Row - (1), 2), "mmm")
            Na Błąd Rozpoczynający ErrorHandler
            Set Ws2 = Worksheets (iMonth)
            'znajdować najpierw pusty rząd w miesiąc prześcieradło
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Odsadzka ((1), (0)). Rząd
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - (1), 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - (1), 2)
        'Następnie i
    Kończyć Jeżeli
    Wyjście Okręt podwodny 'Unikać błąd treser
ErrorHandler:
   'Miesiąc prześcieradło istnieć!
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us