بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود بحث تكست'.
تم العثور علي 1 نتيجه
-
استخدم الكود التالي في البحث في فورم اقوم بكتابة الرقم في تكست بوكس1 وتظهر نتيجة البحث في تكست بوكس2 وتكست بوكس3 ويعمل بشكل جيد ولكني احببت ان اضيف له جزء يقوم باعطائي رسالة في حالة عدم وجود هذا الكود في القائمة المحددة بان هذا الرقم غير موجود ولكن يحث معي خطأ ما !!!!1 فما هو الخطأ في هذا الكود Private Sub TextBox1_Change() Set sh12 = Sheets("Sheet1") LR = sh12.[G20000].End(xlUp).Row For Each cl In sh12.Range("G2:I" & LR) If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" End If Next End Sub اظن ان الخطأ في الجزء .. ولكني لا اعلم اين Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" في انتظار ردودكم اساتذتي
