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): comboBox1.Clear 'ovo da izbrise item iz comboboxa ako ih je bilo
Dim LastRow As Long 'zadnji red
Dim rng As Range 'range
Dim ws As Worksheet 'ovo mi se svida nemoram pisati svaki put worksheet
Set ws = Worksheets("ImeList")
ws.Select 'vidis napisem samo ws umjesto worksheet
With ws
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'nade zadnji upotrebljeni red u stupcu A
Set rng = Range("A3:A" & LastRow) ' rangira u stupcu A od A3 do zadnjeg reda
Me.combobox1.list = rng.Cells.Value ' stavi u combobox na formi (Me) sve vrijednosti ranga
End With
Set ws = Worksheets("List1")
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 14:17 od strane Avko.