نجوم المشاركات

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

السلام عليكم ورحمة الله وبركاته أستاذي الكريم الصقر أود أن أشكرك على كل أعمالك المفيدة التي تنير طريق المتعلم ليرتقي بطريقتك الرائعة في إيصال المعلومة لكل من أراد الاستفادة من الاكسل في تدبير شؤونه العلمية والعملية فوالله أني أحبك في الله كما يحبك جميع الإخوة في هذا المنتدى العظيم أرجوا منك أن تقرأ طلبي هذا ولا تمر عليه مر الكرام في الترحيب بكل رأي للإخوة لأنهم يرون أنك تستحق أن تكون خبير معتمد فلا أرى في هذا إلا تقديرا لما تقوم به فنحن مرآة لك في هذا الصرح العظيم نفيد بعضنا ونستفيد لا تبخل نفسك على الترقية فأنت تستحقها على جدارة واستحقاق الكل يراك في مستوى خبير معتمد ولا أرى غير أن تقوم بالرجوع عن قرارك فلا تحطم رأي كل الأساتذة والأعضاء الكرام في قبول طلبهم والاستعانة بالله والحمد والشكر له لما أنت فيه من حب كل الأعضاء لك وتقديرك واحترامك وترقيتك لمرتبة تستحقها لا أقل ولا أكثر أتمنى لك كل خير والسلام عليكم ورحمة الله وبركاته

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

السلام عليكم ورحمة الله وبركاته أحبائى فى الله أقدم لكم اليوم كود يوضع فى حدث الشيت المراد فك حمايته يقوم بإلغاء الحماية عن الشيت Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

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

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

السّلام عليكم و رحمة الله و بركاته استاذي الفاضل / الصقر انا لا اعرفك كشخص لكن اعمالك ومشاركاتك جعلت كل هؤلاء الاخوه لديها تصميم علي ترقيتك . وسأقول لك كلمه بسيطه اذا احب الله عبدا حبب الناس فيه. واذا كنت تري انك لا تستحقها فلتعتبرها ترقيه من اخوتك وتستمر في عطائك حتي تشعر انك تستحقها. تحياتي

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar

دائما سباقين بارك الله لك اخي خالد الرشيدي تفضل اخي الغالي ما قاله الاخ خالد الرشيدي اضافى.rar

السلام عليكم وهذا كود اخر اضافة الى حل الاستاذ الفاضل بن عليه يقوم بأخذ تنسيقات الورقة الرئيسيه من عرض للاعمد والصفوف والخط والبوردر Sub Formt_Ali() Dim Sht As Worksheet Dim Sh As Worksheet Dim Rw&, Col$ Set Sht = Sheets("الرئيسية") With Application .ScreenUpdating = False .EnableEvents = True With Sht Rw = Split(.UsedRange.Address, "$")(4): Col = Split(.UsedRange.Address, "$")(3) .Range("A1:" & Col & Rw).Copy For Each Sh In Sheets Ali_Wdth Sht, Sh, True, True If Not Sh.Name = .Name Then With Sh With .Range("A1:" & Col & Rw) .PasteSpecial xlPasteFormats End With End With End If Next Sh End With .CutCopyMode = False .ScreenUpdating = True .EnableEvents = False End With End Sub Private Sub Ali_Wdth(ByVal Smp_Sht As Variant, ByVal Al_Sht As Variant, Optional Heights As Boolean = False, Optional Widths As Boolean = False) Dim Sc_Rn As Range, D_Rn As Range Dim R As Long, C As Long On Error GoTo Eri With Smp_Sht Set Sc_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With With Al_Sht Set D_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With R = WorksheetFunction.Max(Sc_Rn.Rows.Count, D_Rn.Rows.Count) C = WorksheetFunction.Max(Sc_Rn.Columns.Count, D_Rn.Columns.Count) Set Sc_Rn = Sc_Rn.Resize(R, C) Set D_Rn = D_Rn.Resize(R, C) If Heights Then For R = 1 To R D_Rn.Rows(R).RowHeight = Sc_Rn.Rows(R).RowHeight Next End If If Widths Then For C = 1 To C D_Rn.Columns(C).ColumnWidth = Sc_Rn.Columns(C).ColumnWidth Next End If Eri: End Sub

