Vertikaalzoeken VBA, maar met zoekwaarde kolom 2

[HWV]

Beste,

ik grbuik onderstaande code, om via VBA verticaal te zoeken.
Wat ik voorelkaar wil krijgen is dat hij ipv kolom (1) pakt op de sheet orderbon, maar dat hij kolom (2) pakt, om zijn zoekwaarde vandaan te halen.

Het moet volgens mij ergens in het rode stukje zitten, maar ik kom er niet uit

On Error Resume Next
    For j = 17 To Sheets("Orderbon").Cells(Rows.count, 1).End(xlUp).Row
    With Workbooks("901- KP-Fiche Topic Default.xls").Sheets("Data1").Columns(1).[COLOR="red"]Find(Sheets("Orderbon").Cells(j, 1)[/COLOR].Value, , xlValues, xlWhole)
        .Offset(, 3).Copy Sheets("Orderbon").Cells(j, 16)
    End With
  Next

Groet HWV

 

[ExcelAmateur]

HWV,

Maak van Cells(j, 1) eens Cells(j, 2)
Of het moet de Colomns(2) zijn.
Loop anders eens met F8 door de code, kun je zien wat er gebeurd.
Anders zet je even het bestandje, zonder gevoelige info hier.

 

[HWV]

Beste,

Ik had inderdaad die optie al geprobeerd dan pak hij enkel de bovenste en niet de gehele kolom, ik heb een voorbeeld bijgesloten
Bekijk bijlage test_HWV.xls

Groet HWV

 

[E v R]

zo krijg ik allemaal ceetjes in kolom P: op tabblad orderbon:

Sub tst()
On Error Resume Next
    For j = 1 To Sheets("Orderbon").Cells(Rows.Count, 2).End(xlUp).Row
    With Sheets("Data1").Columns(1).Find(Sheets("Orderbon").Cells(j, 2).Value, , xlValues, xlWhole)
           .Offset(, 3).Copy Sheets("Orderbon").Cells(j, 16)
    End With
  Next
End Sub

 

[HWV]

Sub tst()
On Error Resume Next
    For j = 1 To Sheets("Orderbon").Cells(Rows.Count, [COLOR="DarkRed"]2[/COLOR]).End(xlUp).Row
    With Sheets("Data1").Columns(1).Find(Sheets("Orderbon").Cells(j, 2).Value, , xlValues, xlWhole)
           .Offset(, 3).Copy Sheets("Orderbon").Cells(j, 16)
    End With
  Next
End Sub

Het rode gedeelte was ik vergeten aan te passen

Perfect nu werkt het wel

Groet HWV