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

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

تفضل اخي عسى ان يكون المطلوب Labour A1.xlsx

مشكور اخي وفيت عمل كتير رائع لكن ما اريده ان يكون مثل الكود المكتوب بالاسفل مع دمج 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

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

خالص شكري وتقديري استاذ عبدالرحيم جزيت خيرا يا اخي متشكر جدا يا استاذ علي ما قمت به هو المطلوب واكثر شكرا جزيلا جزيت خيرا

ارجو المساعدة في كتابة دالة vlookup وتفعيلها خلال ال range الموضح بالملف المرفق ولكن بدون اضافة زر ماكرو طالما انك تريد مساعدتك بالأكواد وليس المعادلات ... فكان لزاماً عليك رفع الملف بإمتداد XLSM ,وذلك تجنباً لعدم اهدار واضاعة وقت الأساتذة فى تحويل الملف لوضع الكود به 18.xlsm

استاذ سليم ارجو التوضيح ما هي الصيغة الاخيرة ف المعادلة "not bound"

المصنف ١٤.xlsxالسلام عليكم ارجو المساعدة ف جعل ال table array ف دالة vlookup يتغير بصفة مستمرة بناءا قيمة معينة مع الاخذ ف الاعتبار ان شيت العمل يحتوي ع اكثر من 40000صف بخلاف الشيت المرفق فهو فقط لتوضيح المطلوب

لك مني فائق الشكر والتقدير استاذي الفاضل فعلا الكود يعمل عندي لكنني كنت انفذ الكود بطريقة خاطئة وللعلم واستفادة الجميع سبب المشكلة عندي انني كنت اعمل select للصفحة المخفية

السلام عليكم هل يمكن ترحيل البيانات من ورقة عمل بالاكسيل Casher الى اخرى مخفية Sales hidden عن طريق الاكواد 12.xlsm