-
Posts
774 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
احمد غانم last won the day on أبريل 13 2012
احمد غانم had the most liked content!
السمعه بالموقع
54 Excellentعن العضو احمد غانم
- تاريخ الميلاد 03 نوف, 1959
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
شؤون موظفين
-
البلد
لبنان
-
الإهتمامات
كرة القدم
وسائل التواصل
-
MSN
ahmedghanem318@hotmail.com
اخر الزوار
-
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
السلام عليكم اخي الكريم صحيح الكود ممتاز و يعمل بشكل جيد لكن اقتربنا من نهاية العام الدراسي وعند تحصيل اي من الدعات 7 و 8 لا تظهر في شيت Daily Report فقط اشكر اهتمامكم -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
اشكرك اخي الكريم على الرد تم حل المشكلة وكانت متعلقة في نطاق التكرا و تم التعديل -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
السلام عليكم اخ حسونة الرجاء المساعدة ..لاحظت خلال استعمال الكود المرفق ادناه انة عندما يتم الترحيل من 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 -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
اسعد الله اوقاتكم وجزاكم كل الخير و لكم جزيل الشكر و التقدير بارككم المولى دنيا و آخرة. -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
تم و لله الحمد بفضل جهودكم المباركة لدي سؤال لو سمحت: DestPath = "\\10.20.30.3\homedir\a.ghanem\PDF-Recipts\" & Sh.Range("e13") & ".pdf" هل سمكن تضمين الكود رقم الإيصال ("i12") بجانب اسم التلميذ ("e13") ?? -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
اتعبتك معي ارجو المعذرة تم تعديل الكود لكن ظهرت الرسالة التالية حسب الصورة المرفقة بالإضافة الى رسالة (File Not Saved) -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
السلام عليكم اخ حسونه و بارك الله جهودك المطلوب ايضا ورجاء لا امر: حفظ نسخة من الإيصال نفسه School Fee Receipt بصيغة PDF بمسار معين قبل تعديل البيانات لإصدار إيصال جديد مع امكانية حذف البيانات قبل بدء يوم جديد في شيت Daily Report --كود الحفظ في التقرير اليومي يعمل بشكل جيد شرح اضافي داخل الملف. لك جزيل الشكر و التقدير School Fee Collection System-.xlsm -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
السلام عليكم اتعبتكم مع اني احاول التوضيح قدر الإمكان يوجد شرح داخل الملف على شيتات :School Fee Collection Sheet School Fee Receipt Daily Report ببساطة اريد ان احفظ نسخة بصيغة PDF و تريحيل بيانات الإيصال الى التقرير اليومي تلقائيا قبل تعديل البيانات لعمل ايصال جديد. School Fee Collection System-.xlsm -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
المطلوب رجاء:عند ادخال قبض مبلغ معين في Sheet School Collection يتم اصدار إيصال لتلميذ بتاريخة (يتم احضارة عبر رقم الطالب في القائمة النسدلة في شيت School Fee Receiptثم ترحيله الى شيت التقرير اليومي (Daily Report) فقط ايصال اليوم(كل يوم بيومه فقط) على الإيصال عدد 8دفعات المطلوب ترحيل الدفعة الأخرة فقط ثم حفظ نسخة من الإيصال بصيغة PDF بمسار معين مع امكانية حذف البيانات قبل بدء يوم جديد و قبل تعديل البيانات لإصدار إيصال جديد لكم جزيل الشكر و التقدير School Fee Collection System-.xlsm -
ترحيل بيانات الإيصالات إلى التقرير اليومي
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
اشكرك على الإجابة و الجهد .زادك الله من فضله وجعله في ميزان حسناتك. اخي العزيز وضعت الكود في شيت School Fee Receipt واعطي نتيجة (حسب الصورة المرفقه) يتم ترحيل كل ايصالات الطالب بالنسبة للPDF المطلوب نسخة من الإيصال نفسة قبل اصدار الإيصال التالي اكرر جزيل شكري -
احمد غانم started following سؤال حول الجمع بالأكسل و ترحيل بيانات الإيصالات إلى التقرير اليومي
-
الأخوة الكرام السلام عليكم اعاد الله عليكم هذا الشهر الكريم بالخير واليمن و البركات عندي برنامج تحصيل اقساط مدرسية ارجو المساعدة في : 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)= لكم جزيل الشكر و التقدير
-
مشكلة اللغة العربية في اسماء الشيتات vba
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
الأخ الكريم ابوبسمله اعزكم المولى بارك الله جهودكم لقد حلت المشكلة لكم جزيل الشكر و التقدير و لكل من شارك وساهم -
مشكلة اللغة العربية في اسماء الشيتات vba
احمد غانم replied to احمد غانم's topic in منتدى الاكسيل Excel
اخي الكريم hassona229 السلام عليكم نزولا عند رغبتكم هذا الملف الذي اعمل عليه و اذكر ان المشكلة حصلت جدول مساهمات صيانة شهرية 2022.xlsm