Macro met voorwaarde

[Yasmin]

Beste Excellers,

Ik heb een knop die verwijst naar een macro (code zie hieronder).
Het komt voor dat Blad Chauffeurslijst leeg is dan dient de macro
niet uitgevoerd te worden. Hoe krijg ik dit voor elkaar?
Wie kan mij hiermee helpen?

[/Sub Macro4()
'
' Macro4 Macro
'
    
    Sheets("Chauffeurslijst").Select
    Range("A1").Select
    Selection.RemoveSubtotal
    Cells.Select
    Selection.ClearContents
    ActiveSheet.ResetAllPageBreaks
    Range("A1").Select
    Sheets("Dashboard").Select
    Range("F17").Select
    
End Sub
HTML]


Bij voorbaat dank.
André

 

[edmoor]

Als dat blad leeg is mag het niet worden gedaan omdat 'ie dan fout gaat?
Probeer deze eens:

Sub Macro4()
    On Error Resume Next
    With Sheets("Chauffeurslijst")
        .Range("A1").RemoveSubtotal
        .Cells.ClearContents
        .ResetAllPageBreaks
        .Range("A1").Select
    End With
    Sheets("Dashboard").Range("F17").Select
End Sub

 

[Yasmin]

Beste Edmoor,

Dit is waarschijnlijk de oplossing.
Ik krijg nu geen foutmelding meer.

Bedank!

 

[edmoor]

Er gebeurt hetzelfde, ook de fout. Alleen zie je dat nu niet en maakt niet uit omdat het blad toch leeg is.
Simpel opgelost dus met On Error Resume Next. Let wel, dat is geen wondermiddel om fouten op te lossen.
Tevens je opgenomen code wat gefatsoeneerd.