اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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

لانى اتعبت الحسامى وخلجت من كثرة طلباتى

نقلت الموضوع بعنوان جديد

توصلت لكود من اعمال الاخ يحي حسين

يعمل ويحدد المجال فور الضغط على مفتاح الطباعه

ولكنى طمعت فى ان يكون الشكل الجمالى للكشف اذا اضفت اجمالى الارصده مدين دائن رصيد التى تخص العميل

فى نهاية الصفحة فهل هذا ممكن

خانة الرصيد هل هناك معادله تجعلها مخفيه اذا لم يظهر ارقام فى خانة مدين ودائن

لكم جزيل الشكر

كشف حساب.rar

تم تعديل بواسطه سعد عابد
قام بنشر

اخى ايسم ابراهيم

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

هذا هو المطلوب بالضبط

هل هنك معادله تظهر الرصيد فى الصفوف التى بها بيانات فقط

كل عام وكل اعضاء المنتدى طيبين

قام بنشر

أخي العزيز / سعد عابد

بالمرفق تم إضافة عمود للرصيد بمعادلة لا تظهر الرصيد إلا للصفوف التي بها بيانات ، والشكر أكيد موصول للرائع صاحب الملف عماد الحسامي ولكل من شارك فيه وأخص منهم الأخ العزيز أيسم الذي أضاف إمكانيات الطباعة .

تحياتي

أبو عبدالله

كشف حساب.rar

قام بنشر

السلام عليكم

بارك الله فيك اخي ابو عبدالله ولا اعتقد انه يوجد من هو

اروع منك فبارك الله فيك وجزاك الله خيرا

والشكر الموصول للجميع لمساهمتهم في الاعمال المتميزة

اخي سعد

كود مسح البيانات الموجود في حدث صفحة التقارير لا يعمل

كونك عملت دمج للخلايا في السطر 500 ولوجود كود تفادي الاخطاء

On Error Resume Next
فلا يقوم بمسح البيانات القديمة عند طلب كشف جديد فقوم بتغيير الكود التالي
Sheet2.Range("b8:g5000,I8:I5000").ClearContents

بالكود
Sheet2.Range("b8:g499,I8:I499").ClearContents

أي دعه يقوم بمسح الاسطر ال 499 الاولى فقط

قام بنشر

اخى وحبيبى ابوعبدالله

شكرا لك على تعونكم معنا

جزاك الله خيرا

كل عام وانتم بخير

اخى العزيز عماد الحسامى

لا اجد كلمات تعبر عن شكرى عن متابعتك للموضوع

جزاك الله عنا خيرا

وكل عام وانتم بخير

الاخ ايسم ابراهيم

الف شكر وجزاك الله كل خير

ارجو ان تتم الجميل وتجرب الملف

معاينة الطباعة تعطى المطلوب ولكن فى وضع المعاينة لا تستطيع الطباعة

حتى بالاختصارات المعروفة c+p

اذا ضغط طباعه فانه الطباعه العادية تعطى كل الصفحات ول تتوقف عند نهاية البيانات كما كان يعمل الكود

قام بنشر

السلام عليكم

أخي الكريم : سعد

قم بحذف كود الأستاذ يحيى من الملف نظرا للتعارض بين الكودين لأنهما يؤديان وظيفة واحدة . جرب و ستجد الأمور على ما ترغب.

الكود هو

Sub Yahya()

Dim LatR As Long

LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

With ActiveSheet

	.PageSetup.PrintArea = "A1:i" & LatR

	.PrintPreview

End With

End Sub

قام بنشر

اخى ايسم ابراهيم

اخجل من تكرار طلبى تم رفع كود الاستاذ يحي حسين

واردت ان اعين الماكرو على المفتاح فلم اجد غير هيد راو

التى تقوم بالمعاينة ايضا والمعاينة صحيحة ولكن الطباعه مختلفه

اثناء المعاينه لا تستطيع الوصول لاعدادات الصفحه او الطباعة بالاختصارات

ارسلت لك الملف بعد التعديل من فضلك حاول التجربه

قام بنشر

السلام عليكم

الأخ الكريم

واردت ان اعين الماكرو على المفتاح فلم اجد غير هيد راو

بالفعل Hide_Rowهو الكود الذي نعمل عليه

والمعاينة صحيحة ولكن الطباعه مختلفه

أنا جربت الطباعة عندى فوجدتها تماما كما يظهر بالمعاينة

اثناء المعاينه لا تستطيع الوصول لاعدادات الصفحه

يمكنك ذلك من الضغط على الزر setup و الزر Margins

الطباعة بالاختصارات

لا يمكنك الطباعة بالاختصارات و إنما يمكنك فقط الطباعة بالضغط على الزر Print ستظهر شاشة الطباعة حدد منها ما تريد

دمت بخير

أيسم إبراهيم

قام بنشر

هل هناك اسباب محتملة فى جهازى

انا اعمل على اوفيس 2007

نسخة الويندز xp sp3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information