كود تجميع المدفوعات وغير مدفوع من عدة صفحات

[حسين مامون]

السلام عليكم

اخواني  عندي ملف يتكون من عدة صفحات  . في (الرءيسية ) جدول  اريد عند ادخال الفترة في العمود (i )يكتب تلقاءيا مجموع المدفوعات وغير مدفوع  لبيانات الصفحات المرقمة

انظر المرفق

اسعد الله ايامكم

اصناف1.rar

[أبو حنــــين]

السلام عليكم

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sh As Worksheet
If Target.Column = 9 And Target.Row > 14 Then
    Application.ScreenUpdating = False
    For Each sh In Sheets
    If IsNumeric(sh.Name) = True Then
    LR = sh.Cells(Rows.Count, "G").End(xlUp).Row
    ActiveCell.Offset(-1, 1).Value = ActiveCell.Offset(-1, 1).Value + WorksheetFunction.SumIf( _
    sh.Range("G4:G" & LR), CStr(ActiveCell.Offset(-1).Value), sh.Range("I4:I" & LR))
    ActiveCell.Offset(-1, 2).Value = ActiveCell.Offset(-1, 2).Value + WorksheetFunction.SumIf( _
    sh.Range("G4:G" & LR), CStr(ActiveCell.Offset(-1).Value), sh.Range("J4:J" & LR))
    ActiveCell.Offset(-1, 3).Value = ActiveCell.Offset(-1, 1).Value + ActiveCell.Offset(-1, 2).Value
    End If
    Next
Application.ScreenUpdating = True
End If

End Sub

 

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

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

تفضل هذا الكود

 

Sub Summing1()
f = 0
s = 0
For i = 2 To Sheets.Count
For R = 15 To Cells(Rows.Count, "I").End(xlUp).Row
Sheets(i).Name = i - 1
f = f + Sheets(i).Cells(R - 11, "I")
Cells(R, "J") = f
s = s + Sheets(i).Cells(R - 11, "J")
Cells(R, "K") = s
Next
Next
End Sub

 

[حسين مامون]

السلام عليكم 

اشكركم اساتذتي على تجاوبكم

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

الكود يعمل كما اريد وافتخر بوجود امثالكم في المنتدى 

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

الان, حسين22 said:

السلام عليكم 

اشكركم اساتذتي على تجاوبكم

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

الكود يعمل كما اريد وافتخر بوجود امثالكم في المنتدى 

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

اشكر اخي زيزو العجوز على المشاركة 

الكود لا يعمل كما اريد ربما  لم تفهم موضوعي على كل حال شكرا شكرا 

[حسين مامون]

السلام عليكم 

استاذ ابو حنين

اريد تعديل الكود  مثلا عند ادخال بيانات في احدى الصفحات اريد ان يتغير المجموع تلقاءيا

كذالك عند اعادة ادخال نفس الفترة في نفس الخلية يضاعف المجموع 

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

المرفق

اصناف1.rar

تم تعديل سبتمبر 7, 2016 بواسطه حسين22

[حسين مامون]

لسلام عليكم 

استاذ ابو حنين

اريد تعديل الكود  مثلا عند ادخال بيانات في احدى الصفحات اريد ان يتغير المجموع تلقاءيا

كذالك عند اعادة ادخال نفس الفترة في نفس الخلية يضاعف المجموع 

حاول اعادة ادخال الفترة في نفس الخلية

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

المرفق

اصناف1.rar