عند الضغط على اسم العميل في الفهرس يذهب الى صفحة العميل بدون عمل ارتباط تشعبي

[ابوعبدالواجد]

السلام عليكم

طلبي حفظكم الله

عند الضغط على اسم العميل يذهب الى صفحة العميل  - جزيتم خير

 

عند الضغط على اسم العميل يذهب الى صفحة العميل.rar

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

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

انسخ الكود التالى وضعه فى حدث شيت العملاء

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If Target.Value = sh.Name Then
sh.Activate
End If
Next
Application.ScreenUpdating = True
End Sub

 

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

بعد اذن اخي زيزو بدون حلقات تكرارية هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo exit_sub
If Target.Column <> 2 And Target.Cells.Count > 1 Then GoTo exit_sub
Sheets(Target.Value & "").Activate
exit_sub:
Err.Number = 0
Application.ScreenUpdating = True
End Sub

 

[ابوعبدالواجد]

السلام عليكم - الكود تمام

جزاكم الله عنا خيرا  - يرحم والديكم

مشكور أخي سليم 

مشكور اخي زيزو