ماکرو برای پاک کردن هوشمند

[taocom52]

سلام کد گفته شده را حذف کردم و سطرهای اعداد قرمز پاک نشد ولی همچنان محتوای جدول متناظر اعداد قرمز پاک نمیشوند البته کد خطا هم نمیدهد اما عملی هم صورت نمیگیرد ، این را هم بگویم که آدرس شماره های قرمز و جدولها همیشه ثابت است و تغییری نخواهد کرد.
تنها چیزی که خواسته بنده هست این است که وقتی عدد قرمز را انتخاب کردم با اجرای ماکرو جدول متناظرش پاک شود (سلولهای غیر قفل جدول) متشکرم

[Amir Ghasemiyan]

سلام دوست عزیز
نمیدونم چرا کدهای من این شکلی شده بود. یکم مشکل داشت کدها. ببخشید
این که گفتین محدوده ثابته و تغییر نمیکنه کار منو راحت کرد. یکسری کدها که برای داینامیک کردن محدوده استفاده کرده بودم حذف شد
این کد دیگه کار میکنه. تست کردم چند بار

Sub ExcelIran()
ActiveSheet.Unprotect "123"
Dim cel As Range
Dim TableNum As Integer
For i = 19 To 21
    TableNum = Range("A" & i).Value
    For Each cel In Range("B" & i & ":N" & i)
        cleared = clearcontent(cel.Value, TableNum)
    Next cel
Next i
ActiveSheet.Protect "123"
End Sub




Function clearcontent(cel, TableNum As Integer)
Dim C As Range
Select Case TableNum
    Case 1
        For Each C In Range("B1:H14")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
    Case 2
        For Each C In Range("J1:P14")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
    Case 3
        For Each C In Range("R1:X14")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
End Select
End Function

[taocom52]

ممنون مهندس کارکرد ولی اینبار هم همه جدولها را پاک میکند یعنی براش مهم نیست 1 قرمز را انتخاب کردی یا 3 یا 2 به هر حال همه را یکجا پاک میکند ، من محدوده ها پاک شونده را در جداول تغییر دام (در کد شما ) تا فقط سلولهای غیر قفل را پاک کندو آنها را رنگی کردم تا تست راحت بشه اگه امکان داره این فایل را که براتون میفرستم تست بفرمایید متشکرم خیلی زحمت دادم

[Amir Ghasemiyan]

یک تغییر جزئی دادم.
شما مثلا میخواین جدول یک رو حذف کنید. خونه قرمز رنگ شماره یک رو انتخاب میکنید و دکمه excel iran رو میزنید. و اطلاعات جدول یک حذف میشه

Sub ExcelIran()
ActiveSheet.Unprotect "123"
Dim cel As Range
Dim TableNum As Integer
i = ActiveCell.Row
If i <= 21 And i >= 19 Then
    TableNum = Range("A" & i).Value
    For Each cel In Range("B" & i & ":N" & i)
        cleared = clearcontent(cel.Value, TableNum)
    Next cel
End If
ActiveSheet.Protect "123"
End Sub
Function clearcontent(cel, TableNum As Integer)
Dim C As Range
Select Case TableNum
    Case 1
        For Each C In Range("c6,d9,f7,f10,f3,g4,g7")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
    Case 2
        For Each C In Range("k5,l12,n8,o10,p6")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
    Case 3
        For Each C In Range("r8,s8,t3,t10,v7,w10,x10")
            If C.Value = cel Then
                C.ClearContents
                Exit For
            End If
        Next C
End Select
End Function

[taocom52]

متشكرم كاركرد عالی بود راستی آقای مهندس چطوری میتونم باهاتون تماس بگیرم پروژه ای هست که احتمالا نیاز به همکاری تان داشته باشم ایمیل و تلفن بنده 09148126073 taocom52@gmail.com

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

[Amir Ghasemiyan]

متشكرم كاركرد عالی بود راستی آقای مهندس چطوری میتونم باهاتون تماس بگیرم پروژه ای هست که احتمالا نیاز به همکاری تان داشته باشم ایمیل و تلفن بنده 09148126073 taocom52@gmail.com

خواهش میکنم دوست عزیز
اگر پروژه دارید میتونین از طریق صفحه سفارش پروژه درخواستتون رو برای تیم پروژمون بفرستید. مسئول پروژه یا بنده در تماس خواهیم بود با شما
موفق باشید

[taocom52]

متشکرم مهندس من بعد از هماهنگی با همکارم روز دوشنبه به بخشی که فرمودید مراجعه خواهم کرد
در ضمن هرچند میدون زحمته ولی لطفا کدی رو که فرمودید لطفا به آخر کدی که بنده در فایل فرستادم (کد بایگانی) اضافه فرمایید تا بعد از بایگانی عمل کنه من هرکاری کردم نشد شاید یه چیزی باید حذف کرد

[Amir Ghasemiyan]

متشکرم مهندس من بعد از هماهنگی با همکارم روز دوشنبه به بخشی که فرمودید مراجعه خواهم کرد
در ضمن هرچند میدون زحمته ولی لطفا کدی رو که فرمودید لطفا به آخر کدی که بنده در فایل فرستادم (کد بایگانی) اضافه فرمایید تا بعد از بایگانی عمل کنه من هرکاری کردم نشد شاید یه چیزی باید حذف کرد

دوست عزیز شما گفتین میخوام ردیف رو انتخاب کنم بعد که کلیک کردم بره جدولی که انتخاب شده رو پاک کنه. منم کد رو مطابق اون براتون نوشتم
ولی بایگانی که شما میگین یک عملیات کلی هست و در انتها هم دارین سلول a329 رو انتخاب میکنید. بعد نباید توقع داشته باشید اون کد بیاد جدولاتون رو خالی کنه

[taocom52]

نه مهندس من اونو اصلا پاک کردم (اون ماله وقتی که در ms box کلمه no را انتخاب میکنیم یعنی کاری انجام نده و a329 را انتخاب کنه ) بعبارتی انتخاب سلولی که اول انجام دادیم بقوت خودش باقی باشه مگر اینکه تصور بنده غلط باشه ، یعنی بعد از عملیات ماکرو selaction دیگه اون سلولی نباشه که اول انتخاب کردیم ، در این صورت به کمک شما باز نیاز دارم

[Amir Ghasemiyan]

نه مهندس من اونو اصلا پاک کردم (اون ماله وقتی که در ms box کلمه no را انتخاب میکنیم یعنی کاری انجام نده و a329 را انتخاب کنه ) بعبارتی انتخاب سلولی که اول انجام دادیم بقوت خودش باقی باشه مگر اینکه تصور بنده غلط باشه ، یعنی بعد از عملیات ماکرو selaction دیگه اون سلولی نباشه که اول انتخاب کردیم ، در این صورت به کمک شما باز نیاز دارم

یا من متوجه درخواست شما نمیشم یا شما متوجه توضیحات من نمیشید
شما گفتین شماره جدول رو از لیست قرمز انتخاب کنیم بعد دکمه حذف رو بزنیم و جدول رو پاک کنه
الان میگین میخوان بعد از بایگانی خودش جداول رو پاک کنه. بالاخره کدومش؟