Raporlamayı Yanlış yapıyor

[manisalı88]

Merhaba arkadaşlar ekte dekont ıle ılgılı bır program var. İki tarih arası rapor çalıştırıyorum. ama bazı kalemlerı almıyor rapora. Rapor verilerini DATA sayfasında alıyor. BAna yardımcı olabılırmısınız acaba

 

[programer]

Rapor Çalıştır Butonundaki kodları aşağıdaki kodlar ile değiştirip deneyiniz

Dim i As Long, sat1 As Long, sat2 As Long, s1 As Worksheet, s2  As Worksheet
If Not IsDate(TextBox1.Text) Then
    MsgBox "İlk Tarih geçerli bir tarih olmalıdır." & vbLf & "Rapor çıkarılmadı", vbCritical, "UYARI"
    TextBox1.SetFocus
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
    Exit Sub
End If
If Not IsDate(TextBox2.Text) Then
    MsgBox "İlk Tarih geçerli bir tarih olmalıdır." & vbLf & "Rapor çıkarılmadı", vbCritical, "UYARI"
    TextBox2.SetFocus
    TextBox2.SelStart = 0
    TextBox2.SelLength = Len(TextBox2.Text)
    Exit Sub
End If
If CDate(TextBox1.Text) > CDate(TextBox2.Text) Then
    MsgBox "Son tarih ilk tarihten büyük olamaz." & vbLf & "Rapor çıkarılmadı", vbCritical, "UYARI"
    TextBox2.SetFocus
    TextBox2.SelStart = 0
    TextBox2.SelLength = Len(TextBox2.Text)
    Exit Sub
End If
'Worksheets("LİSTE1").Range("A2:IV65536").ClearContents
Set s1 = Sheets("DATA")
Set s2 = Sheets("RAPOR")

sat1 = s1.Cells(65536, "B").End(xlUp).Row
sat2 = s2.Cells(65536, "B").End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = 5 To sat1
    If Format(s1.Cells(i, "B").Value, "dd.mm.yyyy") >= CDate(TextBox1.Text) And _
    Format(s1.Cells(i, "B").Value, "dd.mm.yyyy") <= CDate(TextBox2.Text) Then
              If sat2 >= 65533 Then
                MsgBox "VERİTABANI1 sayfasında satır doldu" & vbLf & _
                "Bulunan kayıtların tamamı aktarılmadı!", vbCritical, "UYARI"
                Exit Sub
            End If
            
            s2.Cells(sat2, "A").Value = s1.Cells(i, "A").Value
            s2.Cells(sat2, "B").Value = s1.Cells(i, "B").Value
            s2.Cells(sat2, "C").Value = s1.Cells(i, "C").Value
            s2.Cells(sat2, "D").Value = s1.Cells(i, "D").Value
            s2.Cells(sat2, "E").Value = s1.Cells(i, "E").Value
            s2.Cells(sat2, "F").Value = s1.Cells(i, "F").Value
            s2.Cells(sat2, "G").Value = s1.Cells(i, "G").Value
            s2.Cells(sat2, "H").Value = s1.Cells(i, "H").Value
            s2.Cells(sat2, "I").Value = s1.Cells(i, "I").Value
            
            
            sat2 = sat2 + 1
        End If
    Next i
c1 = TextBox1.Value
c2 = TextBox2.Value

Application.ScreenUpdating = True
Sheets("RAPOR").Select
Range("H2:H32").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
UserForm6.Hide
UserForm3.Hide
ActiveWindow.SelectedSheets.PrintPreview
Sheets("GİRİŞ").Select
UserForm6.Show
UserForm3.Show

 

[manisalı88]

öncelikle ilginiz için teşekkür ederim. Ama sorun çözülmedi aynı

 

[manisalı88]

sizce neden böyle birşey yapıyor. Ben başak bi rapor var orda çalışyor raporlamayı iyi yapıyor. ama burada yapmıyor nedense

 

[Korhan Ayhan]

Merhaba,

Satırlar gizli olduğu için rapor çıkmıyormuş gibi görünüyor.

"Sheets("RAPOR").Select" satırından sonra aşağıdaki kodu ekleyip deneyin.

Cells.EntireRow.Hidden = False

 

[manisalı88]

korhan bey gizleme işini doğru yapıyor. rapor sayfasına yazmıyor. birde sizde deneyin ne demek istediğimi anlayacaksınız.

 

[Korhan Ayhan]

Aşağıdaki işlemleri yaptım.

Önerdiğim kod satırını ilgili yere ekledim.
Rapor formunu açtım.
İlk tarihi araya nokta eklemeden "01122012" formatında yazdım.
Son tarihide aynı biçime uyarak "31122012" olarak yazdım.
Sonra "Rapor Çalıştır" butonuna tıkladım.

Bu işlemlerden sonra 3 satır veri listelendi.

 

[manisalı88]

Korhan bey aynı dediğinizi denedim eksik getiriyor. neden boyle yapıyor kı. bu makroyu baska bır yerde kullanıyordum duzgun getırıyordu boyle yapmıyordu