adding more equation to column of existing equations

[daveus]

I don't know how to explain this the best, but i have a column of equations that sum or average different groups of cells, so none of them are the same. Instead of having to go into each one to add "/60", i would like to know if there is a way to add that easily to many rows of equations.

So, i have rows of info and they are grouped together. a merged cell right next to it has the sum of the cells in the adjacent column. Instead of having to go down and add divide by 60 to all of them individually, i would like to add /60 to them quickly. I hope this makes sense. Any suggestions.

example: cells e7-11 have 1,2,3,4,5. cells f7-11 are merged into one cell and contain the formula =average(e7:e11). I want to quickly make the cells =average(e7:e11)/60.

thanks for any suggestions. sorry to be so wordy, but it's hard to explain.

Dave

 

[SydneyGeek]

Hi Dave,

Put this into a new module (Alt + F11, Insert > Module, Paste, Alt + Q)
To run, Alt + F8 and double-click the macro name. It will put /60 at the end of any formula in Column F.

Sub Test()
    Dim c As Range
    For Each c In Range("F:F").SpecialCells(xlCellTypeFormulas)
        c.Formula = c.Formula & "/60"
    Next c
End Sub

Denis

 

[daveus]

THANK YOU DENIS!!!

That is exactly what i was looking for but didn't know the two key row commands. Life saver! Thanks again. Learned something new today!

David

 

[SydneyGeek]

You're welcome

Denis