VBA code modification sumif

[FGaxha]

Hi,
I have a macro to sumif between column D and E to Column I and J.
I need to add more columns. D, E F,G,H to sumif to column I,J,K,L,M,N.

Option Explicit

Sub Sumiff()
Dim i As Integer
Dim lrow As Integer

lrow = Range("i16000").End(xlUp).row

For i = 2 To lrow

Range("j" & i).Value = Application.WorksheetFunction.Sumif(Range("d:d"), Range("i" & i), Range("e:e"))

Next i

Dim rng As Range

Set rng = Range("i1:j20")

With rng
.Font.Bold = True
.Font.Color = vbBlue


End With

End Sub

 

[DanteAmor]

I need to add more columns. D, E F,G,H to sumif to column I,J,K,L,M,N.

You are not explaining, of those columns, which column is the range, which column is the criterion and which column contains the values to be sum.


Trying to deduce what you need, I put 2 more examples in your code.
Just adjust the columns.

  For i = 2 To lrow
    Range("j" & i).Value = WorksheetFunction.SumIf(Range("d:d"), Range("i" & i), Range("e:e"))

    Range("K" & i).Value = WorksheetFunction.SumIf(Range("D:D"), Range("I" & i), Range("F:F"))
    Range("L" & i).Value = WorksheetFunction.SumIf(Range("D:D"), Range("I" & i), Range("G:G"))
    '...
  Next i

If you have difficulties, give an example with a minisheet using the xl2bb tool and explain how you want each sum.

----- --
I hope to hear from you soon.
Respectfully
Dante Amor
----- --

 

[FGaxha]

thank you Dante,
it works great,