Listboxtan hücreye veri aktarma problemi...

[nitrocerix]

Arkadaşlar ben anladığınız üzere yeni başladım. Bir konuda yardımınıza ihtiyacım var.
Listboxtan hücreye veri aktarmayı yapabiliyorum. Kod Şöyle

Range ("A1:A10").Value = Listbox1.List

Şimdi sorunun birisi şu listeye 10 adet giriş yapınca problem yok ancak 10'dan az veri girişi yapınca (mesela 7 tane ) kalan boş hücrelere ( kalan 3 hücreye) #YOK değeri veriyor.
İkincisi ise sadece 1 tane giriş yapınca A1' den A10' a kadar bütün hücrelere aynı değeri yazıyor.
Bunları atlamam için nasıl birşey öneririsiniz?

Not: Listbox' a ekleme işini butondan doğru AddItem komutuyla yaptım. Bilgi olsun diye söylüyorum belki lazım olur

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]sat =Listxox1.ListCount
sut = ListBox1.ColumnCount
Range("a1:" & Cells(sat, sut).Address) =ListBox1.List

[/LEFT]

 

[nitrocerix]

Teşekkürler hemen deneyeceğim...