اخى عبدالله باقشير
الكود رائع
ويعمل بنجاح
اشكرك على المساعده
بارك الله فيك
-----------------------------------------
كما اوجه كل الشكر
لاخى واستاذنا ابوحنين
فقد تفضل
بتزويدى بكود ايضا يعمل بنجاج
بارك الله فيه
If InStr(1, cl, TextBox4, vbTextCompare) = 1 Then