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

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

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

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

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

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

صورة توضيحية

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

 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  

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

اعداد/ ياسر العربي



http://www.up-00.com/?BS4y

شارك المقال

شاركه على فيسبوكشاركه على جوجل+