ListBox'u Sayfaya Aktarma

[moresby]

listboxu sayfaya nasıl aktarabilirim şimdiden tşk

 

[Mahmut Bayram]

soru anlamsız gibi geldi bana. listboxtakileri mi? acaba

 

[Ongun]

Merhaba, aşağıdaki link`i incelermisiniz. Kolay gelsin

http://www.excel.web.tr/viewtopic.php?t=5265&highlight=listbox

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:934d468874]Private Sub CommandButton16_Click()
Sheets("sayfa4").[a2:c65536].ClearContents
For sat = 1 To ListBox2.ListCount - 1
For sut = 1 To 3
Sheets("sayfa4").Cells(sat + 1, sut) = ListBox2.List(sat, sut - 1)
Next: Next
End Sub[/vb:1:934d468874]

 

[moresby]

leventm, teşekkürler

 

[Ongun]

Private Sub CommandButton16_Click()
Sheets("sayfa4").[a2:c65536].ClearContents
For sat = 1 To ListBox2.ListCount - 1
For sut = 1 To 3
Sheets("sayfa4").Cells(sat + 1, sut) = ListBox2.List(sat, sut - 1)
Next: Next
End Sub

Sayın leventm, yukarıdaki kodlara göre sayfaya yazdırabiliyoruz. Elinize sağlık. Peki merak ettiğim şu sayfa4 de "Sheets("sayfa4").[a2:c65536].ClearContents" bu kodla silmeden satır satır yine aynı sayfaya eklemek için ne yapmak lazım. Yani listbox`a farklı sayfalardan verileri getiriyorum. Bu verilerden istediğimi sayfa4 de alt alta aktarmak istiyorum. Bu konuda yardımcı olursanız sevinirim. Saygılarımla

 

[Levent Menteşoğlu]

Sheets("sayfa4").[a2:c65536].ClearContents

Bu kod en başta sayfayı temizlemek içindir. Bunu yapmazsanız, butona bir sonraki basışınızda eğer veri sayısı bir önceki aktarmadan az ise sorun oluşturacaktır. Zaten bu kod sayfa4 e listboxtaki verileri altalta yazmaktadır.

 

[moresby]

Bu kodla 9 tane veriyi aktardıktan sonra hata veriyor. Bu kodla 12-13 veriyi sayfaya aktarmak mümkünmü?

 

[moresby]

yada bu formülün alternatifi varmı acaba?

 

[Levent Menteşoğlu]

Bu kodla 9 tane veriyi aktardıktan sonra hata veriyor. Bu kodla 12-13 veriyi sayfaya aktarmak mümkünmü?

Bu kodla aktarılacak veride sınırlama yoktur. Hata vermesi mantığınıda açıkçası anlayamadım.

 

[moresby]

özellikle çok denedim 9 da sııntı vermiyor ama 10 dan sonra hata veror ben işin içinden çıkamayınca size başvurdum tşk

 

[moresby]

Sheets("sayfa4").[a2: ???? 65536].ClearContents
For sat = 1 To ListBox2.ListCount - 1
For sut = 1 To ???

leventm, kusura bakma tekrar sorucam ama acaba ?? konulan yerlerle oynayarak genişletmeye çalıştım acaba başka şekildemi yapılacaktı Tşk ederim

 

[Levent Menteşoğlu]

Sn moresby

"Yazılan kod 9 dan sonra hata veriyor" dediğinizde bu hiç bir şey ifade etmez, buna karşın "ben kodda şöyle bir değişiklik yapmıştım. Fakat kod 9 dan sonra hata veriyor" derseniz bu bir şey ifade eder. Sorunuzu tüm detayı ile ifade ederseniz hem siz çabuk cevap alırsınız, hemde cevap verecek kişileri gereksiz yere meşgul etmemiş olursunuz.

Sheets("sayfa4").[a2: ???? 65536].ClearContents

Buradaki değişiklik kodda hataya neden olmaz.


For sut = 1 To ???


Buradaki değişiklik hataya neden olur. ??? işaretli yere en fazla listboxtaki sütun sayısı kadar sayı yazabilirsiniz. Fazla yazılması hataya neden olacaktır.

 

[moresby]

tşk sorunum çözüldü