السلام عليكم ورحمة الله وبركاته
الكود المرفق يقوم بالجمع من كل الاوراق عدا الورقة النشطة
Sub AL_KHALEDI()
For Each sh In Worksheets
If sh.Name <> ActiveSheet.Name Then
With Range(sh.Cells(2, 3), sh.Cells(Rows.Count, 3).End(xlUp))
S = S + Application.SumIf(.Cells, ">=" & [C2], .Cells(1, 2))
S = S - Application.SumIf(.Cells, ">" & [B2], .Cells(1, 2))
End With
End If
Next
[B5] = S
End Sub
ارجو ان يكون المطلوب في أمان الله
جمع بين تاريخين من عدة اوراق.rar