نسورالجو قام بنشر أغسطس 7, 2021 مشاركة قام بنشر أغسطس 7, 2021 السلام عليكم عاوز اعدل في كود البحث في الكومبوبوكس بحث رقم ونص يظهر النتيجة في التكست بوكس 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 عند اختيار رقم السيارة يظهر النتجية في التكست بوكس نوعها ونشاطها بس عند اختيار النص كاسم كلارك شوكة مش تظهر النتيجة في التكست بوكس رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 7, 2021 مشاركة قام بنشر أغسطس 7, 2021 جرب حذف val من هذا الشرط If Val(Me.ComboBox2.Value) = ws.Cells(i, "AH") Then ليصبح If Me.ComboBox2.Value = ws.Cells(i, "AH") Then رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر أغسطس 7, 2021 الكاتب مشاركة قام بنشر أغسطس 7, 2021 لو حذفت val هيبحث في النص ومش هيجيب الارقام يعني بحث باسم كلارك شوكة هيشتغل لو بحثة برقم السيارة مش هيظهر النتيجة في التكست بوكس 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 7, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 7, 2021 هل ما تذكره بعد التجربة ام مجرد تخمين ؟ على العموم جرب هذا التعديل If Me.ComboBox2.Value = cstr(ws.Cells(i, "AH").value) Then بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر أغسطس 7, 2021 الكاتب مشاركة قام بنشر أغسطس 7, 2021 جزاك الله خيرا استاذ محمد كده المطلوب وبارك الله في عمرك ومالك واهلك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.