حل خطأ في كود

[Ahmedabutaleb]

الاخوة الافاضل حاولت مرار وتكررا  ايجاد حل لكتابة دالة vlookup مع دالة choose وفي كل محالة يحدث خطأ لكن هذه المرة البرنامج لم يظهر اي خطأ ومع ذلك لا يعطيني النتيجة المطلوبة 

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

واخيرا الشكر موصول لاستاذ

• Ali Mohamed Ali فهو قد ساعدني في هذا الكود من قبل جزي خيرا ارجو مساعدتي مرة اخرى 

()Sub amin
Dim lasrow As Long
Dim lsrow As Long
Dim s As Long
Dim datarnge As range
Dim dtrnge As range
Dim r1 As range
Dim r2 As range
lsrow = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row
Set r1 = Sheets("2").range("a1:a" & lsrow)
Set r2 = Sheets("2").range("e1:e" & lsrow)
Set datarnge = Sheets("2").range(r1, r2)
Set dtrnge = Sheets("2").range("f1:f" & lsrow)
lasrow = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
For s = 1 To lasrow
On Error Resume Next
Sheets("1").range("g" & s).Value = Application.WorksheetFunction.VLookup( _
Sheets("1").range("a" & s, "e" & s).Value, Choose(Array(1, 2), datarnge, dtrnge), 2, False)
Next s
End Sub

vlookup&choose .vba (2).xlsm