DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub cmdRapor_Click()
lstRapor.ColumnCount = 19
lstBaslik.ColumnCount = 19
lstRapor.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
lstBaslik.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
lstBaslik.RowSource = "KrediTakip!a1:s1"
lstRapor.RowSource = "KrediTakip!a2:s" & Sayfa2.Cells(65536, "a").End(xlUp).Row
End Sub