dawnfoss64
New Member
- Joined
- Jan 17, 2014
- Messages
- 5
I am new to macros and am only able to create them using the recorder.
I have a macro that changes the date in column after every 12th row. So for instance, it will repeat 1/1/14 twelve times. I then need to go to the next cell to run the macro to have it repeat 1/2/14 twelve times.l (Row 13) and then run the macro again to to have it change it to the next date for 12 rows.
How can i get it to repeat 365 times? (End result will be having every day of the year repeat 12 times.
This is what i have been using (from the recorder) but this will require me to manually run the macro for every day of the year
Sub datechange()
'
' datechange Macro
' Macro recorded 2/10/2008 by Dfossum
'
' Keyboard Shortcut: Ctrl+d
'
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.copy
ActiveCell.Offset(1, 0).Range("A1:A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Thanks!
I have a macro that changes the date in column after every 12th row. So for instance, it will repeat 1/1/14 twelve times. I then need to go to the next cell to run the macro to have it repeat 1/2/14 twelve times.l (Row 13) and then run the macro again to to have it change it to the next date for 12 rows.
How can i get it to repeat 365 times? (End result will be having every day of the year repeat 12 times.
This is what i have been using (from the recorder) but this will require me to manually run the macro for every day of the year
Sub datechange()
'
' datechange Macro
' Macro recorded 2/10/2008 by Dfossum
'
' Keyboard Shortcut: Ctrl+d
'
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Selection.copy
ActiveCell.Offset(1, 0).Range("A1:A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Thanks!