المساعده فى تنفيذ الكود على جميع الشيتات

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

ارجو المساعده فى ضبط الكود المرفق 

بحيث يتم تنفيذ على جميع الشبتات بالملف

وحيقث ان عدد الشيتات اكثر من 50 سبت فيصعب كتابه اسماء الشيتات او الدخول الى كل شيت لتنفيذة

ارجو المساعده 

 

 

 

Sub delete_datas()

    Application.ScreenUpdating = False

    On Error Resume Next

      ActiveSheet.Unprotect "2191612"

      On Error Resume Next

    sama = MsgBox("ÓíÊã ÍÐÝ ÌãíÚ ÇáãÏÎáÇÊ ÈÌãíÚ ÇáÔíÊÇÊ  . åá ÃäÊ ãÊÃßÏ ãä ÅÌÑÇÁ åÐå ÇáÚãáíÉ ¿", vbYesNo)

    If sama = vbYes Then

        For Each Sh In Worksheets

            If Sh.Name Like "ÑãÖÇä 1" Or Sh.Name Like "ÑãÖÇä 2" Or Sh.Name Like "ÑãÖÇä 3" _

            Or Sh.Name Like "ÑãÖÇä 4" Or Sh.Name Like "ÑãÖÇä " _

            Then Sh.Select: Range("E4:AH28").ClearContents

           

        Next

    Else

        MsgBox "!! áã íÊã ÇáÎÐÝ ÈÚÏ "

    End If

   Application.ScreenUpdating = True

    Sheets("ÑãÖÇä 1").Select

    ActiveSheet.Unprotect "2191612"

End Sub

 

 

المقاولين.rar

[احمدزمان]

السلام عليكم

 

اخي الكريم اذا اردت تنفيذ الكود على جميع اوراق الملف ايا كان اسم الورقة

قم بحذف جزء من IF الى THEN

 

هذا الجزء

 If Sh.Name Like "ÑãÖÇä 1" Or Sh.Name Like "ÑãÖÇä 2" Or Sh.Name Like "ÑãÖÇä 3" _
            Or Sh.Name Like "ÑãÖÇä 4" Or Sh.Name Like "ÑãÖÇä " _
            Then

[ياسر خليل أبو البراء]

يا جماعة الخير يرجى الانتباه حين ننسخ الكود من المحرر أن تكون اتجاه الكتابة باللغة العربية في المحرر ، حتى يتم لصق الكود بشكل مضبوط

تقبل تحياتي يا أستاذي ومعلمي أحمد ..ليك وحشة كبيرة

[احمدزمان]

جزاك الله خيرا استاذنا و اخونا الحبيب ياسر خليل

[۩◊۩ أبو حنين ۩◊۩]

الاالسلام عليكم

الاخ الحبيب احمد زمان جزاك الله كل الخير تم الامر

الاخ الكبير ياسر.... معلومه جديده ... لى على الاقل    .. جزاك الله كل الخير