waarde aanpassen in 2e bestand

Beste helpers van het forum,

Momenteel probeer ik een klein volgend projectje te maken, een waarde aanpassen in een kolom van een ander bestand. Het is me bedoeling om vanuit het userform vanuit bestand 1, het op te zoeken nummer die in cell c4 staat, blad 1 van bestand 1. Dit nummer moet worden opgezocht in bestand 2, blad 3 in de B kolom, en daarna in de C kolom de waarde aanpassen aan "ja". Nou heb ik dit kunnen maken tot op heden toe: (uiteraard zal deze script veel langer zijn als dat noodzakelijk is, maar dit begrijp ik)

Dim offnr As Object
Set offnr = Range("C4")

Workbooks.Open Filename:="F:\TEST.xlsb"

Sheets("Totale overzicht offertes").Visible = True
On Error Resume Next
Sheets("Totale overzicht offertes").Select

Cells.Find(What:=offnr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
x = y + 1
Loop Until Cells(x, y).EntireRow.Hidden = False
Cells(x, y).Select
ActiveCell.FormulaR1C1 = "ja"

Nou gaat het goed tot het openen van het bestand, daarna wil hij niet meer de aangegeven waarde opzoeken in kolom B, maar als ik de script in bestand 2 zet dan zoekt hij wel de waarde, selecteert die cell, alleen zet hij het "ja" op de hele verkeerde plaats (ergens bovenaan). Ik snap even niet wat voor fout ik hierin maak. Kan iemand mij een duwtje in de goede richting geven??

Alvast hartelijk bedankt voor alle hulp.

Gr, stephan

Laat maar hangen, ik heb het probleem al gevonden. :thumb::thumb::thumb:

Kijk eens op de link, kun je zien hoe je de code tags moet gebruiken.

bedankt voor de tip ExcelAmateur....

Hierbij voor de liefhebber het werkende voorbeeld zoals ik hem nu heb

Sheets("Totale overzicht offertes").Visible = True
On Error Resume Next
Sheets("Totale overzicht offertes").Select

Dim rw As Long
Dim ws As Worksheet
Set ws = Worksheets("TEST")

rw = ws.Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row

With ws
.Cells(rw, 3).Value = "nee"
End With
ActiveWorkbook.Save
ActiveWorkbook.Close