Zoeken naar en in data

[caffie]

Ik ben op zoek naar een VBA zoek opdracht.

Ik heb een lijst met data deze heb ik op D11 staan.
Als deze verandert moet de nieuw gekozen waarde worden ingevuld op F11.
(dat staat in de 2 kolom van de gevonden regel in het blad "S-in")
Tevens moet D15 worden ingevuld met dezelfde zoek waarde maar met maar de data uit de 3 kolom van S-in.
Hierna moet D15 worden gebruikt als zoek opdracht in C-uit en wil ik de gevonden data hebben in F15.


Ik kom er niet uit.
Wie geeft een opzet waar ik weer verder mee kan.

De lijst is nu heel kort maar moet wel verder uitgebreid worden
Ga de data uitbreiden als het werkt.

Ik zoek dus een begrijpelijke VBA formule.

Gewoon lekker simpel dat is voor mij al moeilijk genoeg


Vast bedankt

 

[HSV]

Maak een validatielijst in D11 van de gegevens in kolom A van S-in.

Zonder foutafhandeling; alle gegevens moeten dus aanwezig zijn.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, cc As Range, sh As Worksheet
Set sh = Sheets("C-uit")
With Target
   If .Address = "$D$11" Then
      Application.EnableEvents = False
       Set c = Sheets("S-in").Columns(1).Find(Target)
        .Offset(4) = c.Offset(, 2)
        .Offset(, 2) = c.Offset(, 1)
       Set cc = sh.Cells.Find(Target.Offset(4).Value)
        .Offset(4, 2) = cc.Offset(, IIf(cc.Column = 3, -1, 1))
      Application.EnableEvents = True
  End If
End With
End Sub

 

[caffie]

bedankt

werkt prima