davylenders123
Gebruiker
- Lid geworden
- 20 jun 2010
- Berichten
- 902
Heb via het forum volgende code bekomen.
Deze verzet de gegevens van kolom A naar kolom B en zet in kolom C de gegevens van Cel B7
nu zou ik hier willen aan toevoegen dat in kolom D de gegevens van cel B16 komt te staan.
Hoe moet ik dat doen ?
Deze verzet de gegevens van kolom A naar kolom B en zet in kolom C de gegevens van Cel B7
nu zou ik hier willen aan toevoegen dat in kolom D de gegevens van cel B16 komt te staan.
Hoe moet ik dat doen ?
Code:
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
End Sub