Lİstbox'a Rapor Yazdirma

[baba58]

Selam Arkadaşlar bir konuda yardımınızı istiyorum.Yaptığım örnekte iki tarih arasındaki verileri Rapor sayfasına atıyo ama listBox'a nasıl atıracağımı bulamadım.Yardım ederseniz sevinirim.

 

[Orion1]

Merhaba.
Userform'un kod sayfasına aşığıdaki kodu yapıştırın.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
End Sub

CommandButondaki kodu aşağıdaki şekilde değiştirin.

Private Sub CommandButton3_Click()
Dim sonsat As Long
Sheets("RAPOR").Select
Sheets("RAPOR").Range("A2:J65536").ClearContents
If TextBox1 = "" Then MsgBox " TARİH GİRMEDEN SORGULAMA OLMAZ!", vbCritical, "U Y A R I  !          irayka ": Exit Sub
If TextBox2 = "" Then MsgBox " TARİH GİRMEDEN SORGULAMA OLMAZ!", vbCritical, "U Y A R I  !          irayka ": Exit Sub
bastar = TextBox1.Value
bittar = TextBox2.Value
c = 0
For tarih = 2 To Sheets("DEFTER").Cells(65536, 4).End(xlUp).Row 'Cells(65536, 4) Burada ilk yazılan satırnosunu ifade eder, ikinci yazılan ise sütunu gösterir
aratar = Sheets("DEFTER").Cells(tarih, 4).Value
If aratar >= bastar And aratar <= bittar Then
c = c + 1
For sut = 1 To 6 ' DEFTER sayfasında bulunan kopyalanan sütun sayısı
Sheets("RAPOR").Cells(c + 1, sut) = Sheets("DEFTER").Cells(tarih, sut).Value
Next sut
End If
Next tarih
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
sonsat = Sheets("RAPOR").Cells(65536, "A").End(xlUp).Row
ListBox1.RowSource = ""
If sonsat < 2 Then Exit Sub
ListBox1.ColumnHeads = True
ListBox1.RowSource = "RAPOR!A2:F" & sonsat
End Sub

 

[baba58]

çok teşekkür ederim sezar kardeş eline sağlık

 

[Orion1]

Rica ederim.İyi çalışmalar