Questione : Aggiunta del ciclo attraverso determinati manuali per sub - VBA

Gli esperti,

I hanno un sommergibile in due tappe (vedere sotto). Sto provando a regolare questo sull'esecuzione fatta funzionare soltanto sui seguenti manuali: il

ALL Sales
New Sales
Old Sales

I che si domanda se un ciclo fosse il migliore senso fare this.

I gradirebbe “macro principale„ che è veduta nella scatola “alt+F8„ per essere “SetupToPrint„. Così l'azione “del ciclo„ sarebbe all'interno del sommergibile di SetupToPrint o sarebbe un sommergibile riservato prima di SetPrintAreaToPivotTable, così dandomi 3 sommergibile riservati?
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 " del class= " del id= " codeSnippet807662 del
class= del

Risposta : Aggiunta del ciclo attraverso determinati manuali per sub - VBA

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

Sub la conduttura ()
SetupToPrint “TUTTE LE vendite„
SetupToPrint “nuove vendite„
SetupToPrint “vecchie vendite„
Sommergibile dell'estremità

SetupToPrint secondario riservato (SH come stringa)
    
    Strati (SH). Attivare
    Denominare SetPrintAreaToPivotTable
    Denominare SetPageBreakToXNumberOfRows

Concludere il sommergibile

SetPrintAreaToPivotTable secondario riservato ()

    Con ActiveSheet
        lPTcells = .PivotTables (“PivotTable1„) .DataBodyRange.Cells.Count
        Regolare il rngTopLeft = .PivotTables (“PivotTable1„) .RowRange.Cells (1)
        Regolare il rngBotRight = .PivotTables (“PivotTable1„) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & “: „ & l'indirizzo dello strPT di rngBotRight.Address 'non esiste!
        .PageSetup.PrintArea = strAddress
    Estremità con

Sommergibile dell'estremità

SetPageBreakToXNumberOfRows secondario riservato ()

    Lastrow fioco come lungamente
        Row_Index fioco come lungamente
        Il RW fioco come lungamente
    
        'Quante file volete fra ogni rottura di pagina
        Il RW = 48
        
        Con ActiveSheet
            'Rimuovere tutto il PageBreaks
            .ResetAllPageBreaks
            
            'Cercare l'ultima fila con i dati in colonna D
            Lastrow =. Cellule (Rows.Count, “D„). Estremità (xlUp). Fila
            
            Per Row_Index = il RW + 2 al punto RW di Lastrow
                .HPageBreaks.Add prima: =.Cells (Row_Index, 1)
            Dopo
    Estremità con

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us