أبو سجده

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

اخى العزيز الغالى // بن علية حاجى السلام عليكم ورحمته الله وبركاته عذرا أخى الحبيب الغالى بشأن التفقيط فيعتمد على صافى المبلغ بالخليتين AC و AH على ان يتم التفقيط بالخلية C29 حيث تمثل موقعها الاصلى من أجل ذلك ذكرت فى مشاركتى رقم 7 ولكن الامرعلى ماأعتقد يستدعى حيله لتنفيذه لاحساسى أنه قد يكون هناك تعارض بين تنفيذ الاكواد مع بعضها تم تعديل المرفق بالمشاركة السابقة لذا فضلا برجاء تحميل المرفق مرة أخرى حيث يحتوى على توضيح ماتفضلت به بارك الله فيكم وجزاكم الله خيرا تقبل وافراحترامى وتقديرى

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

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الغالى المحترم // بن عليه حاجى السلام عليكم ورحمته الله وبركاته منذ اللحظة الاولى لمشاركتى هذا الموضوع أيقنت ان الخيرأت بإذن الله لامحالة ملحوظتى هى وبعد الاطلاع على ماتفضلت به اننى حذفت السطرين التاليين من الكود واصبحت الامور تسرى على مايرام sh2.Cells(Rw3, "AG") = Cells(Rw3, "Q"): sh2.Cells(Rw3, "AH") = Cells(Rw3, "R") sh2.Range("Q" & Rw3 & ":AH" & Rw3).Select فالله أسأل أن ينعم عليك بنعمة الصحة والعافية وجزاك الله عنى خيرالجزاء وان يبارك لنا فى عمرك وان يجعل هذا الجهد فى موازين حسناتك فشكرا لك اخى الحبيب على صبرك معى واسمح اخى الحبيب لى ان اتقدم بخالص شكرى وامتنانى لاخى العزيز الاستاذ الفاضل // شوقى ربيع صاحب تنفيذ هذا الكود الرائع لموضوع سابق جمعنى واياه به فجزاه الله تعالى عنى خيرالجزاء كما استسمحك اخى الغالى بأن اتقدم بخالص شكرى وامتنانى لاخى العزيز الاستاذ الفاضل // ياسر خليل " ابوالبراء " عما قدمه لى بالامس بذات الموضوع وعما يقدمه بصفه يوميه على صفحات هذا البيت المتميز فجزاه الله تعالى عنى خير الجزاء http://www.officena.net/ib/index.php?showtopic=60268 وأخير وليس بأخر أدعوك أخى الحبيب الاطلاع على المشاركة رقم 3 بالرابط المشاراليه فى محاولة لاضافة كود التفقيط بالمرفق المشاراليه عاليه بالمشاركة رقم 5 حتى يكتمل العمل من جميع جوانبه حيث أضفت للمرفق كود التفقيط على طريقة القرش والجنيه ولكن الامرعلى ماأعتقد يستدعى حيله لتنفيذه بارك الله فيكم جميعا .... تقبلوا وافراحترامى وتقديرى ... وجزاكم الله خيرا

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

بسم الله الرحمن الرحيم وبه نستعين أخى العزيزالغالى الاستاذ // بن عليه حاجى السلام عليكم ورحمته الله وبركاته بارك الله فيكم وأحسن إليك ... عاشت يديك ... تعديل ميت فل و14 إضفت هنا بالمرفق التالى العمودين AE و AF ولكن بدون كسرالقرش نظرا لاحتواء تلك الاعمدة على قيم الجنيهات فقط وذلك باستخدام معادلة sum وبهذا اصبح بداية الجمع والتلحيق من بداية العمود Q الى العمود AH فكيف السبيل لتعديل أخر فى ظل اختلاف معادلات الجمع تقبل وافراحترامى وتقديرى ... وجزاكم الله خيرا

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

