Pergunta : Folha de rachadura de Excel em manuais de instruções múltiplos

Olá!, o

I tem atualmente um spreadsheet primar com diversas colunas nele.  Uma das colunas é cliente.  Eu gostaria de rachar para fora cada cliente em um manual de instruções separado de modo que eu pudesse enviar por correio electrónico cada manual de instruções a cada cliente.  Há uma maneira simples de fazer isto?  Idealmente eu amaria poder automatizar este function.

Thanks class= do

Resposta : Folha de rachadura de Excel em manuais de instruções múltiplos

Tentar isto.
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 ()
 
Escurecer o rng como a escala, WS como a folha

Application.DisplayAlerts = falso

Com folhas (“Sheet1”)
    Sheets.Add (). Nome = “temp”
    . Escala (“A1”. Escala (“A” & Rows.Count). Extremidade (xlUp))ação de .AdvancedFilter: =xlFilterCopy, CopyToRange: =Sheets (“temp”). Escala (“A1”), original: =True
     Para cada rng nas folhas (“temp”). Escala (“A2”, folhas (“temp”). Escala (“A2”). Extremidade (xlDown))
        Ajustar WS = Worksheets.Add ()
        WS. Nome = rng
        .AutoFilterMode = falso
        . Campo da escala (“A1”) .AutoFilter: =1, Criteria1: =rng
        .AutoFilter.Range.Copy WS. Escala (“A1”)
        WS. Movimento
        ActiveWorkbook.Close SaveChanges: =True, nome de arquivo: = " C:\ " & rng & “.xls”
    Rng seguinte
    .AutoFilterMode = falso
    Folhas (“temp”). Supressão
Extremidade com
     
Application.DisplayAlerts = retificam

Submarino da extremidade
Outras soluções  
 
programming4us programming4us