Vraag : VBA: Het kopiëren gegevens in nieuwe werkboeken en het opslaan van de dossiers

(Zie gehechtheid 1)

I am een Macro proberen te schrijven om een nieuw uniek werkboek voor elke persoon op mijn spreadsheet automatisch te creëren en te bewaren.

bijvoorbeeld, in MacroQuestion.xls, zou ik willen:
1. Selecteer cellen in A2 aan C9 gebaseerd op de feitenKolom A heeft de zelfde naam (Adam) van A2 aan A9. Ik heb de flexibiliteit voor de formule om alle nieuwe lijnen automatisch te kennen nodig te nemen voor het geval dat ik extra lijnen van uitgaven toevoeg. D.W.Z.: Het zal niet altijd rijen 2 tot 9 zijn die van de uitgaven van Adam een lijst maken. Het zou rijen 3 kunnen zijn aan 50.
2. Exemplaar A2 aan C9 in een nieuw werkboek.
3. Bewaar automatisch het nieuwe werkboek aan de Desktop als Adam.XLS.
4. Maak automatisch een afzonderlijk dossier eveneens voor de andere mensen. Zo, zou het runnen van de Macro me eens een „Adam.xls, een Mark.xls, een Jenny.xls, en een Erin.xls“ file.

Thank u voor uw hulp geven!

Erin
Attachments:
van
MacroQuestion.xls (31 KB) Attachment 1

Antwoord : VBA: Het kopiëren gegevens in nieuwe werkboeken en het opslaan van de dossiers

Probeer dit.
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 ()
 
Schemerige rng als Waaier, ws als Aantekenvel

Application.DisplayAlerts = Vals

Met Sheet1
    Sheets.Add (). Naam = „temperaturen“
    . Waaier („A1“. Waaier („A“ & Rows.Count). Eind (xlUp)).AdvancedFilter actie: =xlFilterCopy, CopyToRange: =Sheets („temperaturen“). Waaier („A1“), Uniek: =True
     Voor Elke rng in Bladen („temperaturen“). Waaier („A2“, Bladen („temperaturen“). Waaier („A2“). Eind (xlDown))
        Als Juiste UCase ((rng, 5))  <> „TOTAAL“ toen
            Vastgesteld ws = Sheets.Add (na: =Sheets (Sheets.Count))
            ws. Naam = rng
            .AutoFilterMode = Vals
            . Van de waaier („A1“).AutoFilter- gebied: =1, Criteria1: =rng & „*“
            .AutoFilter.Range.Copy bladen (rng. Tekst). Waaier („A1“)
            Bladen (rng. Tekst). Beweging
            ActiveWorkbook.Close SaveChanges: =True, Filename: = " C:\Users\Stephen\Desktop\ " & rng & „.xls“
        Eind als
    Volgende rng
    .AutoFilterMode = Vals
    Bladen („temperaturen“). Schrap
Eind met
     
Application.DisplayAlerts = Waar

Sub van het eind
Andere oplossingen  
 
programming4us programming4us