Frage : Zu Excel Arbeitsbuch sortieren zu den verschiedenen Blättern

Ich habe einen übertreffenÜbungsteil, das erste Blatt werde benannt Master, die anderen 12 Blätter bin Januar-Dezember.  Das erste colum 'A " auf Meister wird Aufstellungsortnamen genannt, und zweite Spalte „b“ wird anbringen Datum benannt.  Ich benötige die Namen und bringe Daten an, um mich auf den respecetd Monaten sheets.

Ex zu zeigen, das ich 100 Aufstellungsorte habe, die mit verschiedenem Datum an Januar verzeichnet werden, wie ich alle Aufstellungsorte erhalte und die Daten anbringe, die im Januar erfolgt sind, um an dem Januar sheet zu bevölkern

Antwort : Zu Excel Arbeitsbuch sortieren zu den verschiedenen Blättern

Eine Ausweichlösung könnte, ein Makro zu haben sein etwas Ähnliches eins, zum der Monatsblätter zu aktualisieren, während die Daten im Vorlagenblatt eingegeben werden.

Wenn Sie bereits viele zu bringen haben Daten, können Sie die Schleife (die benutzen heraus kommentiert wird), um alle vorhandenen Daten zu übertragen. ActiveCell.Row ersetzen - 1 mit i und 'für vorher entfernen und zunächst.

Dieser Code ist in der Beispielakte.

Respekt,
Knapp
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Privates VorWorksheet_Change (ByVal Ziel als Strecke)

    I als lang, LastRow als lang, lRow als lang verdunkeln
    Ws1 als Arbeitsblatt verdunkeln, Ws2 als Arbeitsblatt
    iMonth als Schnur verdunkeln
    Wenn nicht schneiden (Strecke („B: B“), Ziel) ist nichts dann
        Einstellen Ws1 = Arbeitsblätter („Meister“)
        LastRow = Ws1.Range („A65536“). Ende (xlUp). Reihe
        'Für i = 2 zu LastRow
            iMonth = Format (Arbeitsblätter („Meister“). Zellen (ActiveCell.Row - 1, 2), „mmm“)
            Auf Störung Goto- ErrorHandler
            Einstellen Ws2 = Arbeitsblätter (iMonth)
            'erste leere Reihe im Monatsblatt finden
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Versatz (1, 0). Reihe
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Zunächst i
    Beenden wenn
    Ausgangs-Unterseeboot 'vermeiden Störungszufuhr
ErrorHandler:
   'Monatsblatt existiert nicht!
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us