Questione : Manuale di scissione di Excel nei libri di esercizi multipli

Ciao, il

I attualmente ha un foglio elettronico di supremazia con parecchie colonne in esso.  Una delle colonne è cliente.  Vorrei tagliare fuori ogni cliente in libro di esercizi separato in moda da poterlo inviare con la posta elettronica io ogni libro di esercizi ad ogni cliente.  È ci un senso semplice di fare questo?  Amerei Nel migliore dei casi potere automatizzare questo function.

Thanks class= del

Risposta : Manuale di scissione di Excel nei libri di esercizi multipli

Provare questo.
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 la x ()
 
Oscurare il rng come gamma, WS come manuale

Application.DisplayAlerts = falso

Con gli strati (“Sheet1„)
    Sheets.Add (). Nome = “temp„
    . Gamma (“A1„. Gamma (“A„ & Rows.Count). Estremità (xlUp))azione di .AdvancedFilter: =xlFilterCopy, CopyToRange: =Sheets (“temp„). Gamma (“A1„), unica: =True
     Per ogni rng in strati (“temp„). Gamma (“A2„, strati (“temp„). Gamma (“A2„). Estremità (xlDown))
        Regolar la WS = Worksheets.Add ()
        la WS. Nome = rng
        .AutoFilterMode = falso
        . Campo della gamma (“A1„) .AutoFilter: =1, Criteria1: =rng
        .AutoFilter.Range.Copy WS. Gamma (“A1„)
        la WS. Movimento
        ActiveWorkbook.Close SaveChanges: =True, nome di schedario: = " C:\ " & rng & “.xls„
    Rng seguente
    .AutoFilterMode = falso
    Strati (“temp„). Cancellazione
Estremità con
     
Application.DisplayAlerts = allineano

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us