هايبرلينك سؤال عن الهايبر لينكوارجوا المساعدة

[Abo Sufiyan]

ارجوا من اهل الخبرة بهذا المنتدى الرائع 

 Sheet 2 واضغط عليها يذهب الى sheet 2 عندى شيت اكسيل اريد عندما اختار من القائمة الرقم واحد ويظهر كلمة

 Sheet 3 واضغط عليها يذهب الى sheet 3وعندما اختار من القائمة الرقم اثنان ويظهر كلمة 

New Microsoft Excel Worksheet.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو سارة .. يرجى إزالة كلمة أرجو المساعدة من العنوان .. وتغيير العنوان لعنوان معبر عن الطلب

يمكن أن يكون مثلاًُ "الانتقال لورقة عمل من خلال اختيارها من قائمة منسدلة"

عموماً جرب الكود التالي عله يفي بالغرض

يوضع الكود في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Str As String
    If Target.Address = "$B$3" Then
        Str = Sheet1.Range("B4")
        On Error Resume Next
        If CBool(Len(Sheets(Str).Name)) <= 0 And Not IsEmpty(Range("B4")) Then Sheets(Str).Activate
    End If
End Sub

 

Navigate To Specific Sheet YasserKhalil.rar

تم تعديل أغسطس 5, 2015 بواسطه ياسر خليل أبو البراء

[سليم حاصبيا]

ربما كان المطلوب

 

select_sheet.zip