وعليكم السلام أخي الكريم

جرب الكود التالي عله يفي بالغرض
 
 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 بارك الله فيك أخي العزيز إبراهيم ومشكور على مرورك العطر

 وجزيت خيراً أخي الكريم عمر ومشكور على كلماتك الطيبة

في انتظارك لتجربة الكود وضع ملاحظاتك إذا كانت هناك أية ملاحظات جديدة

 إن شاء الله أحاول الإطلاع مرة أخرى على الموضوع في أقرب وقت حيث أنني غير متاح لبعض الوقت

وأرجو من الأخوة الأعضاء التفاعل في الموضوعاات ولو بأفكار .. لا يشترط تقديم حلول كاملة

 بارك الله فيكم إخواني الكرام
 

يمكن استخدام متغير للعمود والصف في الحلقات التكرارية المتداخلة بدون أي مشكلة .. إن شاء الله سأحاول طرح موضوع يخص إنشاء جدول الضرب لتتضح صورة الحلقات المتداخلة (صفوف وأعمدة)

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

جرب الكود التالي عله يفي بالغرض إن شاء الله

Sub Auto_Open()

    Dim sName As String



    sName = Split(ThisWorkbook.Name, ".xlsm")(0)



    If sName = "عمر" Then

        ThisWorkbook.Worksheets(1).Activate

    ElseIf sName = "احمد" Then

        ThisWorkbook.Worksheets(2).Activate

    Else

        ThisWorkbook.Close False

    End If

End Sub

 حاول استخدام الصور في شرح المطلوب لأنني اطلعت على الملف ولم أفهم المطلوب ...

 وعليكم السلام أخي الكريم أحمد

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

 بارك الله فيك أخي العزيز هاني ومشكور على متابعة الموضوع والردود .. جزاك الله خيراً

 وعليكم السلام أخي الحبيب حسونة 

جزاك الله خيراً على هذا الموضوع المميز والجديد .. بارك الله فيك

 أحسنت أخي العزيز علي وجزاك الله خيراً

كود رائع ..

 أخي العزيز أبا الحسن

أخي الغالي حسن علي (جدو الحبيب)

بارك الله فيكما وجزيتما خير الجزاء