Tarih Sorgulama

[dennisf06]

Rapor sayfasinda diger sayfalardan istenilen tarihteki bilgileri nasil listeleyebilirim.Tesekkür ederim.

 

[Orion1]

Dosyanız Hazır.

Sub trh_rapor()
Dim syf As Worksheet, alan As Range, trh As String, hcr_trh As String
Dim i As Long, sat As Long, sut As Integer, son_sat As Long, rsat As Long
Sheets("Rapor").Select
Range("G7:K65536").ClearContents
If Not IsDate(Sheets("rapor").Range("I3").Value) Then
    MsgBox "I3 Hücresine Geçerli bir tarih giriniz..!!" & vbLf & "Örnek : " & Format(Date, "dd.mm.yyyy"), vbCritical, "DİKKAT"
    Sheets("Rapor").Range("I3").Select
    Exit Sub
End If
rsat = 7
Application.ScreenUpdating = False
For Each syf In Worksheets
    If UCase(syf.Name) <> "RAPOR" And UCase(syf.Name) <> "FATURA" Then
    sut = syf.Cells(3, 256).End(xlToLeft).Column
        For i = 1 To sut Step 3
            son_sat = syf.Cells(65536, i).End(xlUp).Row
            For sat = 5 To son_sat
                If rsat >= 65533 Then
                    MsgBox "Rapor sayfasında sayfa doldu .Diğer kayıtlar raporlanmadı..!!", vbCritical, "DİKKAT"
                    GoTo son
                End If
                trh = syf.Cells(sat, i).Value
                hcr_trh = Sheets("Rapor").Range("I3").Value
                If trh = hcr_trh Then
                    With Sheets("Rapor")
                        .Cells(rsat, "G").Value = syf.Name
                        .Cells(rsat, "H").Value = syf.Cells(3, i).Value
                        .Cells(rsat, "I").Value = syf.Cells(sat, i + 1)
                        .Cells(rsat, "J").Value = syf.Cells(sat, i).Value
                        .Cells(rsat, "K").Value = syf.Cells(sat, i + 2).Value
                    End With
                    rsat = rsat + 1
                End If
            Next sat
        Next i
    End If
Next syf
son:
If rsat > 7 Then Range("G7:K65536").Sort Range("H7")
Application.ScreenUpdating = True
End Sub

 

[dennisf06]

Evren ustam ellerine saglik.Cok tesekkür ederim

 

[dennisf06]

Yalniz fatura numaralari yok asil önemli olan onlar.Onu nasil görebilirim

 

[Orion1]

Yalniz fatura numaralari yok asil önemli olan onlar.Onu nasil görebilirim

Düzelttim.
2 numaralı mesajdan indirebilirsiniz.

 

[dennisf06]

Tesekkür ederim evren ustam ellerin dert görmesin.Sizlerin sayesinde her gün bir seyler ögreniyoruz.

 

[Orion1]

Tesekkür ederim evren ustam ellerin dert görmesin.Sizlerin sayesinde her gün bir seyler ögreniyoruz.

Rica ederim.
İyi çalışmalar.