rijen verwijderen met macro

[Depant]

Hallo allemaal,

Ik heb een bestandje met tot ongeveer 15000 rijen.
In J2 staat tekst.
Nu is het de bedoeling dat alleen de rijen met dat woord in kolom B blijven en dat de rijen waarin dat woord niet voorkomt worden verwijderd.
Ps; de koptekstst regel moet ook blijven.

Ik hoop dat iemand mij hiermee kan helpen.

Bekijk bijlage HM DROOG .xlsm

 

[edmoor]

Ik denk dat je kolom C bedoelt?
Probeer deze maar eens en laat in regel 2 de eerste drie kolommen leeg:
Bekijk bijlage Kopie van HM DROOG .xlsm

 

[VenA]

of

Sub VenA()
  With Sheets(1).Cells(1).CurrentRegion
    .AutoFilter 3, "<>" & Sheets(1).Cells(2, 10)
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub

 

[snb]

Dat gaat niet lukken met het geplaatste bestand.

 

[SjonR]

Gezien je ongelukkige positie van het referentiewoord:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If Range("C2").Value <> Range("J2").Value Then Range("C2:I2").Delete

Dim LR As Long
LR = Cells.SpecialCells(xlCellTypeLastCell).Row
For X = LR To 3 Step -1
If Range("C" & X).Value <> Range("J2").Value Then Range("C" & X).EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

 

[SjonR]

Ons laten weten dat het is opgelost en vooral hoe, wordt altijd op prijs gesteld:thumb:

 

[edmoor]

Dat heb ik van de week al eens eerder meegemaakt. TS markeert een post als opgelost zonder een bericht achter te laten.
Ik vind het niet getuigen van fatsoen.

 

[SjonR]

Misschien leest TS het nog eens na, en denkt TS.... misschien heb ik straks nog een vraag....

 

[Depant]

Halllo allemaal.

Goedenavond,

Zoals jullie begrijpen kan ik eigenlijk niks met macro's.
Dus ik heb een optie gevonden die geweldig werkt.
Som begrijp ik niet waarom iets werkt, en iets anders niet.
De optie van VenA werkte goed, en heb alleen de locatie verandert van de te behouden waarde verandert.
Alleen hartelijk dank aan allen op dit forum.
Zo blij met jullie dat op 12-7 2017 10 euro in de kosten heb gedragen.(123456789013456005002828026973)

Hartelijkdank voor jullie hulp:thumb::thumb: