Raporlama

[mehmetkoca]

Değerli Arkadaşlar;

2 Sayfadan oluşan bir listem var.Yapmak istediğim şey ilk sayfada kapak takip listesini ikinci sayfaya günlere göre toplam miktar şeklinde raporlamak.Örnek dosyamda gereken açıklamalrı yaptım.İlgi ve yardımlarınız için şimdiden çok teşekkür ederim.Saygılar..

 

[Orion1]

Ekli dosyayı inceleyiniz.İstediğiniz bumudur?

Sub rapor()
Dim k As Range, sh As Worksheet, sat As Long, son As Long, i As Long, adr As String
Dim tplm As Double
Sheets("günlük rapor").Select
Application.ScreenUpdating = False
Range("A2:J65536").ClearContents
Set sh = Sheets("kapak")
son = sh.Cells(65536, "C").End(xlUp).Row
sat = 3
For i = 3 To son
    If WorksheetFunction.CountIf(sh.Range("I3:I" & i), sh.Cells(i, "I").Value) = 1 Then
        Set k = sh.Range("I" & i & ":I" & son).Find(sh.Cells(i, "I").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            adr = k.Address
            Do
                Range("B" & sat & ":J" & sat).Value = sh.Range("B" & k.Row & ":J" & k.Row).Value
                tplm = tplm + sh.Cells(k.Row, "G").Value
                Set k = sh.Range("I" & i & ":I" & son).FindNext(k)
                sat = sat + 1
            Loop While Not k Is Nothing And k.Address <> adr
            Cells(sat, "F").Value = "TOPLAM"
            Cells(sat, "G").Value = tplm
            tplm = 0
            sat = sat + 2
        End If
    End If
Next
Application.ScreenUpdating = True
MsgBox "RAPOR çıkarıldı." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[mehmetkoca]

Sayın Evren Gizlen;

Yardımınız için teşekkür ederim.Yalnız bazı sorunlar oluştu.Şöyle ki rapor makrosuna tıkladığımda bazı tarihler arasına farklı tarihler karışmış şekilde raporluyor.Örneğin ayın 12'sinin içinde ayın 14'ü de karışmış.Diğerlerindede tek tek alttoplam almış bazılarında.Sizden ricam şöyle, mesela ayın 10 u ayrı 15 i ayrı 16 sı ayrı toplamlar alabilmesi makronun.Yani sevk tarihini baz alarak , aynı sevk tarihindeki satırların toplamının alta çıkması.

Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen;

Yardımınız için teşekkür ederim.Yalnız bazı sorunlar oluştu.Şöyle ki rapor makrosuna tıkladığımda bazı tarihler arasına farklı tarihler karışmış şekilde raporluyor.Örneğin ayın 12'sinin içinde ayın 14'ü de karışmış.Diğerlerindede tek tek alttoplam almış bazılarında.Sizden ricam şöyle, mesela ayın 10 u ayrı 15 i ayrı 16 sı ayrı toplamlar alabilmesi makronun.Yani sevk tarihini baz alarak , aynı sevk tarihindeki satırların toplamının alta çıkması.

Saygılarımla.

Ben C sütundaki ayni firma adalarına göre gruplandırdım.
Öyle değilmiydi.Sanki yolladığınız dosyada öyleydi gibi geldi bana.
Şimdi öyle değilde sevk tarihine göremi gruplandıracağız.

 

[Orion1]

Sayın Evren Gizlen;

Yardımınız için teşekkür ederim.Yalnız bazı sorunlar oluştu.Şöyle ki rapor makrosuna tıkladığımda bazı tarihler arasına farklı tarihler karışmış şekilde raporluyor.Örneğin ayın 12'sinin içinde ayın 14'ü de karışmış.Diğerlerindede tek tek alttoplam almış bazılarında.Sizden ricam şöyle, mesela ayın 10 u ayrı 15 i ayrı 16 sı ayrı toplamlar alabilmesi makronun.Yani sevk tarihini baz alarak , aynı sevk tarihindeki satırların toplamının alta çıkması.

Saygılarımla.

Sevk tarihine göre düzenlenmiş şkli 2 numaralı mesajdan eklentiyi indirebilirsiniz.

 

[mehmetkoca]

Evet Sayın Gizlen , sevk tarihine göre toplam alacak şekilde..Teşekkür ederim.

 

[Orion1]

Evet Sayın Gizlen , sevk tarihine göre toplam alacak şekilde..Teşekkür ederim.

Dosya 2 numaralı mesajda.

 

[mehmetkoca]

Sayın Evren Gizlen;

Değerli Üstad.Her zamanki gibi yardımınla bizi ihya ettin.Çok teşekkür ederim.Emeğine yüreğine sağlık.Saygılar...

 

[Orion1]

Sayın Evren Gizlen;

Değerli Üstad.Her zamanki gibi yardımınla bizi ihya ettin.Çok teşekkür ederim.Emeğine yüreğine sağlık.Saygılar...

Rica ederim.
İyi çalışmalar.