DJFANDANGO
Board Regular
- Joined
- Mar 31, 2016
- Messages
- 122
- Office Version
- 365
- Platform
- Windows
Hi,
Hopefully this explanation is easier to understand of what I'm after...
I have created a worksheet, I need to carry data over from the last sheet to the 'active sheet' (this will always be the same cell on the worksheet) so that once I add values into the relevant cells it 'autosums', then when I click the macro to make a new sheet for the next day, the TOTAL number is carried over and ready to be added to with the autosum feature...?
example:
- On Monday 'Sheet1' G7 has a value of 100 and G8 is 0 (because I need to add data into G8 on a daily basis)
- On Tuesday 'Sheet2' I create a new day worksheet on the same workbook and 100 is there in G7, I now add the 'daily figure' of (6) to G8 and I want that to add to G7 on the new sheet
- On Wednesday when I create 'Sheet3' G7 should now be populated with 106 (and the process will repeat daily)
this is the macro I have so far... (it works for copying over all the info i need, I just cant get the 'autosum' to work on a new sheet to then carry over to teh 'next sheet'
Sub CopyActiveSheetToLast()
ActiveSheet.Copy Before:=Worksheets(1)
Range("$A$13:$N$73").ClearContents
Range("$A$13:$N$73").Interior.Color = xlNone
Range("G8:G11").ClearContents
Range("N4:N5").ClearContents
Range("$A$13") = "Commendations - "
Range("N11") = "0"
Range("N4:N5") = "0"
Range("G8:G12") = "0"
End Sub
Any ideas? PLEASE HELP!
Hopefully this explanation is easier to understand of what I'm after...
I have created a worksheet, I need to carry data over from the last sheet to the 'active sheet' (this will always be the same cell on the worksheet) so that once I add values into the relevant cells it 'autosums', then when I click the macro to make a new sheet for the next day, the TOTAL number is carried over and ready to be added to with the autosum feature...?
example:
- On Monday 'Sheet1' G7 has a value of 100 and G8 is 0 (because I need to add data into G8 on a daily basis)
- On Tuesday 'Sheet2' I create a new day worksheet on the same workbook and 100 is there in G7, I now add the 'daily figure' of (6) to G8 and I want that to add to G7 on the new sheet
- On Wednesday when I create 'Sheet3' G7 should now be populated with 106 (and the process will repeat daily)
this is the macro I have so far... (it works for copying over all the info i need, I just cant get the 'autosum' to work on a new sheet to then carry over to teh 'next sheet'
Sub CopyActiveSheetToLast()
ActiveSheet.Copy Before:=Worksheets(1)
Range("$A$13:$N$73").ClearContents
Range("$A$13:$N$73").Interior.Color = xlNone
Range("G8:G11").ClearContents
Range("N4:N5").ClearContents
Range("$A$13") = "Commendations - "
Range("N11") = "0"
Range("N4:N5") = "0"
Range("G8:G12") = "0"
End Sub
Any ideas? PLEASE HELP!
.Select[/TD]
