[حل شده] درخواست ماکرویی برای چاپ پشت سر هم

[alireza_a4]

با سلام خدمت اساتید محترم
می خواستم ماکرویی بهم معرفی کنید که با بررسی یک شرط در یکی از خانه های اکسل ( مثلا c1>0 ) اقدام به چاپ شیت کرده و سپس مقدار خانه مثلا b2 را یک واحد اضافه کرده و عملیات را تا رسیدن مقدار خانه b2 مثلا به 100 ادامه دهد.
امید وارم توضیح ام کافی باشد :-(

[alireza_a4]

سوال ام خیلی گنگ بوده ؟؟

[alireza_a4]

کسی نمی تونه راهنمایی کنه ؟

[rahi_feri]

سلام
لطفا فایل نمونه بگذارید!

[alireza_a4]

با دنبال کردن ماکرو ها به این کد رسیدم ولی نمی دونم چرا خطا می ده
کسی می تونه کمک ام کنه ؟

Sub Macro1()
'
' Macro1 Macro
'

'
For x = 101 To 105
    Range("S4:T4").Select
    ActiveCell.FormulaR1C1 = x
    j = [AA4]
    If j > 0 Then
    MsgBox "Waooo.. You'r So Lucky Dude!"
Next x

End Sub

[alireza_a4]

سلام
لطفا فایل نمونه بگذارید!

امید وارم توضیحات ام واضح باشه

[rahi_feri]

سلام
این کد هیچ ربطی نداره به کاری که می خواهید انجام بدید!
من پرینتر ندارم اینو امتحان کنم ولی این کد شاید کمک کرد . ببینید و تواقصش رو اطلاع بدید :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorline
Application.EnableEvents = False

If Not Intersect(Target, Range("b6")) Is Nothing Then
    If (Sheets("sheet1").Range("b6").Value) > 0 And (Range("b10").Value) <= 499 Then
        ActiveSheet.PrintOut
        
        Range("b10").Value = Range("b10").Value + 1
    End If
End If
Application.EnableEvents = True
errorline:
Application.EnableEvents = True
End Sub

در صورت تغییر مقدار سلول b6 و در صورتی که مقدار مثبت وباشد عدد در سلول b10 کنتور میندازه و پنجره انتخاب پرینتر صفحه باز میشه یا پرینت گرفته میشه! همچنین اگر عدد کنتور انداز بیشتر از 500 باشه عملیات صورت نمی گیره!
در صورتی که می خواهید برای انجام پروسه دکمه ای افزوده بشه یا شرطی اضافه بشه اطلاع بدید!
لطفا چک کنید