اضافة كومنت الى كود الصنف باسم الصنف

[ياسر العربى]

بسم الله الرحمن الرحيم
 

 

بعض الاحيان اثناء تعاملنا مع الفواتير واكواد الاصناف

 

نحتاج الى حفظ الاكواد او معرفة ما اسم الكود المكتوب اذا لم يكن اسم الصنف مدرج ضمن الفاتورة اوالبيان

 

فهذه طريقة لوضع اسم الصنف على نفس خلية الكود في كومنت لسهولة معرفة الصنف

 

وتصلح لاشياء اخرى كثيرة كمعرفة اسم الشخص من رقمه القومي مثلا وغيرها
 

 

صورة توضيحية

 

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

 Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Column = 13 Then  
     If Target.Value = "" Then  
       Target.Comment.Delete  
     Else  
       On Error Resume Next  
       Target.Comment.Delete  
       Target.AddComment  
       Target.Comment.Text Text:="Yasser:" & Chr(10) & Application.WorksheetFunction.VLookup(Target.Value, Sheet1.Range("a5:c29"), 2, 0)  
     End If  
   End If  
 End Sub  

 

لتحميل الملف اضغط هنا

تحياتي

ياسر العربي

comment.rar

comment.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب ياسر العربي وجزيت خيراً على الموضوع الجميل

فكرة بسيطة وتنفيذها بسيط ورائع وممتاز

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

 

[ياسر العربى]

26 دقائق مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الحبيب ياسر 

تقديري واحترامي لمرورك الكريم اخي الكريم ابو البراء

لن يكون اروع منك ومن مشاركاتك

تقبل تحياتي