Stampare fogli di lavoro con condizione

[BG66]

Un saluto sperando che stiate tutti bene.
Come da titolo vorrei stampare i fogli di lavoro quando nella colonna B del foglio "MENU" vi sia presente SI
https://www.dropbox.com/scl/fi/hkbgtfpjqmt0iv82img5l/RegAnti_forum.xlsm?dl=0&rlkey=ka42jbgj73qvwhippezspfzhp

Io mi sono piantato pochi centimetri dopo la partenza....

Codice: Seleziona tutto

Sub SelezionaStampati()
Dim I As Long
'1- scegli STAMPANTE:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'2- stampa fogli selezionati:
Application.ScreenUpdating = False
With Sheets("MENU")
'----------------PIANTATO-----------------
End With
Application.ScreenUpdating = True
Sheets("MENU").Select
End Sub



Grazie in anticipo
Gene
STAY SAFE

[Marius44]

Ciao Gene
Forse è dovuto all'ora (tua) mattutina ma a me sembra che nella col.C non ci possa MAI essere un SI o un NO.
If .Cells(I, "C") = "SI" Then
Forse quella "C" deve essere "B"?

Ciao,
Mario

[Anthony47]

Beh, si puo' anche capire che dopo una notte insonne BG possa scrivere If .Cells(I, "C") = "SI" Then invece che If .Cells(I, "B") = "SI" Then...
Comunque, volendo essere generosi come al solito (su questo forum...), non lo lasciamo alla ricerca del prossimo errore e gli proponiamo questa versione di SelezionaStampati:

Codice: Seleziona tutto

Sub SelezionaStampati()
Dim ShArr(), II As Long
'
Dim I As Long
'1- scegli STAMPANTE:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'2- stampa fogli selezionati:
ReDim ShArr(0 To ThisWorkbook.Sheets.Count - 1)
'Application.ScreenUpdating = False
With Sheets("MENU")
For I = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
    If .Cells(I, "B") = "SI" Then
        ShArr(II) = .Cells(I, "C")
        II = II + 1
    End If
Next I
End With
ReDim Preserve ShArr(0 To II - 1)
If II > 0 Then
    ActiveWorkbook.Sheets(ShArr).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    MsgBox (II  & " Fogli stampati")
Else
    MsgBox ("Zero fogli selezionati")
End If
'Application.ScreenUpdating = True
Sheets("MENU").Select
End Sub

Ho preferito la scelta di stampare tutti i fogli insieme non sapendo quante code di stampa la sua stampante puo' gestire.

Ciao a tutti

[BG66]

[RISOLTO]
Ciao a tutti.

Beh, si puo' anche capire che dopo una notte insonne BG possa scrivere ...................

Forse è dovuto all'ora (tua) mattutina ma a me sembra che ............................

Rubando la frase a qualcuno: questa è la prova provata che la notte (o comunque il primo mattino) è fatta per dormire!!

Grazie mille e alla prossima.
Gene
STAY SAFE