[ neptuncokg @ 31.05.2010. 03:47 ] @
Pokusavam da dodam stavku u ListBox, i to tako da ceo jedan red iz sheeta bude AddItem. LisBox ima 15 kolona, i u sheetu ima 15 kolona. Ovaj kod ne prolazi:
P = Sheets("AAA").Rows(101) '101. red u sheetu AAA
R = lst1.ListCount - 1 'naredni red u LST
lst1.List(R, 0) = p ' naredni red, 1. kolona

Jedino upise ceo red u sve kolone (bas onako kako ja hocu) kad zadam:

lst1.list = P , ali tada prvo obrise ceo lst, sve redove, pa upise novi red pod indexom 1

A i tada mi brojeve iz sheeta upise kao "0", iako su u sheetu "0.00". !

Ako idem preko AddItem metode, onda upise samo podatak u prvu (nultu) kolonu. Zaista ne znam kako ovo da resim. Hvala unapred.
[ Jpeca @ 01.06.2010. 08:17 ] @
AddItem metoda dodaje prazan red u listu, ali kao što si primetio i kako piše u helpu, AddItem upisuje vrednost samo u prvu kolonu. Za ListBox (ComboBox) sa više kolona prvo pozovi AddItem da dobiješ novu stavku, a onda dodeli vrednosti kolonama u listbox-u koristeći svojstva List ili Column. Neka je rw broj reda koji dodaješ u listu, a clLast poslednja kolona iz reda koja treba da se doda u listbox-u

Code:

  Me.ListBox1.AddItem sh.Cells(rw, 1).Text ' Nova stavka u listi
  For cl = 1 To clLast - 1                         ' Popunjavanje ostalih kolona za stavku
     Me.ListBox1.Column(cl, Me.ListBox1.ListCount - 1) = sh.Cells(rw, cl + 1).Text
  Next cl
  rw = rw + 1


Obrati pažnju da indeksi u Listbox kontroli počinju od 0, a ne kao na radnom listu od 1. Zato ovo +1 i -1
[ neptuncokg @ 01.06.2010. 10:35 ] @
Mislim da sam razumeo. Na zalost, kod mene prijavljuje gresku u kodu, kad pokusam da odradim proceduru. Pozdrav i hvala.
[ FOX028 @ 01.06.2010. 10:58 ] @
kod mene radi, ali tek kad sam zamenio umesto 1 stavio sam 0, verovatno zato sto index pocinje od 0 a index 1 ne postoji.

Me.ListBox1.ListIndex = 0
[ neptuncokg @ 01.06.2010. 11:15 ] @
I kod mene - to je to. Hvala