Sum of cells of a row using macro

[macro_user]

hi...
i need to implement this formula in a macro for all the rows in the worksheet.
E11=INT(SUM(DJ9:ER9)/(3*20*15)*100)
this formula is to find the sum of all numbers from DJ9 to ER9 and then multiply and divide by integers...
how do i put this formula in a loop so that it finds the sum of all numbers tilll row number 50?
Appreciate ur help...

 

[SteveO59L]

Why dont you you just copy it ?

 

[macro_user]

No... i have 500 rows... so, i cant do tat... and i have few reports generated previously and i will be using this data calculated from the formula to create another report... is there some way where i can loop it?
E9=INT(SUM(DJ9:ER9)/(3*20*15)*100)
E10=INT(SUM(DJ10:ER10)/(3*20*15)*100)
and so on...
is there any way i can loop it?

 

[SteveO59L]

Just copy it through your 500 rows, it will take less time than you have spent asking your question.

 

[macro_user]

My requirement is to write a macro and i need this to happen at the click of a button... if its just for my purpose, then its not an issue... but...

 

[VoG]

It would be just as quick to fill the formula down. However

Sub test()
Range("E11:E50").Formula = "=INT(SUM(DJ9:ER9)/(3*20*15)*100)"
End Sub

 

[macro_user]

It would be just as quick to fill the formula down. However

Sub test()
Range("E11:E50").Formula = "=INT(SUM(DJ9:ER9)/(3*20*15)*100)"
End Sub

sorry for wat im asking but this would work even for rows from DJ10 to ER10, DJ11 to ER11 and all other rows...?

 

[VoG]

sorry for wat im asking but this would work even for rows from DJ10 to ER10, DJ11 to ER11 and all other rows...?

Try it

 

[macro_user]

alright Thank u

 

[Greg Truby]

My requirement is to write a macro and i need this to happen at the click of a button... if its just for my purpose, then its not an issue... but...

Just be sure to tell your instructor that if he has any questions on your code, to contact Peter, keeping in mind that Peter is in the UK, so he'd need to inquire early in the day.