السلام عليكم
لدي ملف للعلامة عبد الله باقشير به فورم مرن يصلح لاي قاعدة بيانات يعمل بشكل جيد على جهازي لكن عندما نقلت الملف الى جهاز اخر ضهرة رسالة خطأ في الكود التالي مع العلم ان الجهازين بهم نفس الخصائص 32 بيت و اكسيل 2007
Private Function kh_TestType(Rng As Range, Optional iT As Boolean = False) As Boolean
If Not Rng.Comment Is Nothing Then
MyList = Trim(Replace(Rng.Comment.Text, Chr(10), ""))
MyList = Replace(MyList, " ", "")
If TypeName(Evaluate(MyList)) = "Range" Then
kh_TestType = True
End If
End If
End Function
صورة الخطأ بالملف المرفق ولكم مني جزيل الشكر
ملف الاستاذ عبد الله باقشير.rar