aylık satış raporu

[bycobeyn]

aylık satış raporu yardım lütfen

Arkadaşlar öncelikle herkeze kolay gelsin, merhabalar.
Benim bir rapor hazırlamam gerekiyor ama malesef yardımınız olmadan başaramayacağım. Ekte nasıl olması gerektiğini kısaca anlatmaya çalıştım.Umarım bana yardımcı olursunuz. Şimdiden herkeze çok teşekkür ederim. Hepinize kolay gelsin. Paylaşımlarınızın devamını temelli eder, işinizde üstün başarılar dilerim.

 

[bycobeyn]

arkadaşlar cevap yazacak kimse yok mu ?

 

[batuhan_86_7]

selam arkadaşım dosyanı 2003 formatında yaparsan yardımcı olabilirm belki

 

[bycobeyn]

dosyayı 2003 formtına değiştirdim yardım edersen çok memnun olurum. şimdiden teşekkürler

 

[leumruk]

Merhaba,
Tabloda ufak bir değişiklik yaparak bir çözüm ürettim.
İlk sayfaya tarih sütunu ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set s1 = Sheets("SATIŞ DATA")
    For x = 4 To 15
    Topla = 0
    Ay = Format(Cells(1, x), "mmmm")
        For y = 2 To s1.[c65536].End(3).Row
            If Target = s1.Cells(y, "c") And Ay = Evaluate("=UPPER(""" & Format(s1.Cells(y, "d"), "mmmm") & """)") Then
                Target.Offset(0, -1) = s1.Cells(y, "b")
                Target.Offset(0, 1) = s1.Cells(y, "e")
                Topla = Topla + s1.Cells(y, "f")
                Range(Target.Offset(0, -1), Target.Offset(0, 15)).Borders.LineStyle = xlContinuous
                Cells(Target.Row, x) = Topla
            End If
        Next
    Next
End Sub