VBA code doorlaten lopen voor andere cellen

[Ola]

Deze code heb ik gemaakt om op basis van een waarde uit en cel de waarde uit andere cellen weg te halen.
Maar hoe kan ik deze door laten lopen naar de daarop naar beneden volgende cel:

Sub CXL()
For Each Sh In ThisWorkbook.Sheets
    If Sh.Range("n4") = "cxl" Then
        Sh.Range("T4,V4,W4").ClearContents
    End If
Next Sh
End Sub

 

[huijb]

Members Chat voor een Excel vraag. We hebben een Excel forum. Verplaatst.

 

[VenA]

Zonder het bestand gezien te hebben zou dit een oplossing kunnen zijn.

Sub VenA()
  For Each sh In Sheets
    For Each cl In sh.Columns(14).SpecialCells(2)
      If cl = "cxl" Then
        cl.Offset(, 6).ClearContents
        cl.Offset(, 8).Resize(, 2).ClearContents
      End If
    Next cl
  Next sh
End Sub

 

[SjonR]

Iets meer info zou fijn zijn. Bij voorkeur een bestand.