فاتورة للاستاذ عماد الحسامي ارجو المساعدة

[ابو بشار]

السلام عليكم

الملف المرفق فاتورة للاستاذ الكبير عماد الحسامي اجريت عليها بعض التغييرات واستخدمتها لحفظ بيانات المستودع ( صرفيات . ووراردات ) لكن واجهتني مشكلة ارجو من الاخوة الاعزاء مساعدتي في حلها .

المشكلة تكمن في انه عند الا ستعلام عن مستند في صفحة المستندات ( ادخال , صرف ) من خلال رقم المستند فانه يجلب لي البيانات من صفحة ( الصرفيات , الواردات ) حسب نوع الاستعلام لغاية الصف (5000) فقط وما بعدة يتجاهله.

ارجو المساعدة ولكم جزيل الشكر .

test.rar

[أبو حنــــين]

اخي اعتقد انه يجب تغيير الاعداد 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()

و الله اعلم

[ابو بشار]

اشكر مرورك اخي ابو حنين لكن جربت وما نفع

[Akram Galal]

عمل جيد