VBA code voor verwijderen rij als cel gelijk is aan kolom

[mrhypefm]

Beste mensen,

Ik ben op zoek naar een vba code voor het verwijderen van een kolom

De bedoeling is dat als er bijvoorbeeld "XL 001" in cel D10 word ingevuld dat hij XL 001 zoekt op het blad "In gebruik" en hij de rij verwijderd waar XL 001 voorkomt in kolom B

Ik hoop dat jullie mij kunnen helpen

Alvast bedankt!

Pascal

 

[HSV]

Uit mijn hoofd, maar ik heb net een truc geleerd van @snb om er een fout in te maken.

sub hsv()
dim c as range
set c = sheets("in gebruik").columns(2).find("XL 001",,xlvalues,xlwhole)
if not c is nothing then c.entirerow.delete
end sub

 

[mrhypefm]

Hey harry,

Bedankt! Het is de bedoeling dat als ik de tekst verander in cel d10 dat hij dan de rij verwijderd met die tekst dus als ik xl 001 vervang door xl 002 in die cel dan moet hij de rij met xl 002 verwijderen. hoe zet ik dat in de code dat hij zoekt met de waarde wat er dan in die cel staat ipv een vaste waarde

 

[HSV]

Hoi Pascal,

De eerste regel kan ik niet onthouden, dus even in een werkblad gekeken.

Private Sub Worksheet_Change(ByVal Target As Range)
dim c as range
if target.address = "$D$10" then
set c = sheets("in gebruik").columns(2).find(target.value, , xlvalues,xlwhole)
if not c is nothing then c.entirerow.delete
end if
end sub

 

[mrhypefm]

Super! Werkt helemaal bedankt!