Fråga : Blixtra Excelarbetssedel in i multipelarbetsböcker

Hi

I har för närvarande ett överträffaräkneark med flera kolonner i den.  En av kolonnerna är kunden.  Jag skulle något liknande för att dela ut varje kund in i en separat arbetsbok, så att jag kan e-posten varje arbetsbok till varje kund.  Finns det ett enkelt långt av att göra detta?  Idealt jag skulle förälskelse att vara kompetent att automatisera denna function.

Thanks " klar "

Svar : Blixtra Excelarbetssedel in i multipelarbetsböcker

Försök detta.
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:

Underx ()
 
Dunkel rng som spänner, ws som arbetssedeln

Application.DisplayAlerts = falskt

Med täcker (”Sheet1”)
    Sheets.Add (). Känt = ”vikarier”,
    . Spänna (”A1”. Spänna (”A” & Rows.Count). Avsluta (xlUp)).AdvancedFilter-handling: =xlFilterCopy CopyToRange: =Sheets (”vikarier”). Spänna (”A1”), unikt: =True
     För varje rng täcker in (”vikarier”). Spänna (”A2”, täcker (”vikarier”). Spänna (”A2”). Avsluta (xlDown))
        Uppsättning ws = Worksheets.Add ()
        ws. Namnge = rng
        .AutoFilterMode = falskt
        . Spänna (”A1”) .AutoFilter sätter in: =1 Criteria1: =rng
        .AutoFilter.Range.Copy ws. Spänna (”A1”)
        ws. Flyttning
        ActiveWorkbook.Close SaveChanges: =True Filename: = " C:\ " & rng & ”.xls”,
    Nästa rng
    .AutoFilterMode = falskt
    Täcker (”vikarier”). Borttagnings
Avsluta med
     
Application.DisplayAlerts = True

Avsluta suben
Andra lösningar  
 
programming4us programming4us