Save to other worksheet

[noelmus]

Hi,
In worksheet "Total" I have cell G24=E22+H22. Cell G24 changes its value more than once after I change E22 or H22. I need that if cell J12 in worksheet "Total" is 2, the value of G24 will be recorded in worksheet "Grand Total" in cell A2 after I save worksheet "Total".
Another need is that when Cell G24 changes and I save again, it will be recorded in worksheet "Grand Total" in cell A3. So every time I save, it records Cell G24 in the next row.


Thanks

 

[DanteAmor]

Put the following code in the Thisworkbook events

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Total").Range("J12").Value = 2 Then
        Set ht = Sheets("Grand Total")
        u = ht.Range("A" & Rows.Count).End(xlUp).Row + 1
        ht.Range("A" & u).Value = Sheets("Total").Range("G24").Value
    End If
End Sub

 

[noelmus]

Hi DanteAmor
It works perfect.
Huge thanks

 

[DanteAmor]

I'm glad to help you