حسين العصلوجى قام بنشر فبراير 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 بواسطه حسين العصلوجى
رجب جاويش قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 أخى الفاضل / حسين هذا الخطأ غالبا بسبب عدم القدرة على الوصول للمدى المحدد بسبب أنه خارج النطاق كأن يكون اسم الشيت خطأ مثلا لذا يرجى ارفاق ملف لتحديد سبب الخطأ بدقة
حسين العصلوجى قام بنشر فبراير 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 بواسطه حسين العصلوجى
علي سالم 75 قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 جرب هذا Private Sub CommandButton1_Click() Me.TextBox1.Value = Application.Match(Val(3), Workbooks("الادخال").Sheets("الفواتير").Range("a1:a15000"), 0) End Sub
حسين العصلوجى قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 للاسف اخي / علي الكود يعطى نفس الخطأ هل جربته انت واشتغل معك
حسين العصلوجى قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 ملف الادخال مفتوح ولكنه ايضا يعطى رسالة خطأ اذا عمل معك عدل الملف وارفعه وجزاك الله خيرا
حسين العصلوجى قام بنشر فبراير 21, 2013 الكاتب قام بنشر فبراير 21, 2013 الملف المرفق يعطى نفس الخطأ Out of range
احمد عبد الناصر قام بنشر فبراير 21, 2013 قام بنشر فبراير 21, 2013 السلام عليكم جرب المرفق , لكن يجب فتح الملفين . تحياتي test+.rar
حسين العصلوجى قام بنشر فبراير 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 بواسطه حسين العصلوجى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.