بسم الله الرحمن الرحيم
بعض الاحيان اثناء تعاملنا مع الفواتير واكواد الاصناف
نحتاج الى حفظ الاكواد او معرفة ما اسم الكود المكتوب اذا لم يكن اسم الصنف مدرج ضمن الفاتورة اوالبيان
فهذه طريقة لوضع اسم الصنف على نفس خلية الكود في كومنت لسهولة معرفة الصنف
وتصلح لاشياء اخرى كثيرة كمعرفة اسم الشخص من رقمه القومي مثلا وغيرها
صورة توضيحية
الكود المستخدم داخل الملف
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