Userform

[jpvs]

Wat aan het stoeien met UserForm :

Hoe kan ik de 2 textboxen vullen aan de hand van 1combobox?
zie bijlage

 

[Wigi]

Hier is de code voor achter UserForm1:

Private Sub ComboBox1_Change()
    UserForm1.TextBox1.Text = Range("B" & UserForm1.ComboBox1.Value + 1)
    UserForm1.TextBox2.Text = Range("C" & UserForm1.ComboBox1.Value + 1)
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
   With ComboBox1
    .RowSource = "Volgnr"
    .ListIndex = 0
    End With
    
  'Cells.Find (TextBox1.Value & TextBox2.Value)
  'TextBox1.Text = Range("A") & ComboBox1.ListIndex
End Sub

Wigi

 

[jpvs]

Hier kan ik prima mee verder.

Goed weekend,

Pierre