حسين العصلوجى قام بنشر فبراير 20, 2013 مشاركة قام بنشر فبراير 20, 2013 (معدل) irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0) استخدم هذه الصيغة في كود لجلب رقم الصف ولكنها تعطى خطأ out of range تم تعديل فبراير 20, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 20, 2013 مشاركة قام بنشر فبراير 20, 2013 أخى الفاضل / حسين هذا الخطأ غالبا بسبب عدم القدرة على الوصول للمدى المحدد بسبب أنه خارج النطاق كأن يكون اسم الشيت خطأ مثلا لذا يرجى ارفاق ملف لتحديد سبب الخطأ بدقة رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 20, 2013 الكاتب مشاركة قام بنشر فبراير 20, 2013 (معدل) عندي ملفين موضوعين في مجلد اسمه test في السي المطلوب موجود في ملف الاستعلام وشاكر لاهتمامك انا عايز اعرف اثناء كتابة كود اكتب دالة match ازاي بحيث انه يكون النطاق بتاعها في ملف اخر انا باكتبها كده بس بتدي خطأ irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0) فهل النطاق مكتوب بصورة صحيحه ام لا واين الخطأ والمطلوب موضح اكثر بالملف المرفق الاستعلام test.rar تم تعديل فبراير 20, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر فبراير 20, 2013 مشاركة قام بنشر فبراير 20, 2013 جرب هذا Private Sub CommandButton1_Click() Me.TextBox1.Value = Application.Match(Val(3), Workbooks("الادخال").Sheets("الفواتير").Range("a1:a15000"), 0) End Sub رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 20, 2013 الكاتب مشاركة قام بنشر فبراير 20, 2013 للاسف اخي / علي الكود يعطى نفس الخطأ هل جربته انت واشتغل معك رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر فبراير 20, 2013 مشاركة قام بنشر فبراير 20, 2013 يعمل اذا كان ملف الادخال مفتوح رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 20, 2013 الكاتب مشاركة قام بنشر فبراير 20, 2013 ملف الادخال مفتوح ولكنه ايضا يعطى رسالة خطأ اذا عمل معك عدل الملف وارفعه وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر فبراير 20, 2013 مشاركة قام بنشر فبراير 20, 2013 جرب شوف test.rar رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 21, 2013 الكاتب مشاركة قام بنشر فبراير 21, 2013 الملف المرفق يعطى نفس الخطأ Out of range رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم جرب المرفق , لكن يجب فتح الملفين . تحياتي test+.rar رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 21, 2013 الكاتب مشاركة قام بنشر فبراير 21, 2013 (معدل) مشكور اخ احمد عبد الناصر علي اهتمامك الكود تبعك جيد لكن لايصلح معي لانه يعتمد علي طريقة المكرو وكتابة الدالة في خلية وانا استعمل FOR و NEXT للتكرار اكثر من 200 مرة مما يجعل تنقيذ الكود ياخذ وقت طويل جدا انا اريد تعديل لمدى دالة ماتش لتقراء من ملف اخر irow3 = Application.Match(Val(3), Workbooks("C:\Voltaware\Draft\[1.xlsm]").Sheets("Sheet1").Range("a1:a15000"), 0) تم تعديل فبراير 21, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 21, 2013 الكاتب مشاركة قام بنشر فبراير 21, 2013 للرفع ارجو الرد للاهمية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.