كتابة دالة vloolkup مع دالة choose ..ككود vba

[Ahmedabutaleb]

الاخوة الافاضل ارجو منكم مساعدتي في كتابة الدالةvlookup مع دالة choose .....ككود بحيث يعطيني الناتج  تلقائيا بصفة value  وليس كمعادلة ( لا اريد ان يظهر في الخلية معادلة) 

مرفق ملف وقمت بكتابة المعادلة بالعمود الملون بالاصفر ... وشكرا جزيلا لمن حاول مساعدتي

vlookup&choose .vba.xlsm

[سعيد 1428]

تفضل أخي آمل أن يكون هذا هو المطلوب 

vlookup&choose .vba (1).xlsm

[Ahmedabutaleb]

مشكور اخي وفيت عمل كتير رائع لكن ما اريده ان يكون مثل الكود المكتوب بالاسفل مع دمج choose  وذلك حتى يتفادى الخطأ في حالة وجود قيم غير موجود بشيت رقم 2 مثال الصف الاول في الشيت رقم 4 ولا يعطيني #N/A اذا كانت هناك قيمة موجودة بالفعل داخل الخلية ويتركها كما هي

Sub n()
Dim lastrow1 As Long
Dim rng1 As Range
Dim m As Long
lastrow1 = Sheets("4").Cells(Rows.Count, 1).End(xlUp).Row
Set rng1 = Sheets("2").Range("a1:e" & lastrow1)
For m = 1 To lastrow1
On Error Resume Next
Sheets("4").Range("g" & m).Value = Application.WorksheetFunction.VLookup( _
Sheets("4").Range("a" & m).Value, rng1, 5, False)
Next m
End Sub

اليك الملف مع التعديل

vlookup&choose .vba (2).xlsm

[سعيد 1428]

تمت إضافة دالة الخطأ إلى المعادلة

vlookup&choose .vba (1).xlsm

[Ahmedabutaleb]

عمل رائع اخي الكريم لكن رغم تفادي خطأn/a#الا انه في حالة وجود قيم غير موجودة بشيت رقم 2 يقوم  باستبدالها بفراغ والمطلوب ان يتركها كما هي مثال ذلك الصف الاول بشيت رقم اربعة

vlookup&choose .vba (2).xlsm