I have to do daily balancing of the general ledger reports and I have to do the same steps for 4 companies every single morning. I would love to be able to set up a macro to do this. The steps that I take every morning is:
Right click on current tab date, choose "move or copy", then rename the new tab to today's date. Then I change the run date cell so that it is today's date.
Then I go back to the tab that I copied the information from and I do a copy/paste special values to get just values and no formulas.
My current macro I have implemented does most of that stuff, except I am having trouble with the changing of the Run Date cell to today's date and also the tab sheet changes to the correct date, but I did it again to test it and it said I cannot have the same tab named twice, so this will be a problem tomorrow and onward. My current macro is as follows:
Any help is greatly appreciated. If not, I suppose I could just use my macro and just continue to just change the dates manually on the new tab and new tab's run date cell.Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
Sheets("10-06").Select
Sheets("10-06").Copy After:=Sheets(37)
Sheets("10-06 (2)").Select
Sheets("10-06 (2)").Name = "10-07"
Sheets("10-06").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("10-07").Select
Range("D10").Select
ActiveCell.FormulaR1C1 = "10/7/2011"
Range("D11").Select
End Sub
Bookmarks