اذهب الي المحتوي
أوفيسنا

كود جلب اسم الشيت المقابل لقيمة خلية معينة


Saadrafic
إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

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

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

استخدم الكود التالى 

Sub ShetName()
Dim ws As Worksheet
Dim C As Range, WsName As String
For Each ws In ThisWorkbook.Worksheets
Set C = ws.Range("A1")
If IsNumeric(C.Value) And Not IsEmpty(C.Value) Then
WsName = WsName & Chr(10) & ws.Name
End If
Next
MsgBox WsName
End Sub

 

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

شكرا اووووي وشكرا لسعة صدرك فى الرد

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

وممكن اخر طلب لو الشيت tab لونه احمر مثلا يعمل نفس الكوديعني يشتغل ع نفس الشيتات الي لونها احمر بس

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

  • أفضل إجابة

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

اخى الكريم

سوف تظهر لك رسالة تظهر اول شيت تنطبق عليه الشروط

اذا ما اردت فتحه ما عليك الا الضغط على الزر "Yes" و ينتهى الماكرو

اما اذا ضغطت على الزر "No" سيظهر لك الشيت التالى و هكذا حتى لآخر شيت

Sub ShetName()
Dim ws As Worksheet, x As Variant
Dim C As Range, WsName As String
Dim OpenSht As String
For Each ws In ThisWorkbook.Worksheets
x = ws.Tab.ColorIndex
Set C = ws.Range("A1")
If IsNumeric(C.Value) And Not IsEmpty(C.Value) And x = 3 Then
WsName = ws.Name
OpenSht = MsgBox(" Are You Want To Open  : " & WsName, vbYesNo)
If OpenSht = vbYes Then
ws.Activate
Exit For
End If
End If
Next
End Sub
 

 

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

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

تفضل

Sub ShetName()
Dim ws As Worksheet, x As Variant
Dim C As Range, WsName As String
Dim OpenSht As String
For Each ws In ThisWorkbook.Worksheets
x = ws.Tab.ColorIndex
Set C = ws.Range("A1")
If IsNumeric(C.Value) And C.Value > 0 And x = 3 Then
WsName = ws.Name & Chr(10) & "Cells Is Value = " & C.Value
OpenSht = MsgBox(" Are You Want To Open  : " & WsName, vbYesNo)
If OpenSht = vbYes Then
ws.Activate
Exit For
End If
End If
Next
End Sub

 

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

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