اجرای قسمتی از ماکرو باشرط کد

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • honar16
    • 2018/07/10
    • 1
    #1

    پرسش اجرای قسمتی از ماکرو باشرط کد

    سلام، ماکرو زیر برای اجرای کد 1 الی 80 ه- برخی روزا من بین 1 الی 30دارم و نمیخوام الباقی اجرا بشن

    راه حل رو بهم بدین ممنون میشم



    Sub Factorzan()
    '
    ' Factorzan Macro
    '


    '
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "8"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "9"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "10"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1

    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "12"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1



    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "13"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "14"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "15"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "16"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "17"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "18"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "19"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "20"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "21"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "23"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "24"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "25"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "26"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "27"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "28"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "29"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "30"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "31"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "32"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "34"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "35"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "36"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "37"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "38"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "39"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "40"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "41"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "42"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "43"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "44"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "45"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "46"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "47"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "48"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "49"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "50"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "51"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "52"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "53"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "54"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "55"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "56"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "57"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1






    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "58"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "59"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1






    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "60"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "61"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "62"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "63"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "64"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "65"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "66"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "67"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "68"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "69"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "70"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "71"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "72"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "73"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "74"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1






    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "75"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "76"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1




    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "77"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "78"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "79"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1


    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "80"
    Range("AM9").Select
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1
    ActiveSheet.Range("$A$11:$AS$59").AutoFilter Field:=1








    End Sub
    برچسب ها: هیچ‌کدام
    • kazamie

      • 2021/12/14
      • 249
      • 87.00
      #2
      سلام، شما می‌توانید این کدها را در دوتا ماکرو تقسیم کنید و بعضی روز ها ماکرو اول را اجرا کنید و روز های دیگر هر دوماکرو را اجرا کنید
      کد:
      Call macro1
      کد:
      Call macro1
Call macro2
      دکتر کاظمی

        کامنت

        قبلی template بعدی
        چند لحظه..