Macro needs to move with date down a row each day including other cell
referances when I run the macro.
--
paintbrush
Here is day 3 macro below, or do I need to make 31
Macros?
Range("G3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*7"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-5]"
Range("K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2:E9").Select
Selection.ClearContents

'Assuming row corresponds to date:

Sub MyMacro()
Dim x As Integer

'Determine what day it is
x = Format(Date, "d")

Cells(x, "G").Formula = "=TODAY()"
Cells(x, "J").FormulaR1C1 = "=RC[-1]*7"
Cells(x, "K").FormulaR1C1 = "=R[7]C[-5]"
Cells(x, "K") = Cells(x, "K").Value
Range("E2:E9").ClearContents

End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"paintbrush" wrote:

Macro needs to move with date down a row each day including other cell
referances when I run the macro.
--
paintbrush
Here is day 3 macro below, or do I need to make 31
Macros?
Range("G3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*7"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-5]"
Range("K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2:E9").Select
Selection.ClearContents

Luke, I paintbrush is having trouble with the information you gave me. It
worked 5 times with "00" for the next to last step, last cleared well, but I
worked on the formulas for trying to get it corrected without good results.
I use copy and past to get the fromula into the macro and it appeared to work
almost. I have tried several times to recopy with good results. If there is
a way to solve my problem I will make it worth your time-somehow.
paintbrush
--
paintbrush


"Luke M" wrote:

'Assuming row corresponds to date:

Sub MyMacro()
Dim x As Integer

'Determine what day it is
x = Format(Date, "d")

Cells(x, "G").Formula = "=TODAY()"
Cells(x, "J").FormulaR1C1 = "=RC[-1]*7"
Cells(x, "K").FormulaR1C1 = "=R[7]C[-5]"
Cells(x, "K") = Cells(x, "K").Value
Range("E2:E9").ClearContents

End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"paintbrush" wrote:

Macro needs to move with date down a row each day including other cell
referances when I run the macro.
--
paintbrush
Here is day 3 macro below, or do I need to make 31
Macros?
Range("G3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*7"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-5]"
Range("K3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2:E9").Select
Selection.ClearContents