EXCEL-Ceo red iz sheeta kao Lst1.AddItem

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.

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



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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Mislim da sam razumeo. Na zalost, kod mene prijavljuje gresku u kodu, kad pokusam da odradim proceduru. Pozdrav i hvala.

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

Potpis

[email protected]=