مبدع دائماً وأبداً أخي أبو عبدالله
بارك الله فيك
ظهرت لدي رسالة خطأ عند العمل على ملفك
فقمت بإضافة سطر تعريف متغير my_com في بداية الكود ليكون كالتالي
Private Sub Worksheet_Change(ByVal Target As Range)
Dim my_com As String
On Error Resume Next
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value <> "" Then
If Target.Value = "" Then Target.ClearComments
my_com = Application.WorksheetFunction.VLookup(Target, Sheets("Sheet1").Range("A:B"), 2, False)
Target.AddComment my_com
Target.Comment.Visible = False
End If
End Sub
الملف عمل بشكل جيد ثم أغلقت الملف وفتحته مرة أخرى فوجدت الكود قد اختفى وظهرت رسالة غريبة (أول مرة أشوفها)
Error in loading DLL