vba Sumifs يعمل على عدة اعمدة

[ضياء 2]

السلام عليكم الاساتذة الكرام فضلا من كرمكم في تعديل  " كود اجمالي الاصناف يعمل على عمود ( E ) فقط المطلوب يعمل على أعمدة ( J - I - H - G - F  ) "

تجربة.xlsb

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

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

اجعل الكود هكذا

  Sub y()
    Dim sumRange As Range, criteriaRange As Range
    Dim result As Double
    Dim i As Integer
    Dim lastrow As Long
    Dim R As Range
    Dim criteria As Variant
    Set criteriaRange = Range("D4:D20")
    criteria = Array("اجمالي صنف1", "اجمالي صنف2")
        j = 1
    Do While j <= 6
    Set sumRange = Range("E4:E20").Offset(0, j - 1)
    For i = 0 To UBound(criteria)
        result = WorksheetFunction.Sum(result, WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria(i)))
Set R = ActiveSheet.Cells.Find("اجمالي الأصناف", , xlValues, xlWhole)
If Not R Is Nothing Then R.Select
ActiveCell.Offset(0, j).Select
  ActiveCell.Value = result
   Next i
  result = 0
j = j + 1
Loop
  Range("D3").Activate
End Sub

 

[ضياء 2]

مبدع استاذنا ابراهيم الحداد  الشكر موصول لشخصكم الكريم بارك الله في علمك وصحتك