Prikazi cijelu temu 27.05.2015 23:01
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Lokacija:Knjazevac


Predmet:Popunjavanje combo boxa
PreuzmiIzvorni kôd (vbnet):
  1.     Dim list As String
  2.     Dim broj As Integer
  3.     Sheets("Sheet2").Select
  4.     ActiveSheet.Range("A3").Select
  5.    
  6.     ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  7.    
  8.     broj = Selection.Count + 2
  9.     list = "sheet2!A3:A" & broj
  10.     ComboBox1.ListFillRange = list
  11.     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.