Düsey Ara+Tarih süzme

[dennisf06]

Merhaba;
X fatura numarasi ile alinmis bir malin hangi tarihlerde ne kadar kullanildigini baska sayfalardan ana sayfada nasil görebilirim. Örnege bakarsaniz sorumu daha iyi anlayabilirsiniz. Yardimlariniz icin simdiden tesekkür ederim.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[dennisf06]

Levent bey ilginiz icin cok tesekkür ederim. Sorumu biraz daha kapsamli olarak size tekrar sormak istiyorum. Bunu cok sayida fatura icin nasil uygulayabilirim. Ekteki dosyayi inceleyebilirseniz sorum sizin icin daha net olacaktir. Alakaniz icin tekrar tesekkürler.

 

[Orion1]

Dosyanız hazır.

Sub rapor()
Dim syf As Worksheet, alan As Range, fat_no As String, hcr_fat_no As String
Dim i As Long, sat As Long, sut As Integer, son_sat As Long, rsat As Long
Sheets("Rapor").Select
Range("A7:E65536").ClearContents
If Sheets("rapor").Range("C3").Value = "" Then
    MsgBox "C3 Hücresine Fatura No.su giriniz..!!", vbCritical, "DİKKAT"
    Sheets("Rapor").Range("C3").Select
    Exit Sub
End If
rsat = 7
Application.ScreenUpdating = False
For Each syf In Worksheets
    If UCase(syf.Name) <> "RAPOR" Then
    sut = syf.Cells(3, 256).End(xlToLeft).Column
        For i = 1 To sut Step 3
            son_sat = syf.Cells(65536, "A").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
                fat_no = syf.Cells(sat, i + 1).Value
                hcr_fat_no = Sheets("Rapor").Range("C3").Value
                If fat_no = hcr_fat_no Then
                    With Sheets("Rapor")
                        .Cells(rsat, "A").Value = syf.Name
                        .Cells(rsat, "B").Value = syf.Cells(3, i).Value
                        .Cells(rsat, "C").Value = hcr_fat_no
                        .Cells(rsat, "D").Value = syf.Cells(sat, i).Value
                        .Cells(rsat, "E").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("A7:E65536").Sort Range("B7")
Application.ScreenUpdating = True
End Sub

 

[dennisf06]

Levent bey cok tesekkür ederim. Sizin gibi bilgili insanlara her zaman ihtiyacimiz var.

 

[Orion1]

Levent bey cok tesekkür ederim. Sizin gibi bilgili insanlara her zaman ihtiyacimiz var.

Benim yazdığım kodlar olmadımı?

 

[dennisf06]

Evren bey tabiki sizin yazdiginiz kodlarda oldu. Cok tesekkür ederim.Size bir sorum daha olacak. X fatura numarali A malzemesini beraber yazdigimda yani A2 hücresine x fatura numarasini B2 hücresine A malzemesinin cinsini yazarak diger sayfalardan malzemenin kullanimiyla ilgili bilgileri ikili sorgulama olarak nasil yapabilirim.Ekteki dosyayi incelerseniz sevinirim.Tesekkürler.

 

[EALKAN]

Excel

Yapilan ÖrneĞe GÖre Sayfalari DÜzenleyİp Rapor Alabİlİrsİnİz

 

[dennisf06]

Tesekkürler EALKAN bey ilginize.

 

[dennisf06]

Merhaba
Promramin son safhasinda takildim.Yardim ederseniz cok sevinirim.Diger sayfalardaki düsey arama sonuclarinin toplamini baska sayfaya nasil aktarabilirim.Ekteki dosyayi incelerseniz soru daha net olacaktir.Yardimlariniz icin Tesekkür ederim.