M
Moxie
having no programming experience at all but having used Lotus 123
macro's would like to fix the following to allow inputting row values
instead of using static addresses. I made these two routines using the
recorder in Excel:
Sub addcol()
'
' addcol Macro
' Macro recorded 4/3/2006 by Moxie
'
' Keyboard Shortcut: Ctrl+x
'
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R4C5:R[9]C5)"
ActiveCell.Offset(3, -3).Range("A1").Select
End Sub
Sub addtotalinvoice()
'
' addtotalinvoice Macro
' Macro recorded 4/3/2006 by Moxie
'
' Keyboard Shortcut: Ctrl+b
'
ActiveCell.Offset(-2, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R4C6:R[6]C6)"
ActiveCell.Offset(1, -7).Range("A1").Select
End Sub
I'm not even sure I explained my question clearly enough but thanks in
advance for any assistance with this.
Moxie

macro's would like to fix the following to allow inputting row values
instead of using static addresses. I made these two routines using the
recorder in Excel:
Sub addcol()
'
' addcol Macro
' Macro recorded 4/3/2006 by Moxie
'
' Keyboard Shortcut: Ctrl+x
'
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R4C5:R[9]C5)"
ActiveCell.Offset(3, -3).Range("A1").Select
End Sub
Sub addtotalinvoice()
'
' addtotalinvoice Macro
' Macro recorded 4/3/2006 by Moxie
'
' Keyboard Shortcut: Ctrl+b
'
ActiveCell.Offset(-2, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R4C6:R[6]C6)"
ActiveCell.Offset(1, -7).Range("A1").Select
End Sub
I'm not even sure I explained my question clearly enough but thanks in
advance for any assistance with this.
Moxie