احمد غانم

السلام عليكم اخي الكريم صحيح الكود ممتاز و يعمل بشكل جيد لكن اقتربنا من نهاية العام الدراسي وعند تحصيل اي من الدعات 7 و 8 لا تظهر في شيت Daily Report فقط اشكر اهتمامكم

اشكرك اخي الكريم على الرد تم حل المشكلة وكانت متعلقة في نطاق التكرا و تم التعديل

السلام عليكم اخ حسونة الرجاء المساعدة ..لاحظت خلال استعمال الكود المرفق ادناه انة عندما يتم الترحيل من School Fee Receipt الى شيت "Daily Report" يرحل فقط حتى الدفعة السادسة و لا يرحل السابعة و الثامنة و اذا اردت زيادة الدفعات الكود يعمل بشكل جيد ما عدا هذه المشكلة لك جزيل الشكر سلفا Sub Test() Dim Sh As Worksheet, Ws As Worksheet, i As Long, lr As Long, DestPath Set Sh = ThisWorkbook.Worksheets("School Fee Receipt") Set Ws = ThisWorkbook.Worksheets("Daily Report") lr = Application.Max(4, Ws.Cells(Rows.Count, "b").End(xlUp).Row) + 1 For i = 22 To 15 Step -1 If Sh.Cells(i, "H") <> 0 Then Ws.Range("B" & lr) = Sh.Range("E12") Ws.Range("C" & lr) = Sh.Range("E14") Ws.Range("D" & lr) = Sh.Range("e13") Ws.Range("E" & lr) = Format(Sh.Range("i10"), "[$-1010000]yyyy/mm/dd;@") Ws.Range("F" & lr) = Sh.Range("i12") Ws.Range("G" & lr) = Sh.Cells(i, "G") Ws.Range("H" & lr) = Sh.Cells(i, "H") Exit For End If Next i DestPath = "\\10.20.30.3\homedir\a.ghanem\PDF-Recipts\" & Sh.Range("e13") & " ايصال رقم " & Sh.Range("i12") & ".pdf" Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DestPath End Sub

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

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

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

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

السلام عليكم اتعبتكم مع اني احاول التوضيح قدر الإمكان يوجد شرح داخل الملف على شيتات :School Fee Collection Sheet School Fee Receipt Daily Report ببساطة اريد ان احفظ نسخة بصيغة PDF و تريحيل بيانات الإيصال الى التقرير اليومي تلقائيا قبل تعديل البيانات لعمل ايصال جديد. School Fee Collection System-.xlsm

المطلوب رجاء:عند ادخال قبض مبلغ معين في Sheet School Collection يتم اصدار إيصال لتلميذ بتاريخة (يتم احضارة عبر رقم الطالب في القائمة النسدلة في شيت School Fee Receiptثم ترحيله الى شيت التقرير اليومي (Daily Report) فقط ايصال اليوم(كل يوم بيومه فقط) على الإيصال عدد 8دفعات المطلوب ترحيل الدفعة الأخرة فقط ثم حفظ نسخة من الإيصال بصيغة PDF بمسار معين مع امكانية حذف البيانات قبل بدء يوم جديد و قبل تعديل البيانات لإصدار إيصال جديد لكم جزيل الشكر و التقدير School Fee Collection System-.xlsm

اشكرك على الإجابة و الجهد .زادك الله من فضله وجعله في ميزان حسناتك. اخي العزيز وضعت الكود في شيت 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 السلام عليكم نزولا عند رغبتكم هذا الملف الذي اعمل عليه و اذكر ان المشكلة حصلت جدول مساهمات صيانة شهرية 2022.xlsm

اللأستاذ الكريم احمد ابوزيزو حفظكم المولى يبدو اني اتعبتكم في حل هذه المشكلة وكي لا اطيل هذا ما فعلته بناء على اقتراحكم: وجاءت النتيجو على النحو الآتي:

الاخ كريم نظيم اكرمك الله فقط ااتذير انني استخدم 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