احمد غانم

السلام عليكم اخي الكريم صحيح الكود ممتاز و يعمل بشكل جيد لكن اقتربنا من نهاية العام الدراسي وعند تحصيل اي من الدعات 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