Selectief werkbladen printen

[Thg]

Hallo,
Met onderstaande code die ik ergens van internet heb gehaald heb ik het voor elkaar gekregen om werkbladen te printen wanneer een bepaalde cel gevuld is. De eerste paar regels zijn duidelijk, maar ik krijg niet duidelijk voor mezelf hoe deze functie werkt. Wie kan mij uitleggen wat deze functie nu precies doet?

Ook blijven de geselecteerde werkbladen geselecteerd. Welk commando kan ik gebruiken om dat op te heffen?

Bvd, Thg

Private Sub Commandbutton1_Click()

        
    If Sheets("Voorblad").Range("B53") = "" Then MsgBox ("Naam invullen a.u.b.")
    If Sheets("Voorblad").Range("I53") = "" Then MsgBox ("Datum invullen a.u.b.")
    If Sheets("Voorblad").Range("B53") = "" Or Sheets("Voorblad").Range("I53") = "" Then Exit Sub
    
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0

    For Each Sh In ActiveWorkbook.Worksheets
            If Sh.Visible = xlSheetVisible And Sh.Range("I53").Value <> "0" And Sh.Range("I53").Value <> "" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        .Worksheets(Arr).PrintOut
    End With
End Sub

 

[sylvester-ponte]

hallo Thg

wat is er niet duidelijk?
de Help van exel geeft een hoop informatie hoor.

groet Sylvester

 

[Thg]

Ik heb wel zitten zoeken in het Help-menu, maar ik kom niet helemaal uit het begrip 'reDim Preserve' en de regel

' If Sh.Visible = xlSheetVisible And Sh.Range("I53").Value <> "0" And Sh.Range("I53").Value <> "" Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = Sh.Name'

Ik begrijp dat er gekeken wordt naar bepaalde cellen en dat de werkbladen zichtbaar moeten zijn, maar hoe zich dat dan verder vertaalt naar het selecteren van de bladen die geprint moeten worden?
Wat zegt de tekst nu precies, wat wordt er benoemd en uitgevoerd?

Vriendelijk bedankt, Thg

 

[Warme bakkertje]

Hier vindt je een antwoord op je vraag
http://www.anthony-vba.kefra.com/vba/vbabasic3.htm
In het kort gezegd wordt een array gemaakt met de werkbladnamen die voldoen aan de voorwaarden, daarna wordt elk element van de array gebruikt om het afdrukken te sturen

 

[Thg]

Prima, ik ga me inlezen! Bedankt!