رجاء المساعدة في تصحيح الكود

[نايف - م]

هذا الكود استعملته بالكود بدلا من VLOOKUP

قائمة فيالعمود A فيها أرقام المتعاملين

قائمة بالعمود B فيها أسماء المتعاملين وهي بالعربي و الأنكليزي يعني لغة مختلطة ( هل يؤثر ذلك )

أريد معرفة رقم المتعامل بناء على اسم المتعامل في العمود L 

المفاجأة أن الكود يعمل لكن لا يرجع الرقم الصحيح للمتعامل

Private Sub CommandButton2_Click()

Sheets("MAIN").Select
tt = ActiveCell.Row

Sheets("MAIN").Cells(tt, "A").Select

ActiveCell = Application.WorksheetFunction.Index(ورقة23.[A4:A10000], _
Application.WorksheetFunction.Match(Cells(tt, "L"), ورقة23.[B4:B10000]), 0) _
& Sheets("MAIN").Cells(tt, "AZ")
End Sub

[نايف - م]

يعني بدها ملف مرفق

أنا شفتها واضحة ما بدها ملف

[عبدالله المجرب]

يعني بدها ملف مرفق

أنا شفتها واضحة ما بدها ملف

 

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

[نايف - م]

شكرا أخي عبدالله عالتنبيه

 

المصنف1.rar

[عبدالله باقشير]

السلام عليكم 

جرب التالي:

ActiveCell = Application.WorksheetFunction.Index(ورقة2.[A1:A13], _
Application.WorksheetFunction.Match(Cells(tt, "H"), ورقة2.[B1:B13], 0), 0)