تغيير اسم شيت بدون التعديل فى المايكرو

[عمرو رحيل]

الاخوة الاعزاء

السلام عليكم ورحمة الله وبركاته

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

لذا ارجو منكم مساعدتى بحيث اننى عندما اقوم بتغيير اسم الشيت يتغير الاسم تلقائيا فى المايكرو

مرفق طيه نموذج للمطلوب

ولكم جميعا جزيل الشكر مقدما

مبيعات.rar

[عمرو رحيل]

استاذى الفاضل / عبدالله باقشير اشكرك شكرا جزيلا على تجاوبك السريع وعلى هذا الكود الرائع ولكن هذا الكود لا يصلح لوجود شيت نهائى به اجمالى المبيعات وتشغيل هذا الكود يؤدى الى مسح المعادلات بهذا الشيت

[عبدالله باقشير]

السلام عليكم

 

 

مثلا لو فرضنا ان اسم الشيت الذي لا تريد حذفه "الاجماليات"

Sub ماكرو1()
Dim i As Integer
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> "الاجماليات" Then
        Worksheets(i).Range("B3:B33").ClearContents
    End If
Next
End Sub

تحياتي