ارجو المساعده فى هذا الكود

[إبراهيم ابوليله]

لاخوه الافاضل
 حاولت سابقا الاستفاده من الكود

الاتى

Private Sub TextBox1_Change()
Set sh12 = Sheets("1")

lr = sh12.[A65000].End(xlUp).Row
For Each cl In sh12.Range("A5:B" & lr)
Exit Sub
If (Val(Me.TextBox1)) = cl Then
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)

End If
End If
Next

End Sub

وواجهتنى مشكله حاولت حلها ولم استطع
وهى ان لوقيمه التيكست بوكس لاتساوى
قيمة المتغيرc1
يتم تفريغ جميع التيكست بوكس من البيانات
فكيف يتم عمل ذلك

[عبدالله باقشير]

السلام عليكم

 

في مثل هذه الاكواد يتم في البداية مسح المكان الذي تنتقل الية القيم

ثم يتم تنفيذ عملية البحث فان وجدت نتائج للبحث وضعت في المكان

او سيبقى المكان ممسوحا كما هو.

 

تحياتي

[إبراهيم ابوليله]

اخى عبدالله

مشكورا على الرد

بارك الله فيك