Loop and formulas

[Jeeremy7]

Hello Everyone ,

For the explanation I inserted a picture I'll be referring to so it'll be easier

What I would like to do is for code 010102 (A2) to take the total of all the amounts in column G and to put it on the same row as 010102
Then do the same thing for all the other codes

The problem is that I don't know how to do a LOOP macro and it's not a fixed amount of line for every code..

I will later on change the 010102 with the text to a cell with only 01-0102 but I could probably figure that out

The biggest issue is to find to SUM formula to work and to loop ....

A big thanks in advance for whoever will take the time to help me

 

[Fluff]

Is it ok to put the sum on the same row as the "Total Itemxxx"?

 

[Jeeremy7]

You mean that The total for 010102 would be on G9 ?

If so, that would be ok as long as I have the code on the same row
In this case the code would be on cell E9 "Total Item 010102", I would just create a formula after to convert it on 01-0102

I hope I answered your question !

 

[Fluff]

OK, how about

Sub jeeremy()
   Dim Rng As Range
   
   For Each Rng In Range("G:G").SpecialCells(xlConstants, xlNumbers).Areas
      Rng.Offset(Rng.Count).Resize(1).Formula = "=sum(" & Rng.Address & ")"
   Next Rng
End Sub

 

[Jeeremy7]

Wow thanks !
So are the loop formula not a necessity ? Because your technique is a lot faster it seems

I will try the rest on my own see if I improved I may post an other thread soon haha

 

[Fluff]

You're welcome & thanks for the feedback.