prijs weergeven als ordernummer wordt ingetypt

[patjepatrick]

Beste helper,

Ik ben al een tijdje bezig maar kom er niet uit.

Al mijn ordernummers staan in een cel met in de cel daarachter de prijs.
Nu wil ik dat als ik op een ander blad het ordernummer intyp, dat de prijs daar automatisch naast komt te staan.

vb.
100 12 euro
101 14 euro
102 28 euro
enz

Op het volgende blad typ ik nu 100 in. En dan wil ik dat daarnaast dus 12 euro komt te staan.
Maar als ik 101 intyp wil ik dat er 14 euro komt te staan. enz

Dit wil ik dan voor een zo'n honderd ordernummer.

Is dit mogelijk en hoe?

Vriendelijk bedankt,

Patrick

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then 'cel met ordernummer
    on error resume next
        With Sheets("naam van je werkblad met ordernrs").Columns(1) ' kolom waarin alle ordernummers staan
                .Find(Target.Value, , xlValues, xlWhole).offset(,1).Copy target.offset(,1)
       End With
   End If
End Sub

 

[patjepatrick]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then 'cel met ordernummer
    on error resume next
        With Sheets("naam van je werkblad met ordernrs").Columns(1) ' kolom waarin alle ordernummers staan
                .Find(Target.Value, , xlValues, xlWhole).offset(,1).Copy target.offset(,1)
       End With
   End If
End Sub

Ik kom er nog steeds niet echt uit. Ik begrijp dat ik hiervan een macro moet maken??
en wat moet ik dan precies invullen.
M'n ordernummer staan nu van cel A3 tot cel A10 onder elkaar. Met daarnaast van B3 tot B10 de prijzen. Hoe moet ik dit nu precies invullen??

B.v.d.

 

[Cobbe]

Dit lijkt mij toch meer een Vert.Zoeken geval.

 

[patjepatrick]

Dit lijkt mij toch meer een Vert.Zoeken geval.

??

 

[Cobbe]

Als je zelf geen voorbeeld post zal ik maar zelf een maken.

 

[patjepatrick]

Het is me gelukt met Vert.zoeken

Bedankt allebij!!!!