طلب كود لحل مشكلة تذيل صفحات اوراق العمل

[أبو سجده]

الاستاذ الفاضل // شوقى ربيع 

السلام عليكم

بعد إذن سيادتكم

مع اضافة الاعمدة المظلله باللون الرمادى

حدث خلل فى الترقيم التلقائى

حيث انتهى الكشف الثانى برقم 20 

والمفترض ان ينتهى برقم 40

لذا يرجى عمل اللازم

وجزاكم الله خيرا وبارك فيكم

الساده الافاضل

السلام عليكم ورحمته الله وبركاته

وجزاكم الله خيرا

تم تعديل سبتمبر 9, 2014 بواسطه سعيد بيرم

[شوقي ربيع]

الاستاذ الفاضل // شوقى ربيع 

السلام عليكم

بعد إذن سيادتكم

مع اضافة الاعمدة المظلله باللون الرمادى

حدث خلل فى الترقيم التلقائى

حيث انتهى الكشف الثانى برقم 20 

والمفترض ان ينتهى برقم 40

لذا يرجى عمل اللازم

وجزاكم الله خيرا وبارك فيكم

السلام عليكم

غير الكود السابق الخاص بنسخ الجدول بهذا الكود

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("8:28").Copy
      sh2.Range("A" & lr + 5).Select
      ActiveSheet.Paste
Dim Lrw As Long: Lrw = sh2.Cells(sh2.Rows.Count, 2).End(xlUp).Row
Dim x As Integer: x = sh2.Range("A" & lr - 2) + 1
      For i = lr + 5 To Lrw
      sh2.Range("A" & i) = x
      x = x + 1
      Next
      ActiveSheet.PageSetup.PrintArea = "$A$1:$As" & Lrw
Dim Str As Byte: Str = 34
    FinalRow = Range("A65536").End(xlUp).Row
    For i = Str To Lrw Step 26
    ActiveSheet.HPageBreaks.Add before:=Cells(i, 1)
    Next i
End Sub

تحياتي

[أبو سجده]

اخى العزيز المحترم // شوقى ربيع

السلام عليكم

اسعدك الله فى الدارين

وبارك فيكم وفى ذريتكم

والى لقاء قريب بحول الله فى افكارا أخرى

والشكرلجميع الساده الافاضل ممن ساهموا معنا

فى هذا الموضوع

تم رفع الموضوع بموضوع مستقل على الرابط

http://www.officena.net/ib/index.php?showtopic=55519&hl=

وجزاكم الله خيرا

تم تعديل سبتمبر 10, 2014 بواسطه سعيد بيرم

[عبد الفتاح كيرة]

جزاكم الله خيرا على إبداعاتكم

[أبو سجده]

السلام عليكم ورحمته الله وبركاته

برجاء الاطلاع على المرفق التالى 

المطلوب تعديل بسيط على هذا النحو

اولا الكشف الاول الذى يبدأ من 1001 وحتى 1020 يبقى كما هو مع الاجمالى

ثانيا ادراك صف بداية من الكشف الثانى لجعل هذا الصف لاجمالى ماقبله " جملة الكشف الاول "

ثم تبدأ عملية الترقيم من بعد هذا الصف الذى تم إدراكة ليبدأ من 1021 حتى 1040

مع الاجمالى وهكذا باقى الكشوف بمعنى أدق اننى أريد ان يكون هناك عملية تلحيق تلقائى لعملية الجمع

هذا هو تصورى للمطلوب حسب التوضيح بالملف المعنون تحت اسم " التعديل المطلوب "

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

وتفضلوا سيادتكم قبول وافر احترامنا وتقديرنا

وجزاكم الله خيرا

تم تعديل مارس 12, 2015 بواسطه سعيد بيرم

[شوقي ربيع]

بسم الله الرحمان الرحيم

السلام عليكم

تم عمل المطلوب بمشيئة الله

جرب المرفق وأعلمني ان كان هناك اي اضافات او تعديلات اخرى

تحياتي للجميع

التعديل المطلوب.xlsb.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيز الاستاذ الفاضل // شوقى ربيع

السلام عليكم ورحمته الله وبركاته

بداية جزاكم الله خيرا وبارك فيكم

تم مراجعة المرفق  فضلا برجاء الاطلاع على إجماليات العمود E  بالخلايا ذات اللون الازرق

حيث من المفترض ان جملة الكشف رقم 1 = 210.00

وجملة الكشف رقم 2 = 420.00

وجملة الكشف رقم 3 = 630.00 وهكذا

مع مراجعة الترقيم التلقائى حيث لوحظ

ان الكشف رقم 2 انتهى عند رقم 1020 والمفترض ان ينتهى عند 1040

و الكشف رقم 3 ينتهى عند رقم 1060 وهكذا 

أرجو بأن لاأكون قد أثقلت عليكم

ولحين التفكير فى وضع حل أمثل لعملية التفقيط

فأنى فى انتظار ردكم .... الله أسأل ان يديم علينا نعمة الحابب فى الله ... وجزاكم الله خيرا

 

 

تم تعديل مارس 12, 2015 بواسطه سعيد بيرم

[شوقي ربيع]

 

 

تم مراجعة المرفق  فضلا برجاء الاطلاع على إجماليات العمود E  بالخلايا ذات اللون الازرق

حيث من المفترض ان جملة الكشف رقم 1 = 210.00

وجملة الكشف رقم 2 = 420.00

وجملة الكشف رقم 3 = 630.00 وهكذا

 

 

تم الحل لاكن النتائج تكون قيم وليست معادلة كما كانت سابقا

 

 

مع مراجعة الترقيم التلقائى حيث لوحظ

ان الكشف رقم 2 انتهى عند رقم 1020 والمفترض ان ينتهى عند 1040

و الكشف رقم 3 ينتهى عند رقم 1060 وهكذا 

 

 

تم تصحيح الامر

 

سؤال

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

التعديل المطلوب.xlsb.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

اخى العزيز الاستاذ الفاضل // شوقى ربيع

تحية الله عليك

بشأن الترقيم فتم تصويبة على النحو المطلوب

أما بشأن استفساركم فأنه مايتم تسجيله يدويا هو العمود D فقط

على اعتبار أن اساسيات المرتب متغيرة

وحسب ماتفضلت أن الحل تم كقيم دون معادلات وهذا ماتم  بالكشف رقم 1 فقط

دون غيره مع تغيير أساسى المرتب مع ملاحظة عدم تلحيق الاجمالى ببداية الكشف الثانى

اما مع تغير اساسى المرتب بالكشف الثانى والثالث لايتم تغيير الجملة

وهكذا باقى الكشوف ...... أرجو من الله تعالى أن يوفقكم لما يحب ويرضى

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

تم تعديل مارس 13, 2015 بواسطه سعيد بيرم

[شوقي ربيع]

وحسب ماتفضلت أن الحل تم كقيم دون معادلات وهذا ماتم  بالكشف رقم 1 فقط

دون غيره مع تغيير أساسى المرتب مع ملاحظة عدم تلحيق الاجمالى ببداية الكشف الثانى

اما مع تغير اساسى المرتب بالكشف الثانى والثالث لايتم تغيير الجملة

وهكذا باقى الكشوف ...... أرجو من الله تعالى أن يوفقكم لما يحب ويرضى

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

 

ارجو التوضيح اكثر لاني بصراحة لم استوعب الامر

ومخي اليوم شويا ملبد

[أبو سجده]

أخى العزيز الاستاذ الفاضل // شوقى ربيع

السلام عليكم ورحمته الله وبركاته

بالملف المرفق بالمشاركة رقم 33

فضلا قم بتغيير محتوى الخلية D27 ولاحظ تغير الجملة بالخلية E28 والامرعائد لوجود معادلة الجمع

أما مع تغيرمحتوى الخلية D54  لايتم تغير الجملة بالخلية  E55  والامر عائد لعدم وجود معادلة الجمع

مرفق ملف توضيحى لعملية الجمع وتلحيق الجمع

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

تم تعديل مارس 13, 2015 بواسطه سعيد بيرم

[أبو سجده]

للرفع

[أبو سجده]

up

[شوقي ربيع]

السلام عليكم

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

ارجو ان يكون هذا المطلوب راجع المرفق واعلمني باي مستجدات

تحياتي

التعديل المطلوب.xlsb.rar

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالمحترم جدا جدا // ابوربيع

السلام عليكم ورحمته الله وبركاته

جارى الاطلاع وإفادة سيادتكم قبل الخوض بأخر جزئية فى الموضوع

جزاكم الله خيرا وبارك فيكم

تم تعديل مارس 17, 2015 بواسطه سعيد بيرم

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيزالمحترم جدا جدا // ابوربيع

السلام عليكم ورحمته الله وبركاته

يشهد الله تعالى أننى لم أجد من الكلمات التى توافيك حقك

الله أسأل ان يديم عليك نعمة الصحة والعافية

وأن يرزقكم وإيانا من حيث لانحتسب

أخى العزيزالغالى نعم هذا هو المطلوب  وبقيت الخطوة الاخيرة

الا وهى عملية التفقيط ولكنها فى حاجة إلى فنجان قهوة " تلقيمة بن محوج "

 

ههههههههههههههه " أحلى ابتسامة لآحلى شوقى بالجزائرالشقيقة "

حتى تكتمل مسيرة عطائكم الذى احتسبها عند المولى العلى القدير

فى موازيين حسناتكم بإذن الله تعالى يوم لاينفع مالا ولابنون إلا من أتى الله بقلب سليم

ولحين تعديل المرفق على الوضع الذى سيتم العمل عليه

وحتى لايكون هناك إرهاق ذهنى عليك أخى الحبيب

اسمح لى بهذا التوضيح فلكل عمل هدف معين

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

ممن ليس لهم أدنى ضميرفى مجال عملهم وتجنبا لحدوث مالا يحمد عقباه

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

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

مثالا على ذلك

وليكن لديك كشف واحد فقط سيتم من خلاله صرف المبلغ فيجب هنا ان تتم

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

أما لو هناك أكثر من كشف ولنعتبر ان هناك 2 كشفان جاهزان للطباعه فيجب هنا تجاهل التفقيط بالكشف

الاول ومن ثم يأتى التفقيط نهاية الكشف رقم 2

بهذا التوضيح أخى الحبيب  ارجو أن أكون وضحت لسيادتكم المطلوب

بشأن عملية التفقيط وسأترك لك حرية اختيار الكود الملائم أوالمعادلة الملائمة لتنفيذ ذلك

الله أسأل أن يوفقكم وإيانا لما يحب ويرضى  .... بارك الله فيك واسعدك فى الدارين ... وجزاكم الله خيرا

تم تعديل مارس 17, 2015 بواسطه سعيد بيرم

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

اخى العزيز الاستاذ الفاضل // ابو ربيع

السلام عليكم ورحمته الله وبركاته

تم تعديل الملف حيث تم تقليص عدد الاعمدة على الوضع الذى يتم العمل عليه

ولاحظ أخى الفاضل عند الضغط على F2  تظهر رسالة خطأ والامر عائد

الى تغيير الــ RANGE بهذه السطور

sh2.Cells(Rw3, 5).Formula = "=IF(SUM(E" & Rw1 & ":E" & Rw2 & ")=0,"""",SUM(E" & Rw1 & ":E" & Rw2 & "))"
        sh2.Cells(Rw3, 5).Select
        Selection.AutoFill Destination:=Range("E" & Rw3 & ":AC" & Rw3), Type:=xlFillDefault
        sh2.Range("E" & Rw3 & ":AC" & Rw3).Select 

وبالرغم من تعديل الــ RANGE  ولكن نفس رسالة الخطأ

فتركت الامورلسيادتكم حتى نسيرعلى الدرب الصحيح

اما بشأن التفقيط يرجى عمل اللازم على النحو المبين بالمشاركة السابقة

بارك الله فيكم وجزاكم خيرا 

تم تعديل مارس 17, 2015 بواسطه سعيد بيرم

[أبو سجده]

للرفع

[أبو سجده]

السلام عليكم ورحمته الله وبركاته

المطلوب  بإذن الله تعالى

ان تبدأ عملية الجمع والتلحيق

من العمود N   حتى العمود W

وجزاكم الله خيرا 

تم تعديل مارس 29, 2015 بواسطه سعيد بيرم

[أبو سجده]

للرفع

[أبو سجده]

للرفع

[أبو سجده]

للرفع

[أبو سجده]

للرفع

[أبو سجده]

للرفع

[أبو سجده]

 السلام عليكم ورحمته الله وبركاته

نظرا لارتباط السطر التالى

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

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

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

تم تعديل مارس 31, 2015 بواسطه سعيد بيرم