نعديل كود التنقل بين الصفحات

[khairi ali]

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

أخواني الكرام في هذا الصرح الكبير

الرجاء المساعدة في الملف المرفق

ولكم مني جزيل الشكر

 

التنقل بين الصفحات.xlsb

[Ali Mohamed Ali]

وعليكم السلام -يمكن جعل الأكواد هكذا

Private Sub Option2_Click()
If Option2.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ú").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ã").Visible = True
Sheets("Ý.1.Ë.Ú").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option3_Click()
If Option3.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ã").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ú").Visible = False
End If
End Sub

 

التنقل بين الصفحات.xlsb

[khairi ali]

مشكور جدا استاذ علي وان شاء الله في ميزان حسناتك

[khairi ali]

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

في الملف المرفق توجد مشكلة في كود التنقل بين الصفحات كما موضح في الملف

كلمة السر123

اسم المستخدم 123

الدور الثاني.rar