Pozdravljeni,
imam kodo s katero polnim listboxe
r1=...
r2=...
ListBox1.ColumnCount = 12
ListBox1.RowSource = ("a" & r1 & ":m" & r2)
napolni mi listbox v nekih dolocenih mejah.
Problem se pojavi, ko hocem listbox napolnit z vrstico, ki ustreza nekemu pogoju, torej si vrsice ne sledijo v zaporedju...
poskusal sem s kodo
For i=1 to 100
Range("a" & i)
If Selection = pogoj Then
ListBox1.ColumnCount = 12
ListBox1.RowSource = ("a" & r1 & ":m" & r2)
End If
Next j
to sicer deluje, ampak ne kot bi zelel, ker mi vsaka vrstica, katera ustreza pogoju, prepise prejsno, na koncu imam v listboxu samo eno-zadnjo vrstico, ki izpolnjuje pogoj.
prosim za pomoc, hvala
polnjenje listboxov
Ne more iti tako, kot ste si zamislili, saj v vašem primeru ob vsaki iteraciji na novo postavite območje od koder naj se seznam napolni. In to seveda pomeni, da obvelja samo zadnje območje oz. zadja vrstica.
Pravilno rešitev sem vam povedal že v eni izmed starih tematik. Seznama ne polnite preko območja na listu temveč v seznam dodajate posamezne element s funkcijo AddItem: http://www.matjazev.net/forum/viewtopic ... ht=listbox
Pravilno rešitev sem vam povedal že v eni izmed starih tematik. Seznama ne polnite preko območja na listu temveč v seznam dodajate posamezne element s funkcijo AddItem: http://www.matjazev.net/forum/viewtopic ... ht=listbox
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator