Printen wanneer cel>0

[edsel_nl]

Hallo,

Ik heb een excel document met werkbladen 1 t/m 26 nu wil ik graag een macro die ervoor zorgt dat wanneer cel F2 groter is dan 0 dat die dan de betreffende werkbladen uitprint dus alleen die werkbladen waarvan cel F2 groter is dan 0.

Bij voorbaat dank,

Eddy

Ik kom niet verder dan de onderstaande code, hierin zit dus nog niet 'de groter dan' functie:

Sub Printen()
' Print de gegevens.
Sheets("1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' enz.
End Sub

 

[Wigi]

De lus doorheen de tabbladen maak je zo:

Dim i As Integer

For i = 1 To 26

    'code

Next i

De IF ziet er zo uit:

    If Sheets(CStr(i)).Range("F2").Value > 0 Then
    
                'code
    
    End If

Samen geeft dat dus:

Dim i As Integer

For i = 1 To 26

    If Sheets(CStr(i)).Range("F2").Value > 0 Then
    
       Sheets(CStr(i)).Select
       
       'code om te printen
    
    End If

Next i

CStr staat voor: convert to string, maak van een getal een stuk tekst.

Wigi

 

[edsel_nl]

Dank

Super bedankt! :thumb: