[حل شده] جمع فروش ماهیانه با ماکرو

[pishraw]

با سلام
دوستان عزیز سوالی داشتم در خصوص جمع مقدار فروش هر ماه با استفاده از ماکرو . با توجه به فایل ضمیمه بنده را راهنمایی کنید ممنون میشم .
با تشکر

[iranweld]

با سلام

با استفاده از یک ستون کمکی برای نمایش ماه در جدول انجام شد.

Sub mehr()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
        "07"
    
End Sub 

[generalsamad]

با سلام
علاوه بر پاسخ دوست عزیز جناب iranweld از این کد نیز میتونید استفاده کنید بدون استفاده از ستون کمکی

Sub mehr()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/07/*"
End Sub

Sub aban()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/08/*"
End Sub

Sub azar()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/09/*"
End Sub

Sub dey()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/10/*"
End Sub

Sub bahman()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/11/*"
End Sub

Sub esfand()

    Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
        "1394/12/*"
End Sub