عمرو رحيل قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 الاخوة الاعزاء السلام عليكم ورحمة الله وبركاته يستدعى عملى القيام بتسجيل مبيعات مندوبى البيع شهريا وفى نهاية الشهر اقوم بأخذ نسخة من الملف وتفريغها بواسطة مايكرو وتسجيل الشهر الجديد بها وحيث اننى اسمى كل شيت باسم المندوب الخاص به لذلك احيانا تواجهنى مشكلة انه عند استقالة مندوب ودخول آخر مكانه اقوم بتغيير اسم الشيت طبقا لاسم المندوب الجديد وبالتالى يجب ان يتم تغيير الاسم ايضا داخل المايكرو لذا ارجو منكم مساعدتى بحيث اننى عندما اقوم بتغيير اسم الشيت يتغير الاسم تلقائيا فى المايكرو مرفق طيه نموذج للمطلوب ولكم جميعا جزيل الشكر مقدما مبيعات.rar رابط هذا التعليق شارك More sharing options...
عمرو رحيل قام بنشر يناير 14, 2014 الكاتب مشاركة قام بنشر يناير 14, 2014 استاذى الفاضل / عبدالله باقشير اشكرك شكرا جزيلا على تجاوبك السريع وعلى هذا الكود الرائع ولكن هذا الكود لا يصلح لوجود شيت نهائى به اجمالى المبيعات وتشغيل هذا الكود يؤدى الى مسح المعادلات بهذا الشيت رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 السلام عليكم مثلا لو فرضنا ان اسم الشيت الذي لا تريد حذفه "الاجماليات" 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 تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.