polnjenje listboxov

Pomoč pri izdelavi makrov
Odgovori
gogi
Prispevkov: 3
Pridružen: To Jan 16, 2007 12:36 am

polnjenje listboxov

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
Odgovori