DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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ımlaPrivate 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
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.Sheets("sayfa4").[a2:c65536].ClearContents
Bu kodla aktarılacak veride sınırlama yoktur. Hata vermesi mantığınıda açıkçası anlayamadım.Bu kodla 9 tane veriyi aktardıktan sonra hata veriyor. Bu kodla 12-13 veriyi sayfaya aktarmak mümkünmü?
leventm, kusura bakma tekrar sorucam ama acaba ?? konulan yerlerle oynayarak genişletmeye çalıştım acaba başka şekildemi yapılacaktı Tşk ederimSheets("sayfa4").[a2: ???? 65536].ClearContents
For sat = 1 To ListBox2.ListCount - 1
For sut = 1 To ???