Cellen Leeg maken onder bepaalde voorwaarde met VBA

[snip272]

Hallo
Ik heb een voorbeeld bestand erbij gedaan om mijn vraag te verduidelijken.
Hopelijk is er iemand die me kan helpen.

Ik heb 3 rijen en kolommen met gegevens D1:F90 (D1:F90 is een vast aantal regels en kolommen) zie voorbeeld

Mijn vraag is hoe kan ik de cellen in D190 die leeg zijn, de naast gelegen de cellen in E1:F90 leegmaken (met vba) in eenkeer.
zie rijen 40 tm 44 en rijen 88 tm 92 als voorbeeld die leeg moeten worden in dit voorbeeld


vriendelijke groet
Evert

 

[edmoor]

Zo:

For Each cl In Range("D1:D96").SpecialCells(xlCellTypeBlanks)
    cl.Offset(, 1).Resize(, 2).Value = ""
Next cl

 

[snb]

Sub M_snb()
   Columns(4).SpecialCells(4).Offset(, 1).Resize(, 2) = ""
End Sub

 

[edmoor]

Beter

 

[snip272]

werkte EdMoor

Bedankt voor de hulp en het werkte Edmoor

bedankt

 

[edmoor]

Graag gedaan.
Maar kijk ook eens naar die van snb, die is sneller omdat er geen loop wordt gebruikt.