Macro save workbook

[puiuluipui]

Hi, i need a macro that will save workbook every time i select a cell in
another row.
Can this be done?
Thanks!

 

[Jacob Skaria]

From workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the
left treeview search for the workbook name and click on + to expand it.
Within that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code pane.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Static lngRow As Long
If Target.Row <> lngRow Then Me.Save
lngRow = Target.Row
End Sub

If this post helps click Yes

 

[puiuluipui]

You are the best! Thanks allot!

I have one more question....can this code be made to work every time i move
to another cell?

Thanks!

"Jacob Skaria" a scris:

 

[Gord Dibben]

Jacob's code as written requires you to select a cell in a different row
before the save takes place.

Do you want to save when you select anywhere on any worksheet?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As _
Object, ByVal Target As Range)
Me.Save
End Sub

Seems a little excessive to me.


Gord Dibben MS Excel MVP