combobox (userform) met meerdere kolommen naar verschillende cellen overzetten

Status
Niet open voor verdere reacties.
SjonR

SjonR

Verenigingslid
Lid geworden
10 nov 2016
Berichten
3.317
Goedendag allemaal,

Ik heb een combobox in een userform waarbij ik in de eerste kolom de naam van een persoon heb staan en in de tweede kolom de teamnaam van de persoon.

Voorbeeld:

KOLOM 1 Kolom 2
Piet de Vries Team 12

Nu wil ik dat bij het uitvoeren van het gehele userform de naam in kolom C van de sheet komt en de teamnaam in kolom N.

Ik kom niet verder dan waarde 1 of waarde 2 te laten verschijnen. Wie weet een (de) manier?

Bij voorbaat dank.

Sjon Rietvink
 
Hoi, welkom op het forum :)
maar post eens een vb bestandje, dan wordt je sneller geholpen.
 
bedankt

Bedankt Philiep,

Hier kom ik verder mee.

Gr.

Sjon
 
Mooi zo:thumb:
Maar post er in het vervolg een vb bestandje bij.;)
 
Mijn voorkeur:

Code: 
Private Sub UserForm_Initialize()
    ComboBox1.List = Sheets("Gegevens").Range("A2:B9").Value
End Sub

Private Sub CommandButton1_Click()
   If ComboBox1.ListIndex > -1 Then
      With Blad1.Cells(Rows.Count, 3).End(xlUp).Offset(1)
         .Value = ComboBox1.Column(0)
         .Offset(, 11) = ComboBox1.Column(1)
      End With
    End If
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan