احمد غانم

اسعد الله اوقاتكم وجزاكم كل الخير و لكم جزيل الشكر و التقدير بارككم المولى دنيا و آخرة.

تم و لله الحمد بفضل جهودكم المباركة

لدي سؤال لو سمحت:

    DestPath = "\\10.20.30.3\homedir\a.ghanem\PDF-Recipts\" & Sh.Range("e13") & ".pdf"
هل سمكن تضمين الكود رقم الإيصال ("i12") بجانب اسم التلميذ ("e13")  ??

اتعبتك معي ارجو المعذرة

تم تعديل الكود لكن ظهرت الرسالة التالية حسب الصورة المرفقة بالإضافة الى رسالة  (File Not Saved)

12 ساعات مضت, حسونة حسين said:

هذه موجوده في الكود 

انسخ الكود مره اخري

اشكرك جزيل الشكر اخ حسونة وجعله الله زيادة في ميزان حسناتكم

بقي مسألة اخرى لو سمحت 

كيف يمكن تغيير مسار حفظ نسخة الإيصال في  الكود الى مسار محدد مثلا(\\10.20.30.3\homedir\a.ghanem\كشف العمليات اليومية)

السلام عليكم اخ حسونه و بارك الله جهودك

المطلوب  ايضا ورجاء لا امر:
 حفظ نسخة من الإيصال نفسه  School Fee Receipt  بصيغة PDF بمسار معين قبل تعديل البيانات لإصدار إيصال جديد
مع امكانية حذف البيانات قبل بدء يوم جديد في شيت Daily Report --كود الحفظ في التقرير اليومي يعمل بشكل جيد شرح اضافي داخل الملف.
لك جزيل الشكر و التقدير

School Fee Collection System-.xlsm

41 دقائق مضت, حسونة حسين said:

ممكن ملف يوضح النتائج المطلوبه

قم بعمل ملف بسيط وقم بوضع النتائج بشكل يدوى 

ولو امكن شرح بالصور 

لان المطلوب الى الان غير واضح

السلام عليكم

اتعبتكم مع اني احاول التوضيح قدر الإمكان

يوجد شرح داخل الملف على شيتات :School Fee Collection Sheet

                                               School Fee Receipt

                                               Daily Report

ببساطة اريد ان احفظ نسخة بصيغة PDF و تريحيل بيانات الإيصال الى التقرير اليومي تلقائيا قبل تعديل البيانات لعمل ايصال جديد.

School Fee Collection System-.xlsm

School Fee Collection System-.xlsm

16 ساعات مضت, حسونة حسين said:

وعليكم السلام ورحمه الله وبركاته

تفضل اخي

اشكرك على الإجابة و الجهد .زادك الله من فضله وجعله في ميزان حسناتك.

اخي العزيز وضعت الكود في شيت School Fee Receipt واعطي نتيجة (حسب الصورة المرفقه) يتم ترحيل كل ايصالات الطالب 

بالنسبة للPDF المطلوب نسخة من الإيصال نفسة قبل اصدار الإيصال التالي

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

الأخوة الكرام السلام عليكم 

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

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

1- ترحيل بيانات كل ايصال يتم اصدارة في شيت (School Fee Receipt) الى شيت (Daily Report) بترتيب بحسب نموذج الجدول في شيت

Daily Report ثم حفظ نسخة من الإيصال الصادر بصيغة PDF قبل اصدار ايصال جديد

School Fee Collection System.xlsm

السلام عليكم اخواني الكرام 

السؤال هو هل يوجد طريقة سهلة لجمع اكثر من 30 خلية غير متتالي لكن في عامود واحد مثال :

SUM($C$5,$C$7,$C$9,$C$11,$C$13,$C$15,$C$17,$C$19,$C$22,$C$24,$C$26,$C$28,$C$30,$C$32,$C$34,$C$36,$C$38,$C$42,$C$40,$C$44,$C$46,$C$48,$C$50,$C$52,$C$54,$C$56)=

لكم جزيل الشكر و التقدير

الأخ الكريم ابوبسمله اعزكم المولى

بارك الله جهودكم لقد حلت المشكلة

لكم جزيل الشكر و التقدير

و لكل من شارك وساهم 

اخي الكريم hassona229 السلام عليكم

نزولا عند  رغبتكم هذا الملف الذي اعمل عليه و اذكر ان المشكلة حصلت

في 10‏/11‏/2022 at 21:57, احمد غانم said:

بعد تعرض جهازي لهجمة Ransomware فقدت كل ملفات العمل وكان من الضرورة عمل Factory set للجهاز

و استعدت احد ملفات العمل من النسخة الإجتياطية وعند بدأ العمل على الملف تبين ان لغة اسماء الشيتس العربية 

قد تغيرت الى شيء غير مفهوم و نفس الشيء في الفيجيوال بيزك و اللغة العربية في كود التفقيط

جدول مساهمات صيانة شهرية 2022.xlsm

اللأستاذ الكريم احمد ابوزيزو حفظكم المولى

يبدو اني اتعبتكم في حل هذه المشكلة وكي لا اطيل هذا ما فعلته بناء على اقتراحكم:

وجاءت النتيجو على النحو الآتي:

اللأستاذ الكريم احمد ابوزيزو حفظكم المولى

يبدو اني اتعبتكم في حل هذه المشكلة وكي لا اطيل هذا ما فعلته بناء على اقتراحكم:

وجاءت النتيجو على النحو الآتي:

في 12‏/11‏/2022 at 21:47, احمد غانم said:

بارك الله جهودك اخي الكريم كريم و لك جزيل الشكر والتقدير

اخي الكريم بالخطوات التي ذكرتها تم حل مشلة اللغة ضمن نص الكود لكنها لازالت موجودة في اسماء الشيتات 

في VBA-Project كذلك  في نتيجة التفقيط داخ الشيت كنتيجة لذلك كما هو واضح في الصور المرفقة

 

للرفع لو سمحتم جزاكم الله كل الخير.

الاخ كريم نظيم اكرمك الله

فقط ااتذير انني استخدم Windows 11  مع -

Microsoft® Excel® for Microsoft 365 MSO (Version 2210 Build 16.0.15726.20068) 32-bit

قد يفيد هذا في حل المشكلة

اكرر جزيل شكري و تقديري لجهودكم

بارك الله جهودك اخي الكريم كريم و لك جزيل الشكر والتقدير

اخي الكريم بالخطوات التي ذكرتها تم حل مشلة اللغة ضمن نص الكود لكنها لازالت موجودة في اسماء الشيتات 

في VBA-Project كذلك  في نتيجة التفقيط داخ الشيت كنتيجة لذلك كما هو واضح في الصور المرفقة

الإخوة الكرام السلام عليكم

بعد تعرض جهازي لهجمة Ransomware فقدت كل ملفات العمل وكان من الضرورة عمل Factory set للجهاز

و استعدت احد ملفات العمل من النسخة الإجتياطية وعند بدأ العمل على الملف تبين ان لغة اسماء الشيتس العربية 

قد تغيرت الى شيء غير مفهوم و نفس الشيء في الفيجيوال بيزك و اللغة العربية في كود التفقيط

مرفق صور توضيحية

اللأخ الكريم -محمد-حسن-المحمد تحية لكم

توضحت الصورة بشكل جيد لك جزيل الشكر و التقدير

عفوا على الخطأ - هذا الملف فيه الكود

ايراد تشرين الثاني 2021.xlsm

السلام عليكم الإخوة الكرام

الرجاء المساعدة من خلال التعديل على كود التفقيط / او من خلال الكريقة التي ترونها مناسبة

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

يراد تشرين الثاني 2021.xlsx

لك جزيل الشكر و التقدير اخ  عبدالله الصاري

السلام عليكم الأخوة الكرام

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

لكم جزيل الشكر و التقدير

بيانات الموظفين .xlsm

السلام عليكم 

الرجاء المساعدة بمعادلة لحساب عدد السنوات الدراسية بين عامين دراسيين متباعدين مثلا:

بين العام الدراسي 2015-2016 و 2020-2021 كم سنة دراسية (عدد السنوات)

لكم جزيل الشكر و التقدير

عذرا اخي الكريم لم يتم ارفاق الملف