excel kodlardan anlayan var mı ? Yardım

bir arkadaşımın isteği var beni aştı bakabilirmisiniz acaba.



Rapor alırken "frmRapor" user formunda
VERITABANI ndan sadece 10 sütun alıyor.
VERITABANI'ndaki 17 sütun değerlerini
hem 1.listbox a "lstBaslik"
hem de 2.listbox a "lstRapor" almasını istiyorum.

for 1 to 9 çalışıyor ama
for 1 to 15... çalışmıyor.

Teşekkür ediyorum şimdiden.

:!: :roll:

coulonb count için max sayı 10 dur varsayılan değeri 1 dir -1 yazılırsa kullanılabilir bütün sütunlar görüntülenir.Kısaca 17 sütunu tek listboxta görüntüeyemezsin

Veritabnındaki satırları tüm hücreleri doldurarak 30 satır yap çalışacaktır.
Ama tarih hücresi boş kalırsa ( C sütunu ) ozaman sorun yaşarsın tarih verisine dikkat

Şimdi biraz daha inceledim. verileri alırken belli tarih aralığındakileri alıyorsun. Ama tarih alanı boş olunca doğal olarak veriyi görmezden geliyor.

intel4004' Alıntı:

coulonb count için max sayı 10 dur varsayılan değeri 1 dir -1 yazılırsa kullanılabilir bütün sütunlar görüntülenir.Kısaca 17 sütunu tek listboxta görüntüeyemezsin

Genişletmek için tıkla ...

hocam dosyayı eklemiştim dediğiniz şekilde düzenleyebilirseniz ekleyebilirmisiniz. Menü çubuğu açılmıyor excelde ne hikmetse ve makroları etkinleştiremedim.

Bunu deneyin http://www.mrexcel.com/forum/excel-questions/296323-maximum-number-columns-listbox.html#post1454696
UserForm_Initialize fonstionun en altına ekleyin

Private Sub UserForm_Initialize()

Dim sayS As Integer
Dim sayU As Integer
Dim sayF As Integer
Dim veri As Worksheet
Dim i As Byte

Set veri = Worksheets("VERITABANI")
sayS = WorksheetFunction.CountA(Worksheets("KAYNAK").Range("A:A"))
sayU = WorksheetFunction.CountA(Worksheets("KAYNAK").Range("B:B"))
sayF = WorksheetFunction.CountA(Worksheets("KAYNAK").Range("D"))

cbSatici.RowSource = "KAYNAK!A2:A" & sayS
cbUrun.RowSource = "KAYNAK!B2:B" & sayU
cbFatura.RowSource = "KAYNAK!D2" & sayF

lstBaslik.AddItem
For i = 0 To 9
lstBaslik.Column(i, 0) = veri.Cells(1, i + 1)

Next i

'listbox başlık ve rapor genişliklerini aynı şekilde ayarlıyoruz.
lstRapor.ColumnWidths = "20;80;50;60;40;50;40;30;30;40;60;40;60;40;60;40"
lstBaslik.ColumnWidths = "20;80;50;60;40;50;40;30;30;40;60;40;60;40;60;40"







End Sub