DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
End Sub
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