اذهب الي المحتوي
أوفيسنا

احمد غانم

04 عضو فضي
  • Posts

    774
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    2

احمد غانم last won the day on أبريل 13 2012

احمد غانم had the most liked content!

السمعه بالموقع

54 Excellent

1 متابع

عن العضو احمد غانم

  • تاريخ الميلاد 03 نوف, 1959

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    شؤون موظفين
  • البلد
    لبنان
  • الإهتمامات
    كرة القدم

وسائل التواصل

  • MSN
    ahmedghanem318@hotmail.com

اخر الزوار

3,182 زياره للملف الشخصي
  1. السلام عليكم اخي الكريم صحيح الكود ممتاز و يعمل بشكل جيد لكن اقتربنا من نهاية العام الدراسي وعند تحصيل اي من الدعات 7 و 8 لا تظهر في شيت Daily Report فقط اشكر اهتمامكم
  2. اشكرك اخي الكريم على الرد تم حل المشكلة وكانت متعلقة في نطاق التكرا و تم التعديل
  3. السلام عليكم اخ حسونة الرجاء المساعدة ..لاحظت خلال استعمال الكود المرفق ادناه انة عندما يتم الترحيل من 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
  4. اسعد الله اوقاتكم وجزاكم كل الخير و لكم جزيل الشكر و التقدير بارككم المولى دنيا و آخرة.
  5. تم و لله الحمد بفضل جهودكم المباركة لدي سؤال لو سمحت: DestPath = "\\10.20.30.3\homedir\a.ghanem\PDF-Recipts\" & Sh.Range("e13") & ".pdf" هل سمكن تضمين الكود رقم الإيصال ("i12") بجانب اسم التلميذ ("e13") ??
  6. اتعبتك معي ارجو المعذرة تم تعديل الكود لكن ظهرت الرسالة التالية حسب الصورة المرفقة بالإضافة الى رسالة (File Not Saved)
  7. السلام عليكم اخ حسونه و بارك الله جهودك المطلوب ايضا ورجاء لا امر: حفظ نسخة من الإيصال نفسه School Fee Receipt بصيغة PDF بمسار معين قبل تعديل البيانات لإصدار إيصال جديد مع امكانية حذف البيانات قبل بدء يوم جديد في شيت Daily Report --كود الحفظ في التقرير اليومي يعمل بشكل جيد شرح اضافي داخل الملف. لك جزيل الشكر و التقدير School Fee Collection System-.xlsm
  8. السلام عليكم اتعبتكم مع اني احاول التوضيح قدر الإمكان يوجد شرح داخل الملف على شيتات :School Fee Collection Sheet School Fee Receipt Daily Report ببساطة اريد ان احفظ نسخة بصيغة PDF و تريحيل بيانات الإيصال الى التقرير اليومي تلقائيا قبل تعديل البيانات لعمل ايصال جديد. School Fee Collection System-.xlsm
  9. المطلوب رجاء:عند ادخال قبض مبلغ معين في Sheet School Collection يتم اصدار إيصال لتلميذ بتاريخة (يتم احضارة عبر رقم الطالب في القائمة النسدلة في شيت School Fee Receiptثم ترحيله الى شيت التقرير اليومي (Daily Report) فقط ايصال اليوم(كل يوم بيومه فقط) على الإيصال عدد 8دفعات المطلوب ترحيل الدفعة الأخرة فقط ثم حفظ نسخة من الإيصال بصيغة PDF بمسار معين مع امكانية حذف البيانات قبل بدء يوم جديد و قبل تعديل البيانات لإصدار إيصال جديد لكم جزيل الشكر و التقدير School Fee Collection System-.xlsm
  10. اشكرك على الإجابة و الجهد .زادك الله من فضله وجعله في ميزان حسناتك. اخي العزيز وضعت الكود في شيت School Fee Receipt واعطي نتيجة (حسب الصورة المرفقه) يتم ترحيل كل ايصالات الطالب بالنسبة للPDF المطلوب نسخة من الإيصال نفسة قبل اصدار الإيصال التالي اكرر جزيل شكري
  11. الأخوة الكرام السلام عليكم اعاد الله عليكم هذا الشهر الكريم بالخير واليمن و البركات عندي برنامج تحصيل اقساط مدرسية ارجو المساعدة في : 1- ترحيل بيانات كل ايصال يتم اصدارة في شيت (School Fee Receipt) الى شيت (Daily Report) بترتيب بحسب نموذج الجدول في شيت Daily Report ثم حفظ نسخة من الإيصال الصادر بصيغة PDF قبل اصدار ايصال جديد School Fee Collection System.xlsm
  12. السلام عليكم اخواني الكرام السؤال هو هل يوجد طريقة سهلة لجمع اكثر من 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)= لكم جزيل الشكر و التقدير
  13. الأخ الكريم ابوبسمله اعزكم المولى بارك الله جهودكم لقد حلت المشكلة لكم جزيل الشكر و التقدير و لكل من شارك وساهم
  14. اخي الكريم hassona229 السلام عليكم نزولا عند رغبتكم هذا الملف الذي اعمل عليه و اذكر ان المشكلة حصلت جدول مساهمات صيانة شهرية 2022.xlsm
×
×
  • اضف...

Important Information