أخي الصقر اعتقد ان بعد هذة العاصفة من الأخوة ليس لك في الأمر من شيء ووجب عليك العدول عن الموضوع وكأن شيء لم يكن أكبارا" وأعزازا" للاخوة جميعا" وكفاية عليك يا عم الشعبية دي وربنا يوعدنا

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله أخي وأستاذي حسام عيسى "الصقر" وكافة الأعضاء المحترمين في هذا المنتدى الكريم والمتميز أتمنى أن يرجع حبيبي وأخي حسام عن قراره وكما ذكر أساتذتنا في المشاركات أن الترقية معنوية أكثر ماهي مادية وذات مسؤولية كبيرة أخي إدارة وفريق الموقع لا تقوم بترقية الاعضاء الإ بعد نقاش ومشاورة وهذا القرار أكثر من عادل وأنما العدل بذات نفسه أن تكون عضو خبير أو خبير معتمد لاتخف إذا كنت تخاف من قلة مشاركاتك بعد الترقية فهذه ليست مشكلة فالرد على تساؤلات الاعضاء والمشاركات هو طوعاً وتكرماً منك ليس إجباراً فأنت لديك مواضيع شيقة ومهمة سواء كانت حلول أوأفكار في مجال اكسل ومجال المحاسبة بشكل خصوص هذا ليس مجاملة ورياء وإنما كل الصدق والاخلاص في الوصف أخي حسام عيسى "الصقر" أنت الذي أدعيت أن يكون اسم عضويتك "الصقر" فإنت الصقر في العلم والمعرفة والله عندما كنت أضف مواضيع جديدة في المنتدى وأشاهد ردك أقول في نفسي قبل مشاهدة مشاركتك أصبح الموضوع ذات قيمة وتم حل الطلب هذا كله قبل المشاهدة فكيف عندما نشاهد ردك الجميل والمتواضع أخي تقبل تحياتي ومروري وإذا كنت لاتزال في رأيك فإنا مع رأي أخر وهو سحبك بشكل كامل من الموقع إذا لم ترجع عن قرارك حول الغاء الترقية هههههه وفي الختام بارك الله فيكم جميعاً أنتم خليفة الله بالعلم في الارض

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

بارك الله فيك اخي ياسر بالفعل هذا الكود مميز استخدمته منذ عامين وفقدته وتعبت حتي حصلت عليه ثانيه جزاك الله خيرا لتعميمك الفائده

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

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

تفضل اخى هل هذا ما تريد ؟؟ صور من مرفقك sa.rar

ألف ألف مبروك أخى الفاضل أ / أبو عيد على الترقية المستحقة مع مزيد من التقدم والرقى

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

السلام عليكم اخى الكريم هذا الخطأ ناتج عن كون قيمة الخلية المقسوم عليها - D2 - هى صفر وعند قسمة اى شئ على صفر فى الاكسيل ينتج الخطأ #0/DIV! اما وعن الحل يمكنك اضافة الدالة IFERROR هذه الاضافة تعنى اذا كان ناتج المعادلة خطأ اجعل الخلية فارغة "" ليكون شكل المعادلة =IFERROR(40*C2/D2;"")

بارك الله فيك أخي وأستاذي سليم عمل جميل وأكثر من رائع مشكوربارك الله فيك

اذا كنت قذ فهمت قصدك فهذه المعادلة تلبي الطلب اكتبها في الخلية F1 واسحب نزولاً =IF(OR(B1<>"",D1<>""),B1+D1-50,"")

حسابات.rar

السلام عليكم ورحمة الله أخي الكريم رضا، لأجل هذا الغرض تم إضافة كود في حدث WORKBOOK والذي يتم تنفيذه تلقائيا بمجرد الانتقال لأي شيت في المصنف (الملف)... أرجو أن يكون في الملف المرفق بعض المطلوب... بن علية تنسيق تلقائى.xlsb.rar

السلام عليكم ورحمة الله أخي الكريم علي، أبدلت الدالة AGGREGATE بالدالتين INDEX و SMALL في معادلة صفيف تجدها في الملف المرفق... بن علية Ex1.rar

