Zoeken naar eenzelfde waarde n een kolom en actie uitvoeren

[Tekik]

Als ik een code ingeef (verandering celinhoud) dan moet automatisch de omschrijving en de prijs in het overzicht worden gezet.
Soms wordt meerdere keren dezelfde code in dezelfde kolom ingegeven.
Mijn probleem is dat als je bijv. Code 2 ingeef en die stond al in de kolom, de macro altijd de eerst ingegeven code2 selecteert terwijl deze
normaal moet zoeken naar de volgende ingegeven code 2 waar nog geen omschrijving/prijs naast staat
Ik heb al uren gezocht maar vind de oplossing niet. Wat hulp zou mij enorm plezieren.
Alvast bedankt

 

[VenA]

Vermijd het gebruik van samengevoegde cellen. (geeft vaak problemen in combinatie met VBA) Zo beter?

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  If Not Intersect(Target, Range("A16:A36")) Is Nothing And Target.Value <> "" Then
    Set r = Columns(18).Find(Target.Value, , xlValues, xlWhole)
    Target.Offset(, 3) = r.Offset(, 1).Value
    Target.Offset(, 9) = r.Offset(, 2).Value
  End If
End Sub

 

[Tekik]

Beste VeNa, bedankt voor de snelle reply en de duidelijke formulering. Alleen heb ik nog het probleem dat wanneer ik de waarde in de cel of range verander dat er niks gebeurd of m.a.w. de macro wordt niet uitgevoerd.
Heb dit nog nooit voorgehad.

Nog even getest en alles werkt. Had blijkbaar een letter teveel gezet. Hartelijk dank en mijn excuses