Prikazi cijelu temu 29.05.2015 13:14
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Popunjavanje combo boxa
ćek, ćek, ćekaj Å¡ta ti ono Private Sub ComboBox1_Enter()
e to moram isto prouciti ovaj enter mi je zanimljiv
u medjuvremenu ja nesto napravio i to radi:
PreuzmiIzvorni kôd (Visual Basic):
  1.     comboBox1.Clear 'ovo da izbrise item iz comboboxa ako ih je bilo
  2.    Dim LastRow As Long 'zadnji red
  3.    Dim rng As Range 'range
  4.    Dim ws As Worksheet 'ovo mi se svida nemoram pisati svaki put worksheet
  5.    
  6.     Set ws = Worksheets("ImeList")
  7.     ws.Select 'vidis napisem samo ws umjesto worksheet
  8.    With ws
  9.         LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'nade zadnji upotrebljeni red u stupcu A
  10.        Set rng = Range("A3:A" & LastRow) ' rangira u stupcu A od A3 do zadnjeg reda
  11.        Me.combobox1.list = rng.Cells.Value ' stavi u combobox na formi (Me) sve vrijednosti ranga
  12.    End With
  13.     Set ws = Worksheets("List1")
  14.     ws.Select 'vrati me na prvi list
sada cu isprobati od zxz, kod zato jer ima onu "famoznu" petlju For Each koja mi se svida, misteriozna je, a sigurno je kod manji i brze radi.
htio sam ja da uopce program ne upotrebljava Select ali izgleda da nemoze to. Trazio sam razliku izmedju Select i Activate i kazu(google prevoditelj):

Activate :čine Navedeni list aktivnu list, a može se primijeniti samo na jednom listu
Select: omogućiti izboru proÅ¡irenje trenutno odabrane listove uključiti određeni list, npr
Sheets(Array("Sheet3", "Sheet2")).Select
eto hvala na trudu i vama i meni i hvala gjoreskom na smijehu
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 29.05.2015 13:17 od strane Avko.