macro che inserisca il numero di pagina e stampi solo se in determinate celle vi sono valori

Question

Ho trovato in rete una macro che permette di stampare 4 pagine solo se determinate celle contengono un valore e contemporaneamente le numera.

Nel mio foglio sono impostate 4 pagine che ho la necessità di lasciare sempre impostate anche se non vengono sempre tutte compilate. Quello che mi servirebbe, è trovare una macro che riconosca quante pagine ho compilato e di conseguenza le stampi.

la prima pagina va da riga 1 a riga 65: se la riga 15 è compilata stampa pagina 1 di pagina 1 (n.di pagina compare nella riga 65)

la seconda pagina va da riga 66 a riga 130: se la riga 80 è compilata stampa pagina 1 e 2 di pagine 2 (n.di pagina compare nelle righe 65 e 130)

la terza pagina va da riga 131 a riga 195: se la riga 145 è compilata stampa pagina 1 , 2  e 3 di pagine 3 (n.di pagina compare nelle righe 65 , 130 e 195)

la quarta pagina va da riga 196 a riga 260: se la riga 210 è compilata stampa pagina 1 , 2 , 3 e 4 di pagine 4 (n.di pagina compare nelle righe 65 , 130, 195 e 260)

Il mio problema è che lanciando la macro mi crea sempre in qualsiasi caso la stampa di tutte e quattro le pagine. Ho dovuto accodare questa macro ad un'altra macro e forse è per questo motivo che non funziona....qualcuno mi può trovare la soluzione? qui di seguito riporto la mia macro intera....evidenzio in grassetto la parte finale che è quella che interessa la stampa

Sub ULTIMA()

'

' ULTIMA Macro

'

'

    Range("A10:G660").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _

        ("A2:G3"), CopyToRange:=Range("I10:O10"), Unique:=False

    Range("I11").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("I12").Select

    ActiveCell.FormulaR1C1 = "=R[-1]C+1"

    Range("I12").Select

    Selection.AutoFill Destination:=Range("I12:I660"), Type:=xlFillDefault

    Range("I12:I660").Select

    ActiveWindow.ScrollRow = 685

    ActiveWindow.ScrollRow = 548

    ActiveWindow.ScrollRow = 411

    ActiveWindow.ScrollRow = 275

    ActiveWindow.ScrollRow = 138

    ActiveWindow.ScrollRow = 1

    Columns("I:I").Select

    Selection.Copy

    ActiveWindow.SmallScroll ToRight:=1

    Columns("Q:Q").Select

    ActiveSheet.Paste

    Columns("L:L").Select

    Application.CutCopyMode = False

    Selection.Copy

    ActiveWindow.SmallScroll ToRight:=1

    Columns("R:R").Select

    ActiveSheet.Paste

    Columns("O:O").Select

    Application.CutCopyMode = False

    Selection.Copy

    Columns("S:S").Select

    ActiveSheet.Paste

    Columns("N:N").Select

    Application.CutCopyMode = False

    Selection.Copy

    Columns("T:T").Select

    ActiveSheet.Paste

    Columns("M:M").Select

    Application.CutCopyMode = False

    Selection.Copy

    Columns("U:U").Select

    ActiveSheet.Paste

    Range("R11:U60").Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("ORDINI").Select

    Range("B15").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    Sheets("ARTICOLI").Select

    ActiveWindow.SmallScroll Down:=15

    Range("R61:U110").Select

    Selection.Copy

    Sheets("ORDINI").Select

    Range("G15").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=60

    Sheets("ARTICOLI").Select

    ActiveWindow.SmallScroll Down:=6

    Range("R111:U160").Select

    Selection.Copy

    Sheets("ORDINI").Select

    ActiveWindow.SmallScroll Down:=15

    Range("B80").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    Sheets("ARTICOLI").Select

    ActiveWindow.SmallScroll Down:=6

    Range("R161:U210").Select

    Selection.Copy

    Sheets("ORDINI").Select

    Range("G80").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=69

    Sheets("ARTICOLI").Select

    Range("R211:U260").Select

    Selection.Copy

    Sheets("ORDINI").Select

    ActiveWindow.SmallScroll Down:=-6

    Range("B145").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=0

    Sheets("ARTICOLI").Select

    Range("R261:U310").Select

    Selection.Copy

    Sheets("ORDINI").Select

    Range("G145").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=63

    Sheets("ARTICOLI").Select

    ActiveWindow.SmallScroll Down:=6

    Range("R311:U360").Select

    Selection.Copy

    Sheets("ORDINI").Select

    ActiveWindow.SmallScroll Down:=-3

    Range("B210").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=-3

    Sheets("ARTICOLI").Select

    Range("R361:U410").Select

    Selection.Copy

    Sheets("ORDINI").Select

    Range("G210").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveWindow.SmallScroll Down:=-6

    Dim lTot As Long    Dim lCont As Long    Dim lng As Long    Dim sh As Worksheet

Set sh = ThisWorkbook.Worksheets("ORDINI")

