birden fazla hareketi tek satırda raporlamak

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;

Ek'teki örnekte belirttiğim şekilde genel hareketlerin bulunduğu sayfadan rapor sayfasına bilgi aktarmak istiyorum bunu yaparken kriter; raporlanması istenen dönemde kaç değişik firma var ise onları alt alta sıralaması ve aynı firmanın istenen dönemde birden fazla hareketi var ise o hareketleri tek satıra toplamlarını alarak raporlaması.
örneğin a firması mayıs döneminde 30 hareket görmüşse bu rapor sayfasında tek satırda 30 hareketin toplamını içerecek şekilde raporlanmalı.
konu hakkında bilginizi paylaşırmısınız lütfen, ilginiz için şimdiden teşekkür ederim.

 

[conari]

bu işlem için formül kullanmanıza gerek yok özet tablo kullanmanızı tavsiye ederim.

Dosyanızı iceleyiniz.

Özet tablo alanını genişletmeniz gerekebilir şu an 11000 satır.

 

[hikmet]

sn.conari ilginiz için teşekkür ederim. verdiğiniz örneği inceledim ve pivot table işlemini biliyorum.işlev olarak evet dediğiniz gibi oluyor fakat bu işlem benim işimi görmüyor çünkü o işlemi ben birden fazla işlem için defalarca kullanacam ve userform textboxlara bunu aldırmak mümkün olmuyor o nedenle aktar makrosu gerekiyor bana. ilginiz için tekrar teşekkür ederim.

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub raporla()
son = [d65536].End(3).Row
c = 1
Sayfa2.Range("b2:j5000").Clear
For t = 2 To son
say = WorksheetFunction.CountIf(Range("d2:" & "d" & son), Cells(t, 4))
say2 = WorksheetFunction.CountIf(Sayfa2.Range("b2:b5000"), Cells(t, 4))
If say >= 1 And say2 = 0 Then
c = c + 1

Sayfa2.Cells(c, "a") = c - 1
Sayfa2.Cells(c, "b") = Cells(t, 4)
Sayfa2.Cells(c, "c") = Cells(t, 5)
Sayfa2.Cells(c, "d") = Cells(t, 6)
Sayfa2.Cells(c, "i") = [m1]

Sayfa2.Cells(c, "e") = Evaluate("SUMPRODUCT((sayfa1!d2:d5000" & "=" & Cells(t, 4).Address & ")*(sayfa1!k2:k5000" & "=" & Cells(1, "m").Address & ")*(sayfa1!g2:g5000))")
Sayfa2.Cells(c, "f") = Evaluate("SUMPRODUCT((sayfa1!d2:d5000" & "=" & Cells(t, 4).Address & ")*(sayfa1!k2:k5000" & "=" & Cells(1, "m").Address & ")*(sayfa1!h2:h5000))")
Sayfa2.Cells(c, "g") = Evaluate("SUMPRODUCT((sayfa1!d2:d5000" & "=" & Cells(t, 4).Address & ")*(sayfa1!k2:k5000" & "=" & Cells(1, "m").Address & ")*(sayfa1!i2:i5000))")
Sayfa2.Cells(c, "h") = Evaluate("SUMPRODUCT((sayfa1!d2:d5000" & "=" & Cells(t, 4).Address & ")*(sayfa1!k2:k5000" & "=" & Cells(1, "m").Address & ")*(sayfa1!j2:j5000))")
Sayfa2.Cells(c, "j") = Evaluate("sumproduct(--(sayfa1!D2:D5000" & "=" & Cells(t, 4).Address & ")*(sayfa1!k2:k5000" & "=" & Cells(1, "m").Address & "))")

End If
Next
End Sub

 

[hikmet]

sn.hamitcan; çok teşekkür ederim verdiğiniz kod için. tam karşılığı budur. sağolun var olun emeğiniz için.