تعديل في الكود

[نسورالجو]

السلام عليكم عاوز اعدل في كود البحث في الكومبوبوكس بحث رقم ونص يظهر النتيجة في التكست بوكس

Private Sub ComboBox2_Change()
Dim i As Long, lastrow As Long, ws As Worksheet
Set ws = Sheets("الصفحة الرئيسية")
lastrow = ws.Range("AH" & Rows.Count).End(xlUp).Row
For i = 2 To lastrow
If Val(Me.ComboBox2.Value) = ws.Cells(i, "AH") Then
Me.TextBox32 = ws.Cells(i, "AI").Value
End If
Next i
End Sub

 

عند اختيار رقم السيارة يظهر النتجية في التكست بوكس نوعها ونشاطها بس عند اختيار النص كاسم كلارك شوكة مش تظهر النتيجة في التكست بوكس

[أ / محمد صالح]

جرب حذف val من هذا الشرط

If Val(Me.ComboBox2.Value) = ws.Cells(i, "AH") Then

ليصبح

If Me.ComboBox2.Value = ws.Cells(i, "AH") Then

 

[نسورالجو]

لو حذفت val هيبحث في النص ومش هيجيب الارقام يعني بحث باسم كلارك شوكة هيشتغل لو بحثة برقم السيارة مش هيظهر النتيجة في التكست بوكس

[أ / محمد صالح]

هل ما تذكره بعد التجربة ام مجرد تخمين ؟

على العموم جرب هذا التعديل

If Me.ComboBox2.Value = cstr(ws.Cells(i, "AH").value) Then

بالتوفيق 

[نسورالجو]

جزاك الله خيرا استاذ محمد كده المطلوب وبارك الله في عمرك ومالك واهلك