پرسش حذف اطلاعات یک محدوده مشخص در تعدادی از شیت ها

[het_pet]

سلام
یه فایل دارم با حدود 40 شیت
میخوام یه محدوده مشخص مثلا c5:j10,m5:r10 تو شیت های دهم تا بیستم پاک بشن
اگه بشه براش شرط گذاشت که وقتی عدد 10 تو خونه a1 از شیت اول نوشته شد این اتفاق بیفته، خیلی بهتر میشه
شدنیه؟

[mrhartsclube]

سام دوست عزیز

برای این کار چندتا For تودرتو نیاز دارید، کد زیر مثالی که زدین رو انجام میده. فقط میتونید توی Event کلیک کردن یه دکمه بذاریدش یا تغییر کردن سلولهای شیت اول که به محض دیدن عدد 10 توی سلول A1 عملیاتو شروع کنه:

    If Worksheets(1).Range("A1") = 10 Then
        For i = 10 To 20
            //C5:J10
            For j = 5 To 10
                For k = 3 To 10 //<= C to J
                    Worksheets(i).Cells(j, k).Value = ""
                Next k
            Next j
           //M5:R10
            For l = 5 To 10
                For m = 13 To 18 //<= M to R
                    Worksheets(i).Cells(l, m).Value = ""
                Next m
            Next l
        Next i
    End If 

فقط چون من کدامو توی سایت معمولا داخل تگ PHP میذارم مجبور شدم با // کامنت بذارم، اون // ها رو توی کد به ' تغییر بدین که اگه وارد VBA کردین ارور نده