احمدزمان

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

السلام عليكم و رحمة الله جزاك الله خيرا تم التعديل في المرفق ستدعاء النتيجة النهائية .rar

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

السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير لأخي الفاضل ابو حنين على الكود الجميل جزاه الله كل خير اخي انس حل آخر Dim FS As Worksheet, TS As Worksheet, RN1 As Range, ER, TR, T, R Set FS = Sheets("Payment") Set TS = Sheets("Cleared Payment") 'For R = 8 To Application.CountA(Range("au8:au5000")) ER = Application.CountA(FS.Range("C1:C55555")) + 9 TR = Application.CountA(TS.Range("A1:A55555")) + 5 For R = 5 To ER If FS.Range("U" & R) = 0 Then Set RN1 = FS.Range("A" & R & ":S" & R) RN1.Copy TS.Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False RN1.ClearContents TR = TR + 1 End If Next R Application.CutCopyMode = False Set RN1 = FS.Range("A5:U" & ER) RN1.Sort Key1:=Range("C5") نقل بيانات المدفوعات المسدده.rar

السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير لأخي الفاضل ابو حنين على الكود الجميل جزاه الله كل خير اخي انس حل آخر Dim FS As Worksheet, TS As Worksheet, RN1 As Range, ER, TR, T, R Set FS = Sheets("Payment") Set TS = Sheets("Cleared Payment") 'For R = 8 To Application.CountA(Range("au8:au5000")) ER = Application.CountA(FS.Range("C1:C55555")) + 9 TR = Application.CountA(TS.Range("A1:A55555")) + 5 For R = 5 To ER If FS.Range("U" & R) = 0 Then Set RN1 = FS.Range("A" & R & ":S" & R) RN1.Copy TS.Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False RN1.ClearContents TR = TR + 1 End If Next R Application.CutCopyMode = False Set RN1 = FS.Range("A5:U" & ER) RN1.Sort Key1:=Range("C5")

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

السلام عليكم و رحمة الله وبركاته كل عام و الجميع بخير تقبل الله من الجميع طاعاتهم واثابهم وفرج همهم اللهم آمين

السلام عليكم و رحمة الله وبركاته الأستاذ سعيد على الرغم من انني لم اجد اي عيب في حلول الأساتذة الأفاضل الذين سبقوني بحلولهم الجميلة الا انني ارفق لك حل آخر بكريقة مختلفة يتم تفصيل العمليات في الجدول الأصفر بجانب الجدول ثم يتم اخذ النتائج منه الى الجدول الرئيسي في المرفق ضرب الاعداد الصحيحة × كسر القرش -وتطبيق النسب المئوية - سعيد بيرم.rar

السلام عليكم و رحمة الله وبركاته تصفية عهده.rar

اخي الفاضل نحنه خصمنا اجمالي تصفية العهدة من اجمالي المبالغ المسلمة في الصف الحالي و الذي قبله هذا حسب ما فهمت تحياتي و تقديري

السلام عليكم و رحمة الله وبركاته اخي دهشوري باشا هذة فكرة حل على السريع قد تفي بالغرض تصفية عهده.rar =========================== هنالك عدة استفسار توضح المطلوب هل العهدة لعدة اشخاص او شخص واحد اين تاريخ الصرف او التصفية للعهدة للحساب على التاريخ

السلام عليكم و رحمة الله وبركاته الموضوع محتاج مزيد من التوضيح ماهو الملف المرفق هل هو ملف4 او الملف الذي تعمل عليه حاليا

السلام عليكم و رحمة الله وبركاته اخي الكريم في المرفق كود يقوم باظهار كل اوراق العمل في الملف اضغط على الزر السهم الأحمر الصغير في اول ورقة ويعمل الكود اذا طلب منك كلمة مرور فهي كلمة المرور الموجودة لحماية المصنف ASP SAP Sep12.rar آسف على التأخير ولكن لم ادخل الموقع الا اليوم فقط

الشكر لكما على مروركما العطر جزاكم الله كل خير

اخي الفهد بارك الله فيك وجزاك الله كل خير على مرورك الكريم خالص تحياتي وتقديري

اخي محمود حل صحيح مية في المية جزاك الله كل خير واختصارا ActiveSheet.Range("A1:L28").PrintOut مع التحية

كل عام وانته بخير اخي الحبيب والقريب من القلب ابو احمد تقبل الله منكم الصيام و القيام وصالح الأعمال

السلام عليكم و رحمة الله وبركاته بعد اذن اخي محمود =SUMPRODUCT(($D$43:$D$51=$D46)*($I$43:$I$51=$I46)) استخدم هذه الدالة لتحديد الأعداد وقسم علية المبلغ

اخي الكريم عطنا حاجة ملموسة اكواد الطباعة كثير

السلام عليكم و رحمة الله وبركاته اخي رعد اتمنى ان يكون اخي تميم قد اعطاك الفائدة التي ترجوها اخي ناصر اشكرك على مرورك الكريم اخواني رعدو ابو تميم وناصر - جزاكم الله كل خير

السلام عليكم و رحمة الله جرب هذا مثال.rar

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

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

السلام عليكم و رحمة الله جرب المرفق منظومةمبيعات.rar

السلام عليكم و رحمة الله وبركاته تحية وتقدير الى اخواني ابو احمد و محمد ليي وبقية الأخوة اتقد ان المطلوب صعب نوعا ما (ليس مستحيل) يجب ان نعرف عدد الصفوف في كل ورقة مطبوعة ثم نضيف سطرين سطر يجمع الورقة الحالية وصف يجمع كل السابق هل هذا صحيح