lTot = 0    lCont = 0        With sh        For lng = 1 To 260 Step 65            If .Cells(lng + 14, 1).Value <> "" Then                lTot = lTot + 1            End If        Next        For lng = 1 To 260 Step 65            If .Cells(lng + 14, 1).Value <> "" Then                lCont = lCont + 1                .Cells(lng + 64, 1).Value = "Pagina: " & lCont & " di Pagine: " & lTot                .PageSetup.PrintArea = "A" & lng & ": N" & lng + 64                .PrintOut                .PageSetup.PrintArea = ""            End If        Next        .Range("A65,A130,A195,A260").Value = ""    End With

Set sh = Nothing

End Sub

Answer 1

Scusami ma ho fatto diverse prove e ho creato diversi fogli, ma i fogli che interessano l'ultima versione della macro sono:

ARTICOLI

ORDINI

la macro dev'essere lanciata quando ci si trova sul foglio ARTICOLI e si chiama ULTIMA, la macro SS è una delle tante prove che ho fatto....sono un pò una pasticciona pardon!!

Domanda(mia).

Perchè:

.PageSetup.PrintArea = "A" & lng & ": N" & lng + 64

e non:

.PageSetup.PrintArea = "A" & lng & ": J" & lng + 64

Aggiungo che quel codice è foriero di un sacco di problemi. Non esiste che se non sei sul foglio ARTICOLI la macro non funzioni. Prova a spiegare a parole, partendo dal file che hai postato, cosa vuoi ottenere. Grazie per la pazienza.

Answer 2

In A15 ho =SE(E15>0;1;" ")

in A 80 ho =SE(E80>0;F64+1;" ")

in A 145 ho =SE(E145>0;F129+1;" ")

in A210 ho =SE(E210>0;F194+1;" ")

grazie ancora per l'interessamento.

Answer 3

 

Mi è venuto in mente che se il problema fosse legato alla formula presente nella celle A15, A80, A145 e A210 si potrebbe direttamente fare in modo che le celle di riferimento siano E15, E80, E145 ed E210 ma non sono in grado di scrivere questa condizione.

 

Una cella con una  formula *non è una cella vuota*. Che formula hai in A15, A80. ecc? Grazie.

Answer 4

Grazie mille per la risposta così tempestiva,

ho provato a controllare la cella A della riga 15 , in questa cella e anche nelle A80, A145 e A210 è presente una formula che permette di riportare un numero progressivo nel qual caso nelle corrispondenti celle E15, E80, E145 ed E210 sia presente una cifra, altrimenti rimane la cella vuota. Forse è per questo motivo che quando lancio la macro mi crea sempre la stampa di tutte e quattro le pagine?

Scusa, forse non riesco a spiegarmi bene perchè non sono affatto un'esperta di macro, anzi tutt'altro...ieri ho riportato l'intera macro prorpio perchè non essendo per niente afferrata in linguaggio vba non sapevo se potesse essere utile a risolvere il mio problema....la prima parte della macro non l'ho creata "manualmente" ma con il comando registra macro per evitare di ripetere ogni volta una sequenza di azioni che dovrei fare nel file in questione.

Mi è venuto in mente che se il problema fosse legato alla formula presente nella celle A15, A80, A145 e A210 si potrebbe direttamente fare in modo che le celle di riferimento siano E15, E80, E145 ed E210 ma non sono in grado di scrivere questa condizione.

Grazie in anticipo

Answer 5

Ho trovato in rete una macro che permette di stampare 4 pagine solo se determinate celle contengono un valore e contemporaneamente le numera.

Nel mio foglio sono impostate 4 pagine che ho la necessità di lasciare sempre impostate anche se non vengono sempre tutte compilate. Quello che mi servirebbe, è trovare una macro che riconosca quante pagine ho compilato e di conseguenza le stampi.

la prima pagina va da riga 1 a riga 65: se la riga 15 è compilata stampa pagina 1 di pagina 1 (n.di pagina compare nella riga 65)

la seconda pagina va da riga 66 a riga 130: se la riga 80 è compilata stampa pagina 1 e 2 di pagine 2 (n.di pagina compare nelle righe 65 e 130)

la terza pagina va da riga 131 a riga 195: se la riga 145 è compilata stampa pagina 1 , 2  e 3 di pagine 3 (n.di pagina compare nelle righe 65 , 130 e 195)

la quarta pagina va da riga 196 a riga 260: se la riga 210 è compilata stampa pagina 1 , 2 , 3 e 4 di pagine 4 (n.di pagina compare nelle righe 65 , 130, 195 e 260)

Il mio problema è che lanciando la macro mi crea sempre in qualsiasi caso la stampa di tutte e quattro le pagine. Ho dovuto accodare questa macro ad un'altra macro e forse è per questo motivo che non funziona....qualcuno mi può trovare la soluzione? qui di seguito riporto la mia macro intera....evidenzio in grassetto la parte finale che è quella che interessa la stampa

---

Il codice(quello che riguarda la stampa, non il resto che non scriverei mai) è mio e funzionava perfettamente nel contesto per il quale è stato creato. Questa riga di codice:

If .Cells(lng + 14, 1).Value <> "" Then

controlla la cella A della riga ciclata, non tutte le celle della riga. Non è chiaro quale/i cella/e devi controllare tu. Grazie.