cellen deleaten naar boven als ze aan voorwaarde voldoen.

[1965Peter]

Hallo,
Ben op zoek naar een macro die als er aan voorwaarde voldoet cellen naar boven verwijderd.

Range = K10:M (variabel)
Als M10:M is waarde "OK", dan cellen K:M verwijderen.(naar boven)

De rijen A:J moeten in tact blijven.

Alvast bedankt

 

[VenA]

Bv

Sub VenA()
Dim r As Range, cl As Range
  For Each cl In Cells(9, 11).CurrentRegion.Columns(1).Cells
    If cl.Offset(0, 2).Text = "OK" Then
      If r Is Nothing Then Set r = cl.Resize(, 3) Else Set r = Union(r, cl.Resize(, 3))
    End If
  Next cl
  If Not r Is Nothing Then r.Delete
End Sub

 

[OctaFish]

Of je spreekt correct Nederlands (“cellen leegmaken” of “cellen verwijderen”) of je gebruikt correct Engels: “cellen deleten”. Dit doet pijn aan de ogen

 

[1965Peter]

VenA, Super , werkt , Dank je voor de hulp