cellen deleaten naar boven als ze aan voorwaarde voldoen.

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
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
 

Bijlagen

  • cellen deleaten naar boven als er aan voorwaarde wordt voldaan.xlsx
    30,7 KB · Weergaven: 24
Bv
Code: 
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
 
Of je spreekt correct Nederlands (“cellen leegmaken” of “cellen verwijderen”) of je gebruikt correct Engels: “cellen deleten”. Dit doet pijn aan de ogen :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan