Foute waarde met verticaalzoeken VBA

[HWV]

Beste,

Ik gebruik een VBA code om verticaal te zoeken in mijn sheet.
Gaat goed tot dat er bijna 2 identieke nummers voor komen:

4426501
4426501K
442653
442653d

Ik heb dus nummers met een letter er achter, met de code hieronder verplaats ik een formule vanuit mijn begin map waar ik wat voorwerk in heb gedaan.
(Omdat ik een party voorraad moet vullen met verticaal zoeken met meerdere dezelfde nummers er in moet ik dus de formule (omrekening die van toepassing is op dat artikel meenemen))
Nu pakt hij de verkeerde omrekening i.v.m. dat met de letter er achter soms maal een factor 4 is dus mijn voorraad wordt ineens 4 keer zo veel op dat artikel.
Hoe kan ik er voor zorgen dat hij echt op identieke nummers zoekt.

Hieronder de code die ik van Rudi/SNB heb gekregen:thumb: waar ik nu werk

Sub VerticaalZoeken () 
On Error Resume Next
    For j = 4 To Sheets("PartyVoorraad1").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("ArtikelConversie Output1").Columns(1).Find(Sheets("PartyVoorraad1").Cells(j, 1).Value)
        .Offset(, 173).Copy Sheets("PartyVoorraad1").Cells(j, 174)
        .Offset(, 172).Copy Sheets("PartyVoorraad1").Cells(j, 173)
        .Offset(, 131).Copy Sheets("PartyVoorraad1").Cells(j, 132)
        .Offset(, 28).Copy Sheets("PartyVoorraad1").Cells(j, 29)
        .Offset(, 35).Copy Sheets("PartyVoorraad1").Cells(j, 36)
        .Offset(, 30).Copy Sheets("PartyVoorraad1").Cells(j, 31)
        .Offset(, 25).Copy Sheets("PartyVoorraad1").Cells(j, 26)
        .Offset(, 27).Copy Sheets("PartyVoorraad1").Cells(j, 28)
    End With
  Next
End Sub

Groet HWV

 

[Warme bakkertje]

With Sheets("ArtikelConversie Output1").Columns(1).Find(Sheets("PartyVoorraad1").Cells(j, 1).Value[COLOR="Red"],,xlvalues,xlwhole[/COLOR])

 

[HWV]

Bedankt

Rudi,

Bedankt voor het meedenken, ik ga het zo spoedig mogelijk proberen.
Maar het zal ongetwijfeld werken

groet Henk