uitdaging excel

[dennisj]

Hallo allemaal,

Heb een lijst kunnen maken waar waardes gevonden kunnen worden, maar er is een optie dat ik niet kan realiseren.
Ik wil graag bij het invoeren van een waarde dat deze gevonden wordt en vervolgens wordt toegevoegd aan het aantal op voorraad (bestaande aantal).

Dus als ik naar nummer 123 (met een voorraad van 10) zoek en deze wordt gevonden in de lijst, dan wordt de voorraad met 1 toegevoegd (dus 11 in totaal).

Misschien iemand hier die weet hoe dat moet.

Alvast bedankt!

 

[Timshel]

Waar is je voorbeeldbestand?

 

[dennisj]

Bekijk bijlage Zoekfunctie.xlsxBekijk bijlage Zoekfunctie.xlsx

 

[Timshel]

Plak eens deze code in de module van het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Range
    If Target.Address = "$B$15" Then
        Set Cl = Range("B3:B14").Find(Target.Value, , , xlWhole)
        If Not Cl Is Nothing Then Cl.Offset(, 1).Value = Cl.Offset(, 1).Value + 1
    End If
End Sub

 

[dennisj]

Perfect! erg bedankt, het enige is bij 0 waarde excel het eerst volgende cell vult met +1.
Maar daar kom ik wel achter.

Super bedankt!