Quick Question Re Macro

[Jay3]

Hi All,

I have the following macro which saves my spreadsheet each time a user click on a cell in column A where there is no data;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Columns("A")) Is Nothing Then
    If IsEmpty(Target) Then
      ThisWorkbook.Save
    End If
  End If
End Sub

I need to tweak the code so that the workbook is again saved after the user has entered data in col A and then navigated away.

Any suggestions?

Thanks,
Jay3

 

[VoG]

Hi. Try adding this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ThisWorkbook.Save
End Sub

 

[Jay3]

Hi,

Just tried it and the following error message was displayed?


Ambigious name detected - Worksheet change

Any ideas?

Thanks,
John

 

[VoG]

Please post the code for your other Worksheet_Change procedure.

 

[Jay3]

Here you go.

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Columns("H")) Is Nothing Then
    If Target.Value = "YES" Then
      Call Mail_Small_Text_Outlook(Target.Row)
        Call Create_Reminder(Target.Row)
        ThisWorkbook.Save
    End If
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Columns("A")) Is Nothing Then
    If IsEmpty(Target) Then
      ThisWorkbook.Save
    End If
  End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ThisWorkbook.Save
End Sub

Thanks
Jay3

 

[VoG]

Try this

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then ThisWorkbook.Save
  
  If Not Intersect(Target, Columns("H")) Is Nothing Then
    If Target.Value = "YES" Then
      Call Mail_Small_Text_Outlook(Target.Row)
        Call Create_Reminder(Target.Row)
        ThisWorkbook.Save
    End If
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Columns("A")) Is Nothing Then
    If IsEmpty(Target) Then
      ThisWorkbook.Save
    End If
  End If
End Sub

 

[Jay3]

Thanks....that works )