zoek en vul aan

[Dummy1912]

Hallo,


ik zou graag een naam zoeken in range(B en met een loop de range(A waar de naam in range(B tegenkomt
aanvullen met "TRUE"

iemand een idee aub?

Set findvalue = Sheet5.Range("A10000:H10000").Find(what:="JOHN DOE", LookIn:=xlValues, LookAt:=xlWhole)

maar ik heb geen idee hoe ik deze in een loop kan plaatsen om zo te zoeken naar JOHN DOE in het hele sheet5
en waar JOHN DOE staat nemen we range(A en vullen 'True" in
en range(B komen wij niet aan willen de naam niet wijzigen alleen de column A aanvullen met string "True"

Dank u

 

[Jack Nouws]

Bedoel je zo?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub VindNaam()
  For Each c In Range("B1:C38")
    If c.Value = "John Doe" Then Cells(c.Row, 1) = "'TRUE"
  Next
End Sub
[/FONT]

 

[VenA]

De beschrijving komt niet overeen met de code. In de code zoek je in de kolommen A t/m H. Dus wat moet het worden? Plaats een voorbeeldbestand. Is in jouw andere draadje ook al om gevraagd.

 

[Dummy1912]

Hallo Jack,

bedankt voor je berichtje

ja dit is het, bedankt het werkt