Şube Adı ve Tarihe Göre Rapor Almak

[Conqueror20]

İyi Günler,
Ekteki dosyada gider sayfasına girdiğim verilerin özet sayfasında tarihe göre, şube adına göre,gider koduna göre ayrı ayrı toplamak istiyorum. Rica etsem yardımcı olabilir misiniz?

 

[RONIN1]

merhaba

Pivot table ile bir örnek gönderiyorum.

İncelerseniz anlayacağınızı düşünüyorum.

Sorunuz olursa lütfen çekinmeyin.

İyi çalışmalar

 

[Conqueror20]

Sayın RONIN,
Yanıtınız için teşekkürler. Pivot tablo istediğim örnek için uygun değil. Çünkü her ay için ayrı sayfa oluşturcam. Aylar ayrı sayfalarda olacağı için pivot tablo oluşturmamın manası kalmıcak

 

[Conqueror20]

yardımcı olabilecek kimse yok mu?

 

[Conqueror20]

arkadaşlar lütfen yardımcı olun?

 

[Ziynettin]

Merhaba,
Aşağıdaki kodu denemisiniz,

Sub conqueror()
Dim i As Integer
Dim j As Integer
Dim son As Integer, say As Integer
Dim s1, s2 As Worksheet
Dim a As Integer, b As Integer, c As Integer
Set s1 = Sheets("GİDER")
Set s2 = Sheets("ÖZET")

son = s1.Range("A" & Rows.Count).End(3).Row
say = s2.Range("A" & Rows.Count).End(3).Row

For i = 2 To son
For j = 3 To say
For a = 2 To 5
For b = 6 To 9
For c = 10 To 13

If UCase(Format(s1.Cells(i, 1), "mmmm")) = s2.Cells(j, 1) And _
   s1.Cells(i, 3) = s2.Cells(2, a) And _
        s1.Cells(i, 2) = s2.Cells(1, 2) Then
            s2.Cells(j, a) = s1.Cells(i, 5)
                End If
 If UCase(Format(s1.Cells(i, 1), "mmmm")) = s2.Cells(j, 1) And _
    s1.Cells(i, 3) = s2.Cells(2, b) And _
        s1.Cells(i, 2) = s2.Cells(1, "F") Then
            s2.Cells(j, b) = s1.Cells(i, 5)
                End If
   If UCase(Format(s1.Cells(i, 1), "mmmm")) = s2.Cells(j, 1) And _
     s1.Cells(i, 3) = s2.Cells(2, c) And _
        s1.Cells(i, 2) = s2.Cells(1, "J") Then
            s2.Cells(j, c) = s1.Cells(i, 5)
                End If
                    Next c
                Next b
            Next a
        Next j
    Next i
End Sub

 

[Conqueror20]

İyi akşamlar tasmed,
Kodu denedim fakat olmuyor

 

[Ziynettin]

Denedin sorun yok.
Ekli dosyada denermisiniz

 

[Conqueror20]

ekteki dosyayı denedim.butona basınca makro çalıştırılamıyor diye hata veriyor.

Bu sorunu makro olmadan çözmenin imkanı yokmu?

 

[Conqueror20]

buna benzer bir örneğin =topla.çarpım formülüyle yapıldığını görmüştüm ama örneği bulamıyorum şimdi. bilen varsa lütfen yardımcı olabilir mi

 

[Conqueror20]

bu konuyla ilgili fikri olan, yardımcı olmak isteyen hiç kimse yokmu.

 

[Conqueror20]

Arkadaşlar bu konuda hiçmi fikri olan yada yardımcı olabilecek kimse yok?