حفظك الله
غير السطر هذا في كود البحث
ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1
بهذا السطر
ib = UCase(.Cells(R, MyColmnFind)) = UCase(Me.TextFind)
تقبل تحياتي وشكري
استاذي عبدالله باقشير ممكن اضافة زر (check box) (تتطابق بداية السلسلة النصية )
ممكن يحل طلبي
وجزاك الله خيرا