السلام عليكم فقط استبدل المعادلة السابقة بهذه المعادلة وابدى ملاحظاتك =IFERROR(INDEX($G$3:$G$50;MATCH(1;($A$3:$A$50=MAX(IF(($B$3:$B$50=$J3)*($A$3:$A$50<=I3);$A$3:$A$50)))*($B$3:$B$50=$J3);0));VLOOKUP($J3;ورقة1!$B$3:$G$50;6;FALSE)) اليك المرفق Yasser_3.rar

السّلام عليكم و رحمة الله و بركاته لم أنتبه أستاذي القدير محمد حسن المحمد لهذا القسم إلاّ اليوم .. بارك الله فيك و لك .. سبّاق دومًا إلى الخيرات في شتّى الميادين و المجالات محمد حسن المحمد .. جزاك الله خيرًا .. نِعْم الانسان الطيّب الخلوق المحترم .. أرجو أن يكون مانع ظهور الأخ علاء رسلان خيرًا إن شاء المولى فائق إحتراماتي

السلام عليكم ورحمة الله وبركاته اتقدم بخالص الشكر والامتنان لادارة المنتدى على هذه الثقة الغالية التى منحونى اياها والشكر موصول للاخوة والاساتذة بالمنتدى لما يقدموة من علم وتحفيز مستمر كل التحية والتقدير والاحترام

انسخ هذه المعادلة في الخلية F4 =SUMIFS($C$2:$C$17,$A$2:$A$17,">="&$F$2,$A$2:$A$17,"<="&$F$3,$B$2:$B$17,$F$4)/SUMPRODUCT(--($A$2:$A$17>=$F$2),--($A$2:$A$17<=$F$3),--($B$2:$B$17=$F$4)) بواسطة الماكرو انظر الى هذا الملف حساب المتوسط الحسابي بناء على شروط Salim.zip

السلام عليكم مع التحفظ على انك لم تحدد ماذا لو ان تاريخ البيع لم يسبقة تاريخ شراء - لا اعلم هل واجهتنى لانك واضع بيانات افتراضيه ام ماذا - فى المرفق ستجد عندها تكون خانة التكلفة خالية اليك اخى الكريم احد طرق الحل =INDEX($G$3:$G$50;MATCH(1;($A$3:$A$50=MAX(IF(($C$3:$C$50=$K3)*($A$3:$A$50<=I3);$A$3:$A$50)))*($C$3:$C$50=K3);0)) هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER وليس ENTER فقط اليك المرفق Yasser.rar

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

السلا عليكم تم اعادة تسمية حقل رقم الملف من عربى الى انجليزى (ينصح به بشدة ) الى Numfile تم عمل نموذج رسالة ادارية حتى لا يتم المسح الا بعد التاكد تم عمل تصفية للنموذج Tb4 حيث عن الضغط على زر حذف للملف رقم 1 مثلا وكان له سجلات مرتبطة به يقوم بفتح النموذج tb4 على السجلات المرتبطه فقط بالملف رقم 1 شرح الكود 'اذا كان عدد السجلات فى الجدول الفرعى تساوى صفر بشرط تساوى ارقام الملفات ' حيث numfile = اسم حقل رقم الملف فى الجدول الفرعى ' حيث textnumfile = اسم مربع النص فى النموذج if DCount("Numfile", "tb2", "[Numfile]=" & Me.textNumfile& "") = 0 Then DoCmd.OpenForm "mared" Else DoCmd.OpenForm "tb4" End If

نعم ونتمنى ان تبدأ بالتطبيق

هذا السطر في الكود On_R = 7 غير 7 حط الرقم 6 ليبداء من اول سطر ضمن ورقة رصيد العملاء On_R = 6

أصبحنا وأصبح الملك لله الواحد القهار اللهم ما أصبح بى من نعمة أو بأحد من خلقك فمنك وحد لاشريك لك فلك الحمد ولك الشكر وصلى اللهم على نبينا سيدنا محمد صلى الله عليه وسلم اللهم صلى عليه وعلى من أتبع هداه إلى يوم الدين

