Rij verwijderen als celwaarde niet gelijk is aan waarde uit cel N1

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

Ik wil alle rijen verwijderen als de waarde uit kolom k, niet gelijk is aan "N1".
Aantal rijen uit K is variabel, dus de range is de laatste waarde uit K.

In voorbeeld moeten alleen de rijden overblijven met 2019-7
 

Bijlagen

  • Delete Row indien niet gelijk aan N1.xlsx
    232,2 KB · Weergaven: 25
Overige waardes moeten niet worden meegestuurd. dus verwijderd in een macro.
 
Yep Edmoor, hij doet wat ik bedoel, maar op de één of andere manier kan de vba code niet zien?
 
De code staat achter het werkblad.
 
Kan toch gewoon met het autofilter of had ik dat al geschreven? Er van uitgaande dat de eerste rij kopteksten bevat.

Code: 
Sub VenA()
  With Sheets("5. Historische gegevens (2)").Cells(1).CurrentRegion
    .AutoFilter 11, "<>" & Range("N1").Value
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub
 
Laatst bewerkt:
Hallo VenA,

Ja, precies zoals jij nu post bedoelde ik. Alleen mis ik de kennis om dit zelf te schrijven.
Maar zeker bedankt, ik sla deze ook op voor als ik iets soort gelijk heb.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan