printmacro

[bernie6]

Beste forumleden

Ben zelf niet zo thuis in VBA vandaar deze vraag:
Ik heb een excelmap met een 40 tal werkbladen; nu zou ik graag een macro hebben waardoor de volledige map met alle werkbladen uitgeprint wordt behalve de werkbladen waar in cel AA1 een "x" staat; zou het mogelijk zijn mij hierin te helpen?

Beste dank

 

[Peter B]

Niet getest, maar volgens mij bedoel je dit:

Sub WorksheetLoop()

    Dim i As Integer

    For i = 1 To ActiveWorkbook.Worksheets.Count
        If Worksheets(i).Range("AA1").Value <> "x" Then
            Worksheets(i).PrintOut
        End If
    Next i

End Sub

Je kunt eerst testen of dit goed gaat door ActiveWorkbook.Worksheets.Count te vervangen voor een getal (bv. 3).

 

[bernie6]

de perfecte oplossing, bedankt

 

[HSV]

Ik zou 'activeworkbook' vervangen door 'thisworkbook'. zo weet je zeker dat de werkbladen worden geprint waar de code ook in staat.

 

[Peter B]

Nou Harry. Bedankt!



Goeie tip! :thumb: