Pergunta : Adicionando o laço através de determinadas folhas para sub - VBA

Os peritos,

I têm uns dois - submarino da etapa (ver abaixo). Eu estou tentando ajustar este em cima da execução funcionada nas seguintes folhas somente: o

ALL Sales
New Sales
Old Sales

I am que quer saber se um laço seria a melhor maneira de fazer this.

I gostaria “o macro principal” que é considerado na caixa “alt+F8” para ser “SetupToPrint”. Assim a ação do “laço” seria dentro do submarino de SetupToPrint ou seria um submarino confidencial antes de SetPrintAreaToPivotTable, assim dando me 3 submarinos confidenciais?
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
>Sub notpretty SetupToPrint " do class= " do id= " codeSnippet807662 do
class= do

Resposta : Adicionando o laço através de determinadas folhas para sub - VBA

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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub o cano principal ()
SetupToPrint “TODAS AS vendas”
SetupToPrint “vendas novas”
SetupToPrint “vendas velhas”
Submarino da extremidade

SetupToPrint secundário confidencial (sh como a corda)
    
    Folhas (sh). Ativar
    Chamar SetPrintAreaToPivotTable
    Chamar SetPageBreakToXNumberOfRows

Terminar o submarino

SetPrintAreaToPivotTable secundário confidencial ()

    Com ActiveSheet
        lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
        Ajustar o rngTopLeft = o .PivotTables (“PivotTable1”) .RowRange.Cells (1)
        Ajustar o rngBotRight = o .PivotTables (“PivotTable1”) .DataBodyRange.Cells (os lPTcells)
        strPTAddress = rngTopLeft.Address & “: ” & o endereço do strPT de rngBotRight.Address 'não existe!
        .PageSetup.PrintArea = strAddress
    Extremidade com

Submarino da extremidade

SetPageBreakToXNumberOfRows secundário confidencial ()

    Lastrow não ofuscante como por muito tempo
        Row_Index não ofuscante como por muito tempo
        RW não ofuscante como por muito tempo
    
        'Quantas fileiras você quer entre cada ruptura de página
        RW = 48
        
        Com ActiveSheet
            'Remover todo o PageBreaks
            .ResetAllPageBreaks
            
            'Procurarar pela última fileira com dados na coluna D
            Lastrow =. Pilhas (Rows.Count, “D”). Extremidade (xlUp). Fileira
            
            Para Row_Index = RW + 2 à etapa RW de Lastrow
                .HPageBreaks.Add antes: =.Cells (Row_Index, 1)
            Em seguida
    Extremidade com

Submarino da extremidade
Outras soluções  
 
programming4us programming4us