اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أرجو توضيح هذا الأمر


BACHA22

الردود الموصى بها

اخي الكريم

كليك يمين على نفس الزر واختر ASSIGN MACRO او اختيار ماكرو

واختر بعدها الامر تعديل او EDIT

ستجد نفسك في صفحة الكود نفسه

رابط هذا التعليق
شارك

السلام عليكم اخى الحبيب وجدت الحل الكود التالى ـــــــ Sub SheetList_CP() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If On Error GoTo 0 End Sub ـــــــــــــــــــــــ والتوضيح اكثر فى المرفق

التنقل بين جميع الشيتات بزر واحد.rar

رابط هذا التعليق
شارك

السلام عليكم أبا علاء

أعلى الله قدرك

المشكلة ليست بالكود

فهو موجود بالملف الأول

ويمكن أخذه و الاستفادة منه

لكن المشكلة شرحه

ومعرفة آلية عمل

فالأوامر فيه غريبة

لم تمر على من قبل

جزاك الله خيرا

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information