Gegevens verplaatsen als ze gebruikt zijn in de gegevensvalidatie

[davylenders123]

Kan het volgende?

Als je op blad 1 in cel c7 een waarde kiest uit de gegevens validatie dat deze automatisch
in het tabblad Bron wordt verzet van kolom A naar kolom B.
En dat in tablad bron op zelfde rij kolom C de gegevens van blad1 cel C5 komen te staan .

Ter info: De pdf afbeelding maakt een pdf aan en slaat op met wat in cel c5 staat.

 

[AD1957]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C7" Then
    Set c = Sheets("bron").Range("A2:A97").Find(Target, lookat:=xlWhole)
        If Not c Is Nothing Then c.Resize(, 3) = Array(, Target, Target.Offset(-2))
End If
End Sub

 

[davylenders123]

Dit is hem helemaal .
Bedankt voor je snelle oplossing :thumb:

 

[davylenders123]

AD1957

Toch nog een probleempje.

Ik heb de cel c5 van blad 1 moeten wijzigen naar cel b7
En de cel c7 van blad 1 heb ik moeten wijzigen naar b14.

In de code is B14 gelukt maar de cel c5 naar b7 wijzigen lukt me niet.

Wat moet ik daar juist voor wijzigen.
Heb de getalen(, 3) en (-2)) al gewijzigd naar andere getalen maar hier lukt het blijkbaar niet mee.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B14" Then
    Set c = Sheets("Voertuig id").Range("A2:A900").Find(Target, lookat:=xlWhole)
        If Not c Is Nothing Then c.Resize(, 3) = Array(, Target, Target.Offset(-2))
End If
End Sub

 

[AD1957]

wat doet offset:
Target.offset(1,1) betekent 1 rij omlaag en 1 kolom verder
Target.offset(-1,3) betekent 1 rij omhoog en 3 kolommen verder
Target.offset(0,1) betekent 1 kolom verder

Dan moet het toch wel lukken.
En anders even gebruik maken van Google "VBA Offset"

 

[davylenders123]

Was iets te snel geweest met poste

Heb het ondertussen gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B14" Then
    Set b = Sheets("Voertuig id").Range("A2:A900").Find(Target, lookat:=xlWhole)
        If Not b Is Nothing Then b.Resize(, 3) = Array(, Target, Target.Offset(-7))
End If
End Sub