..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

polnjenje listboxov

Pomoč pri izdelavi makrov

polnjenje listboxov

OdgovorNapisal/-a gogi » Pe feb 23, 2007 5:10 pm

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
gogi
 
Prispevkov: 3
Pridružen: To jan 16, 2007 12:36 am



Matjazev.NET
 

OdgovorNapisal/-a admin » Če mar 01, 2007 10:22 pm

:) 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.php?t=468&highlight=listbox
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3428
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron