اذهب الي المحتوي
أوفيسنا

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


mgbole2010

الردود الموصى بها

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

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

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

SUM(Sheet2!A1;Sheet3!A1)=

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

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

تم تعديل بواسطه 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

 

رابط هذا التعليق
شارك

 

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

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

تم تعديل بواسطه mgbole2010
رابط هذا التعليق
شارك

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

 

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information