تعديل في كود

[نسورالجو]

السلام عليكم الاخوة الافاضل ممكن حل ؟ " المطلوب تعديل في كود جلب القيمة المقابلة في كومبوكس  رقمين من الكود يعني عند كتابة كود 48 تظهر القيمة المقابلة ويتجاهل الرقيمن على اليمين بدون حذف "

ممكن اوضح المطلوب اكتر لو اخترت 48 في الكومبوكس مع تجاهل الرقمين على اليمين يختار رقم 115 ، او رقم 49 في الكومبوكس يختار رقم 120

wo.xlsm

[ضاحي الغريب]

سؤالك هو عند اختيار الكود من كمبوبوكس يتجاهل اول رقمين من ناحية اليمين و يبحث عن اعلي قيمة في العمود (A) 

الكود 4801 او 4802 تو اي كود بدايته 48 يبحث عن اعلي قيمة بالمقابل

االحل

استبدل السطور  التالية في الكود

If Val(Me.ComboBox1) = Ws.Cells(i, "B") Then
Me.TextBox1 = Ws.Cells(i, "A").Value

الي السطر

If Left(Val(Me.ComboBox1), 2) = Left(Ws.Cells(i, "B"), 2) Then
Me.TextBox1 = Application.WorksheetFunction.Max(Ws.Cells(i, "A").Value)

شرح التعديل انه لو الرقمين علي الشمال في الكود متساويتان للرقمين اليسار في العمود 

اختار اعلي قيمة مقابلة للبحث 

والنتيجة عند البحث باي الاكواد التي تبدا ب 48 او 49 

 

الملف بعد التعديل بالمرفقات

اتمني اكون افدك وبالتوفيق

wo.xlsm

 

 

 

[نسورالجو]

جزاكم الله خيرا استاذ ضاحي الغريب ربنا يبارك في علمك وصحتك هو المطلوب والاستفادة من الشرح الوافي ربنا يزيدك من علمه