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
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