Girişlere Göre Rapor Sayfası Uyarlayamak

[bulentc76]

Merhabalar...
Bir arkadaşımın emek harcayarak yaptığı ekteki çalışmada hatalı hesaplama var.İki gün boyunca kendim çözmek için uğraştım.Ama bir türlü işin içinden çıkamadım.Yardımcı olursanız sevinirim.

Birde aynı raporu DEPO KODU ve ANA GRUP İSMİ yerine CARİ TÜRÜ ve CARİ HESAP İSMİ verilerini seçerek almak istiyorum.Yalnız burada sadece seçimini yaptığım CARİ HESAP İSMİ ne satış yapılan miktarı alacak diğer hesaplamaların tamamı aynı kalacak.Ayrıntılı açıklama ekteki dosyamdadır.Ayrıca yine rahatsızlık verdiğim için kusura bakmayın.Ama iki gündür uğraştığım halde yapamadım.Daha önce pivot tablo ile denedim ama olmadı.Affınıza sığınarak tekrar yardım istiyorum.İlgilenenlere şimdiden teşekkürederim.
Ayrıntılı açıklama ekte RAPOR ve MÜŞTERİ MALİYETLERİ sayfasındadır.
Anlatamadığım bir yer varsa lütfen sorunuz.
Saygı ve sevgilerimle...

 

[bulentc76]

Merhaba...
Arkadaşlar dün geceden beri uğraşıyorum ama çözemedim.

 

[zafer]

Merhaba

Aşağıdaki kodları incekeyiniz ve deneyiniz.Kendi kod yapınızıda buna göre değiştirebilirsiniz.

Sub topla()
Set sh1 = Worksheets("Rapor")
Set sh2 = Worksheets("STOK HAREKETLERİ")
giren = 0
        çıkan = 0
        tutar = 0
        fiyat = 0
For i = 2 To 10
        
            If sh2.Cells(i, 5) = "ALIŞ" Or sh2.Cells(i, 5) = "SATIŞ İADE" Then
            giren = sh2.Cells(i, 12)
            tutar = sh2.Cells(i, 21)
            giren = sh2.Cells(i, 12) + sh1.Cells(7, 3)
        Else
            çıkan = sh2.Cells(i, 12)
            çıkan = sh2.Cells(i, 12) + sh1.Cells(7, 4)
        End If
        
        
        sh1.Cells(7, 3) = giren
        sh1.Cells(7, 4) = çıkan
        
    Next i
End Sub

 

[bulentc76]

Merhaba

Aşağıdaki kodları incekeyiniz ve deneyiniz.Kendi kod yapınızıda buna göre değiştirebilirsiniz.

[/CODE]

Çok teşekkürederim Zafer Bey
İnşallah uyarlayabilirim.Hemen denemeye başlıyorum.Emeğinize sağlık...