dotchieJack
Member
Hello everybody,
I have this code
But instead of looking in row 1 and repopulate the combobox, it should look in kolom A and renew the combobox
Thanks
I have this code
Code:
Private Sub CommandButton3_Click()
ComboBox1.Clear
Dim i As Long, lastcol As Long
lastcol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastcol
ComboBox1.AddItem ActiveSheet.Cells(1, i)
Next i
End Sub
Thanks