Hello everyone,
Firstly I'm using Excel 2013 and Windows 8.1 and... sorry for my English.
I have workbook for me and my friends sport betting game for fun. We choose only few match from single day.
So i have query to take data from website and another sheet with taking only my match, our tips, results beetwen us, etc. I want share it like live results so I set query refreshing to 1 min. The file is in my 24/7 working computer in the OneDrive sync folder. So I can share view with my friends in near situation to "real time".
Everything working good, but problem is with autosave. I have macro for this and doesn't matter i use time refresh or sheetchange, every time its crush because alert say something like - This operation (save) will stoped query refresh. And give me choose I want save or not. I tried using application.wait after Me.save, but not working as well.
Do you have any solution or tip for this?
My VBA code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Not Application.Intersect(Target, Range("F3:F20")) Is Nothing Then
Call SaveWorkbook
End If
End Sub
Public Sub SaveWorkbook()
Application.Wait (Now + TimeValue("00:00:15"))
Me.Save
End Sub
Regards, Michael
Firstly I'm using Excel 2013 and Windows 8.1 and... sorry for my English.
I have workbook for me and my friends sport betting game for fun. We choose only few match from single day.
So i have query to take data from website and another sheet with taking only my match, our tips, results beetwen us, etc. I want share it like live results so I set query refreshing to 1 min. The file is in my 24/7 working computer in the OneDrive sync folder. So I can share view with my friends in near situation to "real time".
Everything working good, but problem is with autosave. I have macro for this and doesn't matter i use time refresh or sheetchange, every time its crush because alert say something like - This operation (save) will stoped query refresh. And give me choose I want save or not. I tried using application.wait after Me.save, but not working as well.
Do you have any solution or tip for this?
My VBA code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Not Application.Intersect(Target, Range("F3:F20")) Is Nothing Then
Call SaveWorkbook
End If
End Sub
Public Sub SaveWorkbook()
Application.Wait (Now + TimeValue("00:00:15"))
Me.Save
End Sub
Regards, Michael