polnjenje listboxov

[gogi]

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

[admin]

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