تعديل في كود البحث TextBox

[checles]

السلام عليكم 

برجاء المساعده عن استخدام كود البحث في Textbox  بالارقام  مثلا (800) اما اذا كان (800B) لا يقبل 

 فبرجاء المساعده في تعديل الكود 

()Private Sub TextBox4_Change
X = WorksheetFunction.CountIf(Sheet8.Range("a:a"), Val(Me.TextBox4.Value))
 Set ws = Application.WorksheetFunction
With Me
If .TextBox4.Value <> "" And X <> 0 Then
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox4.Value), Sheet8.Range("a1:d10000"), 3, 0)
.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox4.Value), Sheet8.Range("a1:d10000"), 4, 0)
Else
.TextBox5 = ""
.TextBox6 = ""

End If
End With

End Sub

 

 

Test 1.xlsm

تم تعديل مارس 18, 2024 بواسطه checles

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

عدل

If .TextBox4.Value <> "" And X <> 0  Then

الى

If .TextBox4.Value <> "" And X <> 0 And IsNumeric(.TextBox30.Value) Then

 

[checles]

السلام عليكم 

استاذ حسونه شكرا للاهتمام ولكن لا تعمل برده بعد تغير الكود 

 

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

ما الذي لا يعمل اخي

ما تم تعديله هو TextBox4 فقط

مفروض تعدل باقي التيكست بنفس الطريقه

[احمد عبدالحليم]

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46 Then
    Else
        KeyAscii = 0
        MsgBox "يجب ادخال ارقام فقط", vbCritical
    End If
End Sub

جرب الكود التالى ربما هو المطلوب