My process is to multiply the given points in B8, D8, F8, H8, J8, L8, and N8 to A3, B3, C3, D3, E3, F3, G3 respectively. this procedure is to be processed in C8, E8, G8, I8, K8, M8, and O8. after multiplying, the process should perform =sum(C8,E8,G8,I8,K8,M8,O8) to P8. I have this code which is according to recorded macro.

Sub compute()
'
' compute Macro
'

'
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-2]"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-3]"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-4]"
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-5]"
    Range("K8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-6]"
    Range("M8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-7]"
    Range("O8").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*R[-5]C[-8]"
    Range("P8").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM(RC[-1],RC[-3],RC[-5],RC[-7],RC[-9],RC[-11],RC[-13],)"
    Range("Q8").Select
    ActiveWindow.SmallScroll ToRight:=4
End Sub

how can I repeat the said procedures above to the next row by just clicking a button containing the code of recorded macro?

Edited 4 Years Ago by pyTony: fencing ~~~ vb code tags added

If you have a cell selected in the row you want copied, then you can use the code below to insert the copied rows to the next row.

Sub Button2_Click()

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 16)).Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
Application.CutCopyMode = 0


End Sub

'Here is you original code cleaned up a bit.

Sub compute()

    Range("C8") = "=RC[-1]*R[-5]C[-2]"
    Range("E8") = "=RC[-1]*R[-5]C[-3]"
    Range("G8") = "=RC[-1]*R[-5]C[-4]"
    Range("I8") = "=RC[-1]*R[-5]C[-5]"
    Range("K8") = "=RC[-1]*R[-5]C[-6]"
    Range("M8") = "=RC[-1]*R[-5]C[-7]"
    Range("O8") = "=RC[-1]*R[-5]C[-8]"
    Range("P8") = "=SUM(RC[-1],RC[-3],RC[-5],RC[-7],RC[-9],RC[-11],RC[-13],)"

End Sub

SPAM DELETED

Edited 4 Years Ago by happygeek: spam deleted

This article has been dead for over six months. Start a new discussion instead.