التنقل بين الشيتات المخفية بالمعادلات

[ابو زين]

السلام عليكم ورحمة الله اخواني الكرام

لو تكرمتم....  

 

المطلوب التنقل بين الشيتات المخفية من خلال قائمة التحقق في المثال ادناه

ولكم فائق الاحترام

 

name.xlsx

[Ali Mohamed Ali]

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

يجب عليك استخدام خاصية البحث بالمنتدى

https://www.officena.net/ib/topic/42212-تمت-الاجابة-إخفاء-أوراق-العمل-والتنقل-بينها-من-الشيت-الرئيسي/

[شوقي ربيع]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Ws2 As Worksheet

    If Replace(Target.Address, "$", "") = "I8" Then
        Set Ws2 = Worksheets(Target.Text)
            Ws2.Activate
    End If
End Sub

 

name.xlsm

[ابو زين]

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

انا اتعلم كيف اصطاد منكم