طلب طريقة ربط الكود بالاسم ؟

[م/ مغترب]

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

 

إخواننا الكرام

 

سؤال

 

عندي مجموعة من الاسماء  وكل إسم يحمل كود معين   يصعب حفظهم    وأبحث عن طريقة  إذا وضعت الماوس على الكود أن يظهر الاسم ؟

 

ارفقت ملف للتوضيح

 

وشكرا

New Microsoft Excel Worksheet.zip

[محمود_الشريف]

أخى فى الله

الأستاذ / م _ مغترب

مرفق لكم نموذج لمحاولة ظهور الاسم مع ربطه بكود الاسم  

بطريقة أخرى 

نسأل الله عز وجل أن تفى بالغرض

وتقبلوا منى وافر الإحترام والتقدير

M_elshrief_محاولة ظهور الاسم.rar

[الخالدي]

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

بارك الله فيك استاذ/ محمود_الشريف

ولإثراء الموضوع

الكود التالي يعرض الاسم في CommandBar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Not IsEmpty(Target(1)) And Not Intersect(Target(1), [D:D]) Is Nothing Then
Dim C As String, F As Integer
C = "الاسم غير موحود": F = 394
On Error Resume Next
With Sheets("ورقة1")
C = .[A:A].Cells(Application.Match(Target(1), .[B:B], 0))
End With
If Err Then F = 923
With CommandBars.Add(Name:="Name_Code", Position:=msoBarPopup).Controls.Add(Type:=msoControlButton)
.Caption = C: .FaceId = F
End With
Application.CommandBars("Name_Code").ShowPopup
Application.CommandBars("Name_Code").Delete
End If
End Sub

في امان الله 

ربط الكود بالاسم.rar

[محمود_الشريف]

أخى فى الله

الأستاذ القدير وأستاذى / الخالدى

ما شاء الله على أعمالكم

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

بارك الله فيكم

ونموذجكم هو الأقرب على ما أعتقد لتنفيذ مطلب الأستاذ / م _ مغترب

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[أبو محمد عباس]

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

الاستاذ والاخ العزيز محمود الشريف ما شاء الله عمل رائع فيه ابداع وكود مميز

وفقك الله ورعاك وزادك من فضله علما وخيرا كثيرا

تقبل فائق احترامي وتقديري

[الخالدي]

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

شكرا لك استاذ/ محمود_الشريف

ولكم وافر الإحترام والتقدير

[أبو محمد عباس]

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

الاستاذ الكبير والاخ الحبيب الخالدي جزاك الله خيرا

اعمالكم دائما مميزة ومتقنه وكود اكثر من رائع

جعله الله سبحانه وتعالى في ميزان حسناتكم

وزادك الله من فضله علما وخيرا كثيرا

تقبل فائق احترامي وتقديري

[محمود_الشريف]

أخى فى الله

الأستاذ القدير  / أبو محمد عباس

بارك الله فيكم

على مروركم الكريم وتشجيعكم الدائم

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[محمود_الشريف]

 

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

شكرا لك استاذ/ محمود_الشريف

ولكم وافر الإحترام والتقدير

 

بارك الله فيكم

الأستاذ القدير / الخالدى

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[عبدالله باقشير]

اخي الحبيب الخالدي

 

 

[الخالدي]

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

بارك الله فيك استاذ/ أبو محمد عباس

شكرا للمرور الكريم والثناء الطيب

لك مني كل التحية والقدير

[الخالدي]

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

الاخ الحبيب والاستاذ القدير/ عبدالله باقشير

جزاكم الله خيرا على مروركم الطيب

لكم كل الشكر والتقدير

[ابو نبأ]

السلام عليكم

مشكورين

[م/ مغترب]

بارك الله فيكم و بمجهودكم و مشاركاتكم

 

 

وعذراً على التاخر بالرد وذلك بسبب إنشغالي

[يوسف السيد]

ما شاء الله  .. الاستاذ الخالدى , الاستاذ الخالدى
اعمال فى منتهى الروعة .. جزاكم الله خبرا

[محمود_الشريف]

 

بارك الله فيكم و بمجهودكم و مشاركاتكم

 

 

وعذراً على التاخر بالرد وذلك بسبب إنشغالي

 

بارك الله فيكم أخى الكريم

ونحمد الله أنكم وجدتم حلا لموضوعكم

وتقبلوا منى وافر الإحترام والتقدير