التعديل علي الفورم

[2saad]

إخواني أعضاء المنتدي الرام بعد سلام الله عليكم ورحمة الله وبركاته 

في هذا الملف عدد من أوراق العمل باسماء اشخاص

وييوجد فورم 

محتاج لما اضغط علي اسم شخص في الفورم يفتح  صفحته وتختفي الصفحات الأخري

ولكم جزيل الشكر ووافر الاحترامرزة.xlsm

[2saad]

ارجو المساعدة ؟

[2saad]

ارجو المساعدة من فضلكم ؟

[2saad]

ارجو المساعدة من فضلكم

[ابراهيم الحداد]

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

الكود التالى ضعه فى كلاس موديول و سمه (اى الكلاس موديول)  ClsButn

Public WithEvents Btn As MSForms.CommandButton
Sub Btn_Click()
Dim ws As Worksheet
For Each ws In Worksheets
If Btn.Caption = ws.Name Then
ws.Visible = True
Else
On Error Resume Next
ws.Visible = False
End If
Next
End Sub

اما الكود التالى فضعه فى حدث الفورم

Dim MyBtn(1 To 9) As New ClsButn
Private Sub UserForm_Initialize()
For i = 1 To 9
Set MyBtn(i).Btn = Me.Controls("CommandButton" & i)
Next
End Sub

اضغط على الزر مرتين لكى يعمل معك الكود بصورة صحيحة

هذا و الله اعلى و اعلم

[2saad]

شكرا جزيلا استاذ ابراهيم وربنا يباركلك