Help with summation of different rows in 1 column

[bassemjohn1]

Hello guys,

I am new here and am in need of your help,I have a report that is really taking a huge time
and all I need is a way to sum what's in column D (invoice amount) for each supplier and put it in in column F (under Diff)
for example summation of Hertz invoice amount then Oriental and so on
is there any sum equation to sum the invoice amount numbers related to each supplier without me having to sum it manually
for each supplier knowing that the start and number of rows vary from supplier to another.

 

[bassemjohn1]

I had one more question please

is there a way i can copy this formula down across all suppliers in the sheet without manually doing it ? Cause i want the macro to identify it correctly

 

[Fluff]

Do you mean you want a macro to insert the formula?

 

[bassemjohn1]

Yes cause it’s not working with my macro, the macro can’t identify the sumifs formula i entered

 

[Fluff]

For future reference if you are looking for a macro, it's best to say so in the op.

 

[bassemjohn1]

For future reference if you are looking for a macro, it's best to say so in the op.

Okay noted ??

 

[Fluff]

How about

Sub bassemjohn()
   With Range("F1", Range("F" & Rows.Count).End(xlUp))
      .Replace "Diff", True, xlWhole, , False, , False, False
      .SpecialCells(xlConstants, xlLogical).Offset(1).FormulaR1C1 = "=sumifs(c4,c1,rc1)"
      .Replace True, "Diff", xlWhole, , False, , False, False
   End With
End Sub

 

[bassemjohn1]

How about

Sub bassemjohn()
   With Range("F1", Range("F" & Rows.Count).End(xlUp))
      .Replace "Diff", True, xlWhole, , False, , False, False
      .SpecialCells(xlConstants, xlLogical).Offset(1).FormulaR1C1 = "=sumifs(c4,c1,rc1)"
      .Replace True, "Diff", xlWhole, , False, , False, False
   End With
End Sub

where should I add it ? by the end ?

 

[Fluff]

Just run that on it's own & it will put the formula onto the active sheet.

 

[bassemjohn1]

that what appears when i run that macro.

 

[Fluff]

In that case you don't have any cells in col F on the active sheet with the word "Diff"
Did you have the correct sheet visible when you ran the code?