Naam toevoegen als-'ie de DVD al heeft geleend...

[stoof]

Hallo, ik hou een lijst bij met mijn DVD's. Soms leent mijn vader er wel eens maar nu wil ik dat zijn naam in een rij komt als hij hem heeft geleend. Als ik hem ook aan iemand anders uitleen wil ik dat zijn naam ook in die rij komt.
Weet iemand hoe ik dit kan doen?
Ik zet nu de namen via een pull-down-menu in een cel. Misschien dat hier een macro aan gekoppeld kan worden die automatisch de eerst lege cel in een rij pakt en daar die naam heen kopiëert (mits de naam al in één van de eerdere cellen staat...)?

 

[LucHeyndrickx]

Stoof,

Stel: De DVD's zitten in de A kolom
De gevalideerde cellen zijn de B kolom.

Rechtsklikken op je bladtab, en kiezen voor 'programmacode weergeven'.

Vervolgens plak je daar volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Cells(Target.Row, 256).End(xlToLeft).Offset(0, 1).Value = _
Target.Value
End If
End Sub

Luc

 

[stoof]

Luc, bedankt, hij werkt perfect!

 

[stoof]

Beste Luc, ik heb er ook nog een andere macro in staan, hoe combineer ik deze 2?

 

[LucHeyndrickx]

Hoi,

Het zou handig zijn indien je die macro hier ook 's post.
Indien te moeilijk mag je me het bestand ook doormailen.

Luc

 

[stoof]

Beste Luc, ik heb helemaal geen erg meer in je antwoord gehad, druk-druk-druk! Hier is mijn lijst, ik hoop dat je er uit kunt komen...

Groeten stoof