ابو بشار قام بنشر سبتمبر 11, 2012 مشاركة قام بنشر سبتمبر 11, 2012 السلام عليكم الملف المرفق فاتورة للاستاذ الكبير عماد الحسامي اجريت عليها بعض التغييرات واستخدمتها لحفظ بيانات المستودع ( صرفيات . ووراردات ) لكن واجهتني مشكلة ارجو من الاخوة الاعزاء مساعدتي في حلها . المشكلة تكمن في انه عند الا ستعلام عن مستند في صفحة المستندات ( ادخال , صرف ) من خلال رقم المستند فانه يجلب لي البيانات من صفحة ( الصرفيات , الواردات ) حسب نوع الاستعلام لغاية الصف (5000) فقط وما بعدة يتجاهله. ارجو المساعدة ولكم جزيل الشكر . test.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 11, 2012 مشاركة قام بنشر سبتمبر 11, 2012 اخي اعتقد انه يجب تغيير الاعداد 5000 في الكود التالي بما يناسبك If Sheet2.Range("d4").Text = "صرف" Then '--------------------------- Sheet2.Range("f5") = Application.WorksheetFunction.VLookup(Sheet2.Range("i4"), Sheet1.Range("r5:t5000"), 2, 0) Sheet2.Range("i5") = Application.WorksheetFunction.VLookup(Sheet2.Range("i4"), Sheet1.Range("r5:t5000"), 3, 0) End If If Sheet2.Range("d4").Text = "ادخال" Then '--------------------------- Sheet2.Range("fg5") = Application.WorksheetFunction.VLookup(Sheet2.Range("i4"), Sheet1.Range("u5:w5000"), 2, 0) Sheet2.Range("i5") = Application.WorksheetFunction.VLookup(Sheet2.Range("i4"), Sheet1.Range("u5:w5000"), 3, 0) End If End If و هذا الجزئ من الكود موجود في الماكرو المسمئ Sub recall1() و الله اعلم رابط هذا التعليق شارك More sharing options...
ابو بشار قام بنشر سبتمبر 11, 2012 الكاتب مشاركة قام بنشر سبتمبر 11, 2012 اشكر مرورك اخي ابو حنين لكن جربت وما نفع رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر سبتمبر 11, 2012 مشاركة قام بنشر سبتمبر 11, 2012 عمل جيد رابط هذا التعليق شارك 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.