Opgelost Andere code

[Mark_68]

Hoe zou ik de volgende code kleiner kunnen krijgen?

If Range("D2").Value = "0" Then
Range("A2:d2").ClearContents

End If

If Range("D3").Value = "0" Then
Range("A3:d3").ClearContents

End If

If Range("D4").Value = "0" Then
Range("A4:d4").ClearContents

 

[edmoor]

Zo?

For i = 2 To 4
    If Range("D" & i) = "0" Then
        Range("A" & i).Resize(, 4).ClearContents
    End If
Next i