Hoi allemaal,
Harstikke nieuw hier, lijkt me een leuk forum. Vraagje probeer de waardes van gevude cellen in kolom B te laten zien in een combobox.
Heb nu dit, maar krijg hem niet goed..
Private Sub ComboBox1_Initialize()
Dim r As Long
For r = 1 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1).Value <> "" Then
ComboBox1.AddItem Cells(r, 1).Value
End If
Next
End Sub
Jullie weten dit vast...
Dank!
Harstikke nieuw hier, lijkt me een leuk forum. Vraagje probeer de waardes van gevude cellen in kolom B te laten zien in een combobox.
Heb nu dit, maar krijg hem niet goed..
Private Sub ComboBox1_Initialize()
Dim r As Long
For r = 1 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1).Value <> "" Then
ComboBox1.AddItem Cells(r, 1).Value
End If
Next
End Sub
Jullie weten dit vast...
Dank!