اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information