Frage : VBA: Kopierendaten in neue Arbeitsbücher und in die Rettung der Akten

(Zubehör 1)

I morgens sehen zu versuchen, ein Makro zu schreiben, um ein neues einzigartiges Arbeitsbuch für jede Person auf meinem Verteilungsbogen automatisch herzustellen und zu speichern.

zum Beispiel, in MacroQuestion.xls, würde ich wünschen:
1., das auserwählte Zellen in A2 zu C9 auf der Tatsache Spalte A gründeten, hat den gleichen Namen (Adam) von A2 zu A9. Ich benötige die Flexibilität, damit die Formel automatisch weiß, um alle neuen Richtungen zu verfolgen, falls ich zusätzliche Linien von Unkosten hinzufüge. IE: Es nicht immer ist Reihen 2 bis 9, die Adam Unkosten verzeichnen. Es konnte Reihen 3 50.
2. zur Kopie A2 zu C9 in ein neues Arbeitsbuch sein.
3. automatisch außer dem neuen Arbeitsbuch zum Schreibtisch als Adam.XLS.
4. bilden automatisch eine unterschiedliche Akte für die anderen Leute außerdem. So würde der Betrieb des Makro einmal mir ein „Adam.xls, ein Mark.xls, ein Jenny.xls und ein Erin.xls“ file.

Thank Sie für Ihre Hilfe geben!

Erin
Attachments:

Antwort : VBA: Kopierendaten in neue Arbeitsbücher und in die Rettung der Akten

Dieses versuchen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Sub x ()
 
Rng als Strecke, WS verdunkeln als Arbeitsblatt

Application.DisplayAlerts = falsch

Mit Sheet1
    Sheets.Add (). Name = „Temp“
    . Strecke („A1“. Strecke („A“ u. Rows.Count). Ende (xlUp)).AdvancedFilter Tätigkeit: =xlFilterCopy, CopyToRange: =Sheets („Temp“). Strecke („A1“), einzigartig: =True
     Für jedes rng in den Blättern („Temp“). Strecke („A2“, Blätter („Temp“). Strecke („A2“). Ende (xlDown))
        Wenn UCase (rechte (rng, 5)) <> „GESAMTMENGE“ dann
            Einstellen WS = Sheets.Add (nachher: =Sheets (Sheets.Count))
            WS. Name = rng
            .AutoFilterMode = falsch
            . Feld der Strecke („A1“) .AutoFilter: =1, Criteria1: =rng u. „*“
            .AutoFilter.Range.Copy bedeckt (rng. Text). Strecke („A1“)
            Blätter (rng. Text). Bewegung
            ActiveWorkbook.Close SaveChanges: =True, Dateiname: = " C:\Users\Stephen\Desktop\ " u. rng u. „.xls“
        Beenden wenn
    Folgendes rng
    .AutoFilterMode = falsch
    Blätter („Temp“). Löschung
Ende mit
     
Application.DisplayAlerts = richten aus

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us