Rewrite an old MacroPage Sub
Posted on 2014-01-19
Need help rewriting this to VBA.. it is an old MacroPg written in an old version of Excel =R=
' Want to add here, if column B of active row is not = to today exit sub
'has to be equal to todays date. Using date format: 1/19/14 7:00:38
'considered using cut instead of paste, so I do not have to define, then go back and delete.
' but because it sets a marker of where the row is.
'the cutting out can effected the rest of the formulas below it, lets keep it the same.
=SELECT("r"&E10&"c1:r"&E10&"c17") 'select C1 thru c17 to copy,
' some columns in this range are hidden
'E10 refers to the cell that the =ROW(ACTIVE.CELL()) was in above.
=ROW(ACTIVE.CELL()) 'after delete there is a new row actice.
=SELECT("r"&E19&"c2") 'E19 refers to the cell in the macropg that the row above is.
=FORMULA("=rc") 'correct the formula to point to the correct row above it.
'reformats the inserted row back at the top in row 7