[حل شده] در مورد اختصاص عدد داخل اکسل به حلقه For & next

[sabertb]

سلام خسته نباشید خدمت اساتید گرامی من یک کد ساده نوشتم که یه ستونی رو تو هر پیج فایل بر اساس اعداد 1 تا (یک عدد مشخص در سلول T2) فیلتر کنه و پرینت بگیره ولی نتونستم راهش رو پیدا کنم کدی که نوشتم رو میزارم بی زحمت اشکالش رو برام رفع کنید
وقتی دستی می نویسم 1 تا 100 درست کار میکنه وقتی میگم عدد پایانی رو از سلول مورد نظر بگیره جواب نمیده

Sub PrintFilter()'' PrintFilter Macro'Page = Range.Value("$T$2")
For i = 1 To Page    ActiveSheet.Range("$A$3:$BL$4916").AutoFilter Field:=19, Criteria1:=i    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _        IgnorePrintAreas:=False        Next iEnd Sub 

[sabertb]

Sub PrintFilter()'
' PrintFilter Macro
'
pagef = Range("$T$2")
For i = 1 To pagef
    ActiveSheet.Range("$A$3:$BL$4916").AutoFilter Field:=19, Criteria1:=i
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Next i
End Sub

[sabertb]

ارور
Variable Not defined میده هرکاری میکنم

[M_ExceL]

ارور
Variable Not defined میده هرکاری میکنم

سلام،
علت این ارور این هست که شما option explicit رو فعال کردید ، در صورت فعال بودن option explicit ، می بایست ابتدا متغیر ها رو تعریف کنید سپس مقدار دهی کنید.
دو خط زیر رو به ابتدای کدتون اضافه کنید تا مشکل حل شود،

Dim i As Long
Dim pagef As Long

به این صورت :

Sub PrintFilter()
Dim i As Long
Dim pagef As Long
pagef = Range("$T$2").Text
For i = 1 To pagef
    ActiveSheet.Range("$A$3:$BL$4916").AutoFilter Field:=19, Criteria1:=i
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Next i
End Sub