macro to "save workbook" based on cell value

**semajjames** · 11-29-2015, 02:25 PM

I am trying to use this macro to "save workbook" only if one cell value is higher than another cell value

is this possible ?

          With Worksheets("Dashboard")
If .Range("N11").Value > .Range("N12").Value Then

Application.Workbooks("Profit Maximizer.xlsm").Save

  End If
  End With

**excel_bat** · 11-29-2015, 02:41 PM

Hi! You can add this code to the Worksheet Object to run the macro automatically when cells N11 or N12 are changed:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$N$11" Or Target.Address = "$N$12" Then
    If Range("N11").Value > Range("N12").Value Then
        ActiveWorkbook.Save
        MsgBox "The book has been saved!"
    End If
End If

End Sub

**semajjames** · 11-29-2015, 04:11 PM

Thanks but the thing is my code is not working ,,,

"N11" contains the formula =MOD(NOW(),1) and it is formatted as "ss" so it displays updated seconds
"N12" containes the value 40

my code is inside a macro that loops round continually, each loop taking aprox 3 mins but i don't want the workbook saved every 3 min's I only want the workbook to save every approximate hour, so if I make workbook save only if my second ticker N11 is above 40 then the number of saves will i hope be reduced

macro to "save workbook" based on cell value

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

macro to "save workbook" based on cell value

Re: macro to "save workbook" based on cell value

Re: macro to "save workbook" based on cell value

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Problem "save as" in a workbook with a macro

Problem running "Save macro to all workbook in folder"

Create a Command Button to "Save As" and "Close" an Excel Workbook

[SOLVED] Need a save and close macro that does not care if the "edit workbook" button has be clcked

[SOLVED] "Stuck" - Macro to Save Workbook

[SOLVED] Macro to get worksheets to save to new workbook with OPEN workbooks .PATH & " " as name.

[SOLVED] save and restore "Workbook Menu Bar" & "Cell" menus

Bookmarks

Bookmarks

Posting Permissions