Volledige rij verwijderen bij bepaald antwoord in cel

[pcbaar]

Goedemorgen,

Is het ook mogelijk om de volledige rij automatisch te laten verwijderen indien in de rij een het bepaald antwoord in een cel gevuld is?

Hoor het graag

Alvast bedankt

Met vriendelijke groet,

Cor Baar

 

[edmoor]

Ja, met een stukje VBA.

 

[pcbaar]

Bedankt voor reactie

Bedankt voor je reactie,

Mooi dat het wel mogelijk is. Hoe ziet de VBA er dan uit?

Alvast bedankt

 

[edmoor]

Dat ligt eraan hoe je document eruit ziet en op welk woord je wilt controleren en dat soort zaken meer.
Een voorbeeld document is dus wel gewenst.

 

[pcbaar]

Reactie

Zodra er in Kolom G de getallen 393851, 288888, 34606, 63800 en 114642 wil ik de rij volledig verwijderd hebben

Kan helaas geen excelbestand sturen (ivm privacy gevoelige informatie)

Hoor graag van je

Alvast bedankt

Mvg,

Cor

 

[edmoor]

Zoals ik dan een voorbeeldje zou moeten maken om te laten zien hoe de code er uit ziet en waar dat moet komen, kan je zelf ook een voorbeeld maken en dat is waar ik om vroeg, niet het originele bestand.

 

[pcbaar]

Reactie

Bijgaand het bestand zoals aangegeven in Kolom G wil ik dat als de getallen 393851, 288888, 34606, 63800 en 114642 voorkomt de rij volledig verwijderd hebben

Alvast bedankt

Bekijk bijlage Jaarkosten 2017.xlsx

 

[edmoor]

En wil je dan een knop om die actie te kunnen starten voor alle rijen?

 

[pcbaar]

Reactie

Als dat mogelijk is heel graag

Alvast bedankt

mvg,

Cor

 

[HSV]

Hang de code aan een knop.

Sub hsv()
With Cells(1).CurrentRegion
 .AutoFilter 7, Array("393851", "288888", "34606", "63800", "114642"), xlFilterValues
 .Offset(1).EntireRow.Delete
 .AutoFilter
End With
End Sub