Wegschrijven naar lijst

[ACER10]

Wie kan mij op weg helpen...
Ik heb een reeks namen op sheet NAMEN die door gegevensvalidatie op sheet GROEP dienen te worden gekozen (2 paar namen)
Door te klikken op WEGSCHRIJVEN in sheet GROEP zouden die op de juiste plaats (kleurtjes) als paar dienen terecht te komen, en zouden
de namen op sheet GROEP moeten gewist worden.

Ik heb een klein voorbeeld gemaakt waar het uitgelegd is.

Het eigenlijke excel blad is te groot om dit hier te publiceren.


Dank bij voorbaat

 

[snb]

Private Sub CommandButton1_Click()
    sn = Range("B3:B6")
    
    With Blad3.Cells(Rows.Count, 2).End(xlUp).Offset(1)
       .Value = sn(1, 1)
       .Offset(1) = sn(2, 1)
       .Offset(, 2) = sn(3, 1)
       .Offset(1, 2) = sn(4, 1)
    End With

    Range("B3:B6").ClearContents
End Sub

 

[ACER10]

Beste snb,

Het werkt goed, maar kan Blad3 worden vervangen door een tabblad met een NAAM ? Bv. "LIJST" ?

Alvast bedankt.

Ed