kopieren waarde naar juiste persoon

[Gerard2348]

Beste excel experts,

Wie kan mij helpen met het volgende.
In het bijgevoegde bestand heb ik een tabblad blad 1, lijst 01 en lijst 02.
Wat ik graag wil is het volgende. Wanneer er een lijst wordt ingevuld (lijst 01 of lijst 02) dan is het de bedoeling dan nadat de lijst (lijst 01 of lijst 02) is ingevuld de waarde van betreffende lijst cel G10 naar blad 01 wordt gekopieerd naar de eerst volgende lege cel achter de klant, beginnend bij kolom E, die overeenkomt met de naam van de klant uit de lijst 01 of lijst 02 Cel G3.

Bekijk bijlage vragenlijst.xlsm

 

[HSV]

Met bv. zoiets.

Sub hsv()
Dim c As Range
If Not ActiveSheet.Name = "Blad1" Then
 With Sheets("blad1")
  Set c = .Columns(2).Find(Range("G3").Value)
      If Not c Is Nothing Then
        c.Offset(, Application.Max(3, Application.Min(.Cells(c.Row, 15).End(xlToLeft).Column - 1, 14))) = Range("G10").Value
      End If
  End With
End If
End Sub

 

[Gerard2348]

Harry je bent de bovenste beste. Geweldig weer. Ben er blij mee

:thumb: