Problemen met gegevens uit een ander blad

[perry99]

Hallo,

IK heb een VBA die op 1 aktie na perfect werkt, echter die ene aktie krijg ik niet voor elkaar.
Heb van alles geprobeerd maar ik kom er niet uit.
Ik hoop dat één van jullie mij met het volgende probleem kan helpen.
Volgens de VBA zoekt de code die ik ingeef in kolom 2 van blad opname in het blad standaard en zet vervolgens de gegevens welke in het blad standaard staan in het blad opname.
Tot dusver gaat het goed, echter als ik in het blad in kolom C het aantal wijzig, wijzigt niet het bedrag welke in kolom E staat.
Ik hoop dat iemand mij met deze VBA kan helpen zodat ook automatisch het bedrag veranderd op het moment dat het aantal wijzigd.
Een voorbeeld heb ik bijgevoegd.

Alvast bedankt voor het meedenken.

Groetjes,

Perry :thumb::thumb::thumb::thumb:

Bekijk bijlage testbestand prijzen.zip

 

[HSV]

Zoiets Perry?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
x = Target.Value

    Set B1 = Worksheets("standaard").Cells.Find(x, , xlValues, xlWhole)
      If B1 Is Nothing Then ActiveCell.Offset(-1, 0).ClearContents: ActiveCell.Offset(-1, 1).ClearContents: ActiveCell.Offset(-1, 0).Select: MsgBox "artikelnummer leverancier niet gevonden": Exit Sub
        If Not B1 Is Nothing Then
      Target.Offset(, 2) = B1.Offset(, 1).Value
      Target.Offset(, 3) = B1.Offset(, 2).Value * Target.Offset(, 1)
    End If
 
 ElseIf Target.Column = 3 Then
    y = Target.Offset(, -1)
      Set B2 = Worksheets("standaard").Cells.Find(y, , xlValues, xlWhole)
        Target.Offset(, 2) = Target.Value * B2.Offset(, 2)
    End If

End Sub

 

[perry99]

Hallo Harry,

Yes, dit is inderdaad de bedoeling.

Mijn hartelijke dank voor het meedenken van mijn probleem.

Het is maar goed dat er zulke mensen als jij zijn die andere helpen met hun excel problemen.

Ik maar één ding hierover zeggen en dat is: RESPECT

Nogmaals mijn dank.

Groetjes,

Perry :thumb::thumb::thumb:

 

[HSV]

Graag gedaan Perry.
Mooie woorden.
Een mens heeft toch een hobby nodig.