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

[Saadrafic]

ممكن تساعدوني في الكود دا

انا عايز لما اضغط علي المكرو دا يجيب بس اسم الشيت الي فيه رقم في الخليه a1  وليس كل أسماء  الشيتات

Book1.xlsm

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

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

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

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

 

[Saadrafic]

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

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

وممكن اخر طلب لو الشيت 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
 

 

[Saadrafic]

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

الف مليون شكر لمساعدتك ليا اخر طلب واسف لتعب حضرتك .

لو الخليه a1 لو فيها صفر تبقي عادي لو اكتر من صفر يشتغل الكود 

 

 

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

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

استبدل هذه العبارة

If IsNumeric(C.Value) And Not IsEmpty(C.Value) And x = 3 Then

بهذه العبارة

If IsNumeric(C.Value) And C.Value > 0 And x = 3 Then

 

[Saadrafic]

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

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

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

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

[Saadrafic]

لا دا اقل تقدير لحضرتك

ممكن طلب اخير هوه ممكن الرقم الي في الخليه يظهر في الرساله جنب اسم الشيت

لان مديري طلب هذا افيدني مستر ابراهيم

[Saadrafic]

ممكن استاذ ابراهيم تساعدني في ان القيمه الي في الخليه تبقي مع اسم الشيت الي ظهر في الرساله يبقي الاسم وقيمه الخليه مع بعض

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

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

تفضل

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

 

[Saadrafic]

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