جزاك الله خيرا استاذ محمدي عبد السميع
وها كود مع اختصار بعض الاسطر
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
جزاك الله كل خير .اللجنة الاولى تاتي الاسم الاول فيه مضبوطا واللجنه التانيه تاتي الاسم الاول فيها بعد صفين والتالتة تاتي الاسم الاول فيها بعد ثلاثة صفوف
رابط على أفضل مركز للتحميل
هديه لاخي استاذ رجب واحبابي في الله
هذا الرابط كنترول الصف الأول الثانوى
وهذا الرابط .. كنترول الصف الثانى الثانوى علمى
وهذا الرابط .. كنترول الصف الثانى الثانوى أدبي
السلام عليكم
اخي الفاضل عبد الله العلامة --------حفظكم الله
جزاك الله خيرا
تقبل تحياتي وشكري
نريد عند نقل الورقه بتم نقل الكود اوتوماتيك فكرتها حلوه وسهله مع كثبر