السلام عليكم ورحمة الله وبركاته: أصبحنا على فطرة الإسلام وعلى كلمة الإخلاص وعلى دين نبينا محمّد صلى الله عليه وسلم وعلى ملة أبينا إبراهيم حنيفاً مسلماً وما كان من المشركين. اللهم ما أصبح بي من نعمة أو بأحد من خلقك فمنك وحدك لا شريك لك فلك الحمد ولك الشكر. بارك الله بكم إخوتي على كلمات تنعش القلب وتبعث على الطمأنينة فاليوم سجل عملك يشهد عليك فاظفر بخيره وارض ربك به وأسعد من حولك فأنت للجميع لا لنفسك فحسب والدليل قولك في كل صلاة:" اهدنا الصراط المستقيم" لم تقل اهدني.. والسلام عليكم.

السلام عليكم كما اشار اخي ياسر خليل كي نثبت قواعد يعمل عليها الكود وهذه محاوله حسب معطيات ملفك الحالي لاحظ ان اسم جميلة غير موجود في صفحة اسماء العملاء تحياتي فصل المتن والاسم والرقم وشيت باسماء العملاء_111.rar

إخواني ياسر العربي وخالد الرشيدي يفضل عدم استخدام أكواد التحديد في الكود بمعنى في هذا السطر على سبيل المثال Cells(a + 1, 1).Resize(1, 4).Select Selection.Copy يمكن استخدام هذا السطر مباشرةً بدون تحديد بهذا الشكل Cells(a + 1, 1).Resize(1, 4).Copy وفي هذين السطرين sheet1.Activate ActiveCell.EntireRow.Delete يمكن استخدام سطر واحد فقط دون تحديد ورقة العمل لأن الكود ينفذ من ورقة العمل النشطة Cells(a + 1, 1).EntireRow.Delete تقبلوا تحياتي

السلام عليكم إستكمالاً لما بدأه الاستاذ / يــاسر العربى ... جزاه الله خيراً اليك الطلب الثانى اليك المرفق 2ترحيل.rar

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

السلام عليكم الاستاذ الفاضل رجب المحترم جزاك الله خيرا عمل رائع وشرح اروع وقرات الشرح بتمعن وغيرت ما يلزم تغييره ليتطابق مع ملفي ونجحت والحمد لله بعض الشيء لكن صادفتني مشكلة في الملف المرفق لمدرستي حيث في الورقة الواحدة ( رصد الدرجات ) فيها اربع بيانات لاربعة فصول وجعلت هناك اربعة اكواد وفي كل فصل زر امر لفصل (الناجحين عن الراسبين وعن دور ثان) في اوراق ( الناجحين والراسبين ودور ثان )نفسها لاربعة فصول ولكن في خلايا متباعدة لكن المشكلة الاولى يقوم بترحيل الناجحين فقط ولايقوم بترحيل الراسبين او دور ثان اما المشكلة الثانية فحاولت ان اجعل اخر سطر للترحيل حسب اعداد كل فصل لكن لم يعمل الكود واصبح يرحل جميع الفصول لكل فصل مع بعض لان المدى (B10000) او ان هناك امر لا اعرفه بالضبط هو سبب المشكلة فارجو المساعدة في ترحيل (الناجحين والراسبين والذي لهم دور ثان) حسب المدى لكل فصل حيث لايزيد الفصل على العموم عن 50طالب ونسال الله سبحانه وتعالى ان يتقبل الطاعات في هذا الشهر المبارك ودمتم بحفظ الله ورعايته Book1.zip

الاح / الاستاذ رجب جاويش وفقك الله ابو الحارث

شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة

شرح رائع , من إنسان مبدع بارك الله فيه و زادك علماً , علي ما تقدمه من أعمال و مساعده للآخرين

تفضل أخى الكود والشرح فصل الناجح والراسب.rar

بسم الله الرحمن الرحيم بالملف المرفق تستطيع تجميع مبالغ الاسماء المتشابه من ورقه عمل و نقلها الى ورقه العمل الاساسيه و ذلك بطريقه SumIf بالكود السلام عليكم Sum_IF.rar

السلام عليكم و رحمة الله و بركاته أخي العزيز إذا كنت قد استوعبت سؤالك جيداّ فأنت تبحث عن استخدام النموذج الفرعي sub report