كود مثل vlookup مع false

[أبو چيداء]

المطلوب بالمرفقات

code 123.rar

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

السلام عليكم

استبدل هذا

 

Private Sub TextBox1_Change()

Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Set sh2 = Sheets("sheet2")
LR = sh2.[A1000].End(xlUp).Row
For Each cl In sh2.Range("A2:A" & LR)
If Val(Me.TextBox1) = cl Then
 Me.TextBox2 = cl.Offset(0, 1)
 Me.TextBox4 = cl.Offset(0, 2)
 End If
 Next
End Sub
 

في امان الله

[حمادة عمر]

السلام عليكم

استاذنا القدير / عبدالله باقشير

 

دائما لمساتك سحريه

ايها القدير كعادتك دائماً

جزاك الله خيرا

[أبو چيداء]

كم هي بسيطه ولكنها جميلة فعلا لمسه جميله استاذنا

شكرا