كود جمع لاخر صف به بيانات

**ابو حمادة** · يناير 19, 2017

السلام عليكم ورحمة الله تعالي وبركاته ......... الاخوة الافاضل اساتذتي الكرام

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

مرفق ملف توضيحي اكثر ......... ولكم منى جزيل الشكر

كود جمع.rar

**سليم حاصبيا** · يناير 20, 2017

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

Sub my_sum()
Dim Lr As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
         With My_sheet
             Lr = Application.Max(.Range("a:a")) + 4
             .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
             .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr))
             .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr))
             .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr))
        End With
End Sub

**ابو حمادة** · يناير 20, 2017

منذ ساعه, سليم حاصبيا said:

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


Sub my_sum()
Dim Lr As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
         With My_sheet
             Lr = Application.Max(.Range("a:a")) + 4
             .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
             .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr))
             .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr))
             .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr))
        End With
End Sub

شكرا ليك استاذي الغالي

بس الكود بيشتغل علي صف واحد لما ازود عدد البيانات بعد اضافه بيانات اخرى لا يتم جمعها

**سليم حاصبيا** · يناير 20, 2017

يجب تشغيل الماكرو من جديد كلما تم التعديل على البيانات

يمكن وضع رز يقوم بتشفيل الماكرو

**ابو حمادة** · يناير 20, 2017

الان, سليم حاصبيا said:

يجب تشغيل الماكرو من جديد كلما تم التعديل على البيانات

يمكن وضع رز يقوم بتشفيل الماكرو

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

**ابراهيم الحداد** · يناير 20, 2017

السلام عليكم ورحمة الله

بعد اذن الاستاذ سليم

جرب اخى هذا الكود

Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

**سليم حاصبيا** · يناير 20, 2017

جرب المرفق

كود جمع salim.rar

**ابو حمادة** · يناير 20, 2017

3 دقائق مضت, زيزو العجوز said:
السلام عليكم ورحمة الله

بعد اذن الاستاذ سليم

جرب اخى هذا الكود
Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

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

ولو امكن معرفة ازاى ازود فيه اعمده الجمع علما ان اعمده الجمع حوالى 25 عمود بجوار بعضهما

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

6 دقائق مضت, سليم حاصبيا said:

جرب المرفق

كود جمع salim.rar

كدا شغال كويس بس مش بيمسح صف الجمع ال قبل منه بيكون فيه صفين اجمالى للكشف

**سليم حاصبيا** · يناير 20, 2017

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

**ابو حمادة** · يناير 20, 2017

منذ ساعه, زيزو العجوز said:
السلام عليكم ورحمة الله

بعد اذن الاستاذ سليم

جرب اخى هذا الكود
Sub SummCol()
Lr = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Lr & ":E" & Lr).ClearContents
For R = 5 To Lr
x = x + Cells(R, "C")
y = y + Cells(R, "D")
Z = Z + Cells(R, "E")
Next
LS = Range("B" & Rows.Count).End(xlUp).Row
Cells(LS + 2, 2) = "اجمالى الكشف"
Cells(LS + 2, 3) = x
Cells(LS + 2, 4) = x
Cells(LS + 2, 5) = x
End Sub

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

**ابو حمادة** · يناير 20, 2017

منذ ساعه, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

منذ ساعه, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

**سليم حاصبيا** · يناير 20, 2017

26 دقائق مضت, ابو حمادة said:

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

جمع للورقه salim.rar

**ابو حمادة** · يناير 20, 2017

17 دقائق مضت, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

جمع للورقه salim.rar

انا مش عارف اشكرك ازى لاهتمامك بس تقريبا حضرتك مش بجرب الملف حاول تضغط على زر الماكرو حساب الورقه وبعدها تضيف سطر بيانات و احسب تانى الورقه

يريت تحاول تجرب الملف وتشوف النتيجه فيه ملاحظتين

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

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

اتمنى اكون قدرت اوصلك المعلومه

ولك منى تحياتى

**سليم حاصبيا** · يناير 20, 2017

منذ ساعه, ابو حمادة said:

دا الملف الاصلي اتمنى تركيب الكود عليه وشكرا لكم

جمع للورقه.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )

Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

تم التعديل

جمع للورقه salim1.rar

**ابو حمادة** · يناير 20, 2017

36 دقائق مضت, سليم حاصبيا said:

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً )


Sub my_sum_for_All()
Dim Lr, Lc As Integer, My_sheet As Worksheet
Set My_sheet = Sheets("ورقة1")
If ActiveSheet.Name <> My_sheet.Name Then Exit Sub
         With My_sheet
             Lc = Cells(4, Columns.Count).End(xlToLeft).Column
             Lr = Application.Max(.Range("a:a")) + 4
             Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents
             .Cells(Lr + 2, 2) = "اجمالى الكشف"
                 For i = 3 To Lc
                    .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i)))
                Next
        End With
End Sub

الملف جاهز

جمع للورقه salim.rar

انا مش عارف اشكرك ازى لاهتمامك بس تقريبا حضرتك مش بجرب الملف حاول تضغط على زر الماكرو حساب الورقه وبعدها تضيف سطر بيانات و احسب تانى الورقه

يريت تحاول تجرب الملف وتشوف النتيجه فيه ملاحظتين

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

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

اتمنى اكون قدرت اوصلك المعلومه

ولك منى تحياتى

شكرا لحضرتك استاذ سليم بس بردو مازالت نفس المشكله

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

المفروض انه بعد اضافه اي بيات يتم مسح مجموع الكشف الاول ثم يتم اعاده الحساب بحيث يكون الناتج صحيح

كما موجود في الصوره المرفقه ولاحظ الفرق في الصورة

لاحظ الصووره وانظر لصف المجموع عند اضافه اي بيان

سوف تجد 2 صف للمجموع بدلا من 1

**سليم حاصبيا** · يناير 20, 2017

نم التعديل على الملف وتفادي الخطأ

انظر الى التعديل الذي جرى في معادلات العامود الاول

جمع للورقه salim2.rar

**ابو حمادة** · يناير 20, 2017

الله ينور ياباشا بجد تسلم ايدك استاذي الغالي

بجد انا شاكر ليك جدا مجهود اكثر من رائع

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

وزادك الله علما تنفع به الناس

لو امكن ان تساعدنيفي هذا الملف

لو امكن

ولك جزيل الشكر والتقدير

**ابو حمادة** · يناير 24, 2017

في ٢٠‏/١‏/٢٠١٧ at 19:00, سليم حاصبيا said:

نم التعديل على الملف وتفادي الخطأ

انظر الى التعديل الذي جرى في معادلات العامود الاول

جمع للورقه salim2.rar

السلام عليم اخي الغالي استاذ سليم حاصبيا

ممكن استفسار بسيط بخصوص كود الجمع ال حضرتك عامله هو بيبدا يجمع بدايه من العمود ( G ) الى العمود ( W ) وانا محتاجه يجمع من ( G ) الى ( X ) ازى اعدل المدي دا بعد اذنك وهل من الممكن وضع سطر لتحديد النطاق

لك منى تحياتى وجزاك الله خيرا

تسجيل الدخول

كود جمع لاخر صف به بيانات

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

ابو حمادة

سليم حاصبيا

ابو حمادة

سليم حاصبيا

ابو حمادة

ابراهيم الحداد

سليم حاصبيا

ابو حمادة

سليم حاصبيا

ابو حمادة

ابو حمادة

سليم حاصبيا

ابو حمادة

سليم حاصبيا

ابو حمادة

سليم حاصبيا

ابو حمادة

ابو حمادة

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information