ارجوكم مساعدة فى تصحيح سطر واااحد

[abo Tameem]

انا بحاول اجيب اخر رقم  لسند القبض وا ازود +1 والكود مابيشتغل 

مشكلتى مش عارف اكتب max  مع داله index , match

Me.TextBox10 = Application.Index(Sheets("1").Range("g5:h65536"), Application.Match(Application.WorksheetFunction.Max((ComboBox2), Sheets("1").Range("g5:g65636"), 0), 2))
 

ارجوكم لا تبخلو عليا باهتمامكم 

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

[سليم حاصبيا]

المشكلة اعتقد غي عبارة 

((Max((ComboBox2

لان محتويات اي ComboBox هي عبارة عن نص و ليس رقم لذلك اقترج استبدال العبارة بـــــ

Me.TextBox10 = Application.Index(Sheets("1").Range("g5:h65536"), _
Application.Match(Application.WorksheetFunction.Max((ComboBox2.Value) * 1, Sheets("1").Range("g5:g65636"), 0), 2))

 

 

[abo Tameem]

الله يجزاك خير على المساعدة بس لسه مازال فى خطاء اخى الكريم

[بن علية حاجي]

السلام عليكم

أعتقد أن هناك خطأ في الأقواس:

Me.TextBox10 = Application.Index(Sheets("1").Range("g5:h65536"), _
Application.Match(Application.WorksheetFunction.Max(ComboBox2.Value) * 1, Sheets("1").Range("g5:g65636"), 0), 2)

ملاحظة: لست أدري إن كان ممكنا تحديد MAX (أكبر قيمة) لـ ComboBox (كمبوبوكس)!!!

بن علية حاجي

[abo Tameem]

 

استاذ بن علية حاجي جزاك الله خيرا على المساعدة ولكن اظهر لى رساله خطاء 

[سليم حاصبيا]

جرب هذا الكود

استبدل الرقم 1 باسم الشيت

Private Sub Combobox2_change()
Dim x As Long
Dim t
Dim m
 
x = (ComboBox2.Value) * 1
t = Application.Match(x, Sheets("1").Range("g5:g65636"), 0)
m = Application.Index(Sheets("1").Range("g5:g65636"), t)
 Me.Textbox10.Value = m
End Sub