الاخوة الاعزاء السلام عليكم ورحمته الله وبركاته المطوب بحول الله تعالى تعديل كود الجمع الموضح بالمرفق التالى ليعمل على طريقة القرش والجنيه بالخلية N28 معادلة جمع القروش =100*(SUM($N$8:$N$27)/100-INT(SUM($N$8:$N$27)/100)) وبالخلية O28 معادلة جمع الجنيهات مع القروش معا =INT(SUMPRODUCT(100*($O$8:$O$27)+($N$8:$N$27))/100) الجزء الخاص بعملية الجمع على طريقة العمود الواحد والمراد تعديله ولتفعيل الكود يتم الضغط على F2 Rw2 = Lrw: Rw3 = Lrw + 1 sh2.Cells(Rw3, 14).Formula = "=IF(SUM(N" & Rw1 & ":N" & Rw2 & ")=0,"""",SUM(N" & Rw1 & ":N" & Rw2 & "))" sh2.Cells(Rw3, 14).Select Selection.AutoFill Destination:=Range("N" & Rw3 & ":AE" & Rw3), Type:=xlFillDefault sh2.Range("N" & Rw3 & ":AE" & Rw3).Select وجزاكم الله خيرا وبارك فيكم جميعا

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

بسم الله الرحمن الرحيم وبه نستعين الاخوة الاعزاء السلام عليكم ورحمته الله وبركاته الكود التالى يعتمد على عدة عوامل منها عملية الجمع بالكشف الاول وتلحيق هذا الجمع مع بداية الكشف الثانى وهكذا باقى الكشوف وذلك من خلال الضغط على الزر F2 من لوحة المفاتيح علما بأن الكود ليس به أدنى مشكلة تذكر حيث تبدأ عملية الجمع من العمود E الى العمود AC ولكن مع تقليص عدد الاعمدة لكى تبدأ عملية الجمع والتلحيق من العمود N الى العمود W يحدث خلل بظهور رسالة خطأ لذا نرجو التفضل بتعديل الكود على نحو تبدأ عملية الجمع والتلحيق من العمود N الى العمود W والى حضراتكم المرفق التالى المراد تعديله لكى تبدأ عملية الجمع والتلحيق من العمود N الى العمود W وافر تقديرى واحترامى وجزاكم الله خيرا Sub Copeir_Tebel() 'لنسخ الجدول ايضا بنفس ارتفاع الصفوف Dim sh As Worksheet: Set sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("مكافاة الثانوية العامة") Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 Dim i As Integer sh2.Rows("28:28").Copy sh2.Range("A" & lr + 4).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False sh2.Rows("8:28").Copy sh2.Range("A" & lr + 5).Select ActiveSheet.Paste Application.CutCopyMode = False Dim Lrw As Long: Lrw = sh2.Cells(sh2.Rows.Count, 2).End(xlUp).Row Dim x As Integer: x = sh2.Range("A" & lr - 3) + 1 For i = lr + 5 To Lrw - 1 sh2.Range("A" & i) = x x = x + 1 Next Dim MyString As String, sXXXX As String Dim lID As Long MyString = sh2.Range("A" & lr - 2) lID = Mid(MyString, 8, Len(MyString)) sXXXX = Mid(MyString, 1, 7) sh2.Range("A" & lr + 4) = "الكشف " & lID sh2.Range("A" & Lrw + 1) = sXXXX & lID + 1 ActiveSheet.PageSetup.PrintArea = "$A$1:$AD" & Lrw Dim Str As Byte: Str = 34 FinalRow = Range("A65536").End(xlUp).Row For i = Str To FinalRow Step 27 ActiveSheet.Cells(i, 1).Select ActiveSheet.HPageBreaks.Add before:=Cells(i, 1) Next i End Sub

اخى العزيز الاستاذ // ياسر خليل السلام عليكم بما أن سيادتكم تتصفح الموضوع برجاء الاطلاع والافاده المرفق التالى يوضح المشكلة فقط مع تغيير معادلة الجمع بالكود من الــ N الى W تظهر رسالة الخطأ .... على مايبدو هناك ارتباط بالعمود الــ E بأمر ما حتى ولو تم تغيير المعادلة الى أى مدى أخر .... ارجو التماس العذر لاننى على غيرخبره بالاكواد .... فضلا عن مافقدنا من نورأبصارنا وافر احترامى وتقديرى .. وجزاكم الله خيرا

للرفع

للرفع

الله المستعان

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

السلام عليكم ورحمته الله وبركاته نظرا لارتباط السطر التالى Dim Rw1 As Long, Rw2 As Long, Rw3 As Long بهذه السطور والمتعلقه بعملية الجمع والتلحيق Rw2 = Lrw: Rw3 = Lrw + 1 sh2.Cells(Rw3, 5).Formula = "=IF(SUM(N" & Rw1 & ":N" & Rw2 & ")=0,"""",SUM(N" & Rw1 & ":N" & Rw2 & "))" sh2.Cells(Rw3, 5).Select Selection.AutoFill Destination:=Range("N" & Rw3 & ":W" & Rw3), Type:=xlFillDefault sh2.Range("N" & Rw3 & ":W" & Rw3).Select مع تغير معادلة الجمع بالكود بداية من العمودالــ N الى العمود w تظهر رسالة الخطأ لذا نرجو فضلا عمل اللازم نحو التعديل المطلوب وافر احترامى وتقديرى ......وجزاكم الله خيرا

للرفع

للرفع

للرفع

للرفع

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

للرفع

السلام عليكم ورحمته الله وبركاته المطلوب بإذن الله تعالى ان تبدأ عملية الجمع والتلحيق من العمود N حتى العمود W وجزاكم الله خيرا

للرفع

أخى السائل // السلام عليكم ورحمته الله وبركاته بشأن ال 1% " اصابة العمل " فهى غير خاضعه سواء الدمغه العادية أو ضريبة الدخل وافر احترامى