Cellen leegmaken bij bepaalde waarde in andere cel

[math1]

In een tabel met diverse gegevens (range A4:AZ749) wil ik d.m.v. een knop cellen leegmaken als een andere cel aan een bepaalde voorwaarde voldoet.

De waarde ("Eenm.") die gezocht wordt staat in kolom I. wordt deze waarde gevonden dan moeten in de overeenkomstige rij de waardes in de cel van kolom W en AJ op 0 gezet worden.

Ik heb wel al iets gevonden maar weet niet hoe dit af te maken.

Sub Eenmalig()
Dim c As Range
For Each c In Range("I4:I749").Cells
  c.Select
  If c.Value = "Eenm." Then
  
   'cel in kolom W leegmaken
  
   'cel in kolom AJ leegmaken
   
  End If
Next
End Sub

m.vr.gr.
Math

 

[Cobbe]

Doe eens de test met deze code:

Sub Eenmalig()
Dim c As Range
For Each c In Range("I4:I749")
  If c.Value = "Eenm." Then
     Cells(c.Row, "W") = 0
     Cells(c.Row, "AJ") = 0
  End If
Next
End Sub

 

[math1]

Hallo Cobbe,

dit is wat ik zocht, heel hartelijk dank voor deze snelle oplossing.

Groetjes, Math