Vraag : Het verdelende Aantekenvel van Excel in Veelvoudige werkboeken

Hallo, heeft

I momenteel spreadsheet met verscheidene kolommen daarin uitblinken.  Één van de kolommen is Klant.  Ik zou elke Klant in een afzonderlijk werkboek willen uit verdelen zodat ik elk werkboek aan elke klant kan met de elektronische post versturen.  Is er een eenvoudige manier om dit te doen?  Ideaal gezien van zou ik dit function.

Thanks houden te kunnen automatiseren

Antwoord : Het verdelende Aantekenvel van Excel in Veelvoudige werkboeken

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:

Sub x ()
 
Schemerige rng als Waaier, ws als Aantekenvel

Application.DisplayAlerts = Vals

Met Bladen („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))
        Vastgesteld ws = Worksheets.Add ()
        ws. Naam = rng
        .AutoFilterMode = Vals
        . Van de waaier („A1“).AutoFilter- gebied: =1, Criteria1: =rng
        .AutoFilter.Range.Copy ws. Waaier („A1“)
        ws. Beweging
        ActiveWorkbook.Close SaveChanges: =True, Filename: = " C:\ " & rng & „.xls“
    Volgende rng
    .AutoFilterMode = Vals
    Bladen („temperaturen“). Schrap
Eind met
     
Application.DisplayAlerts = Waar

Sub van het eind
Andere oplossingen  
 
programming4us programming4us