مشكلة ترحيل مجموع صف كامل من الورقة الاولى الي الورقة الثانية

[mgbole2010]

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

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

عموما هذه هي المعادلة

SUM(Sheet2!A1;Sheet3!A1)=

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

نموذج التعديل.rar

تم تعديل ديسمبر 15, 2017 بواسطه mgbole2010

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

جرب هذا الماكرو

Option Explicit
Sub Tarhil()
Dim lr1%, lr2%
lr1 = Application.Match(Application.Max(Sheets("sheet1").Range("b:b")), Sheets("sheet1").Range("b:b"), 0) + 1
lr2 = Sheets("sheet2").Cells(Rows.Count, "b").End(3).Row
If lr2 = 1 Then lr2 = 3
 With Sheets("sheet2")
    .Range("b" & lr2 + 1) = "المجموع "
    .Range("c" & lr2 + 1).Resize(1, 30).Value = _
    Sheets("sheet1").Range("d" & lr1).Resize(1, 30).Value
 End With
End Sub

 

[mgbole2010]

 

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

نموذج التعديل.rar

تم تعديل ديسمبر 15, 2017 بواسطه mgbole2010

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

40 دقائق مضت, mgbole2010 said:

 

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

نموذج التعديل.rar

انت لم توضح جيداً في السؤال ماتريد 

فكان العمل علة نقل المجاميع الى صفوف جديدة