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

[سليم حاصبيا]

جرب ان تغير هذا الجزء من  الكود الى ما يلي:

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بل

[أبو سجده]

اخى العزيز الاستاذ الفاضل // سليم

السلام عليكم

بارك الله فيكم

نفس رسالة الخطأ 

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

[سليم حاصبيا]

محاولة اخرى

RW2 = Lrw: RW3 = Lrw + 1
S = Application.WorksheetFunction.Sum(Range("N" & RW1, "N" & RW3))
 
sh2.Cells(RW3, 5).Formula .IF(S = 0, """", S)
Selection.AutoFill Destination:=Range("N" & RW1, "N" & RW3), Type:=xlFillDefault
 sh2.Range("N" & RW1, "N" & RW3).Select

[أبو سجده]

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

[أبو سجده]

للرفع

[أبو سجده]

للرفع

[أبو سجده]

اخى العزيز الاستاذ // ياسر خليل

السلام عليكم 

بما أن سيادتكم تتصفح الموضوع

برجاء الاطلاع والافاده

المرفق التالى يوضح المشكلة

فقط مع تغيير معادلة الجمع بالكود من الــ N  الى W

تظهر رسالة الخطأ .... على مايبدو هناك ارتباط بالعمود الــ E بأمر ما

حتى ولو تم تغيير المعادلة الى أى مدى أخر .... ارجو التماس العذر لاننى على

غيرخبره بالاكواد .... فضلا عن مافقدنا من نورأبصارنا

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

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

[ياسر خليل أبو البراء]

أخي الحبيب سعيد

اعذرني لعدم المتباعة للموضوع بشكل جيد ..

يرجى إرفاق الكود الذي تتحدث عنه ..وحدد ما هي الجزئية التي يحدث فيها الخطأ ..

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