Macro to save a workbook when a cell value changes!!

Hi, Gokz ,

will that value change by typing in new contnets or by using a Formula?

Code goes behind the Sheet, Right-Click Tab and View Code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C10")) Is Nothing Then
  ThisWorkbook.Save
End If
End Sub

In case of a formula you could use Calculate (but that may be trigggered on any recalculation).

Ciao,
Holger

Hi, Gokz,

depending on how the data is collected from the Net maybe you must wait for the actualisation having taken place. You didn´t mention if and how this process is started - maybe you can read in the value from the cell on opening and compare it to the actual value of the cell when the process is finished.

Right-Click on Worksheet Tab, Select Worksheet in left combobox and Calculate on the right. Event will be raised if any recalculation in the worksheet is done. If the event isn´t triggered (due to the scheduler starting Excel) and you use a macro to start the process you could apply

ActiveSheet.Range("C10").Calculate

to start the calculation at the end of the macro. This would mean that a volatile formula is part of the worksheet (like Today(), Now()).

Ciao,
Holger

Hi, Gokz,

amend the range to check if target meets the cells:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C10,E12,G14")) Is Nothing Then
  ThisWorkbook.Save
End If
End Sub

Ciao,
Holger