Image إضافة قائمة منسدلة بأسماء الصفحات و التنقل بينها

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

طلب مني أحد الأخوة عمل قائمة منسدلة بأسماء الصفحات و عند إختيار إسم الصفحة من القائمة المنسدلة أن يتم تفعيل تلك الصفحة, و لعمل ذلك في حدث فتح الصفحة إستخدمنا الكود التالي :

Dim ws As Worksheet
For Each ws In Sheets
Range("M" & ws.Index).Value = ws.Name
Next ws
Columns("M:M").NumberFormat = ";;;"
LR = Sheets("Master").Range("m" & Rows.Count).End(xlUp).Row
With Range("B2").Validation
.Delete
.Add xlValidateList, Formula1:="=M2:M" & LR
End With
End Sub




حيث سيقوم الكود السابق بإضافة أسماء الصفحات و من ثم إضافتها للقائمة المنسدلة
و أضفت الكود التالي ليتم الإنتقال إلى الصفحة المعنية بمجرد إختيارها من القائمة المنسدلة :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b2").Value = "" Then Exit Sub
If Target.Address(False, False) <> "B2" Then Exit Sub
Sheets(Range("b2").Value).Select
End Sub



















و لتحميل الملف على الرابط التالي :

http://excel4us.com/vb/showthread.php?t=1825

دمتم في حفظ الله