Pergunta : VBA: Dados de copi em manuais de instruções novos e em conservar as limas

(Ver o acessório 1) o

I am que tenta escrever um macro para criar e conservar automaticamente um manual de instruções original novo para cada pessoa em meu spreadsheet. o

por exemplo, em MacroQuestion.xls, eu quereria: O
1. que as pilhas seletas no A2 ao C9 basearam na coluna A do fato tem o mesmo nome (Adam) do A2 ao A9. Eu preciso a flexibilidade para que a fórmula saiba automaticamente para tomar todas as novas linhas caso que eu adiciono linhas adicionais de despesas. IE: Não será sempre as fileiras 2 9 que alistam despesas de Adam. Pôde ser as fileiras 3 à cópia A2 de 50.
2. ao C9 em um manual de instruções novo. O
3. automaticamente excepto o manual de instruções novo ao desktop como Adam.XLS.
4. faz automaticamente uma lima separada para os outros povos também. Assim, funcionar o macro uma vez dar-me-ia um “Adam.xls, um Mark.xls, um Jenny.xls, e um Erin.xls” file.

Thank você para sua ajuda!

Erin class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >MacroQuestion.xls " fileSize " > (31 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
>Attachment 1
da " descrição " do class= do
o class= de
do >
class= do

Resposta : VBA: Dados de copi em manuais de instruções novos e em conservar as limas

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:
26:
27:

Sub x ()
 
Escurecer o rng como a escala, WS como a folha

Application.DisplayAlerts = falso

Com 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))
        Se UCase (direito (rng, 5))  <> “TOTAL” então
            Ajustar WS = Sheets.Add (em seguida: =Sheets (Sheets.Count))
            WS. Nome = rng
            .AutoFilterMode = falso
            . Campo da escala (“A1”) .AutoFilter: =1, Criteria1: =rng & “*”
            .AutoFilter.Range.Copy cobre (rng. Texto). Escala (“A1”)
            Folhas (rng. Texto). Movimento
            ActiveWorkbook.Close SaveChanges: =True, nome de arquivo: = " C:\Users\Stephen\Desktop\ " & rng & “.xls”
        Terminar se
    Rng seguinte
    .AutoFilterMode = falso
    Folhas (“temp”). Supressão
Extremidade com
     
Application.DisplayAlerts = retificam

Submarino da extremidade
Outras soluções  
 
programming4us programming4us