Predmet:Popunjavanje combo boxa
PreuzmiIzvorni kôd (vbnet): Dim list As String
Dim broj As Integer
Sheets("Sheet2").Select
ActiveSheet.Range("A3").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
broj = Selection.Count + 2
list = "sheet2!A3:A" & broj
ComboBox1.ListFillRange = list
Sheets("Sheet1").Select
Prilozi:
Book1.zip
Preuzimanja:363
Velicina datoteke:11.24 KB
Ovaj post je ureden
1
puta. Posljednja izmjena 27.05.2015 23:08 od strane dexxxl.