Hi,
I have a workbook which copys data from a web data connection.
The problem I'm having is the website updates each minute, with various amount of data, until an upload is complete (this can take a while sometimes), and I don't want the macro to continue until all data is uploaded.
So I thought the 'If Not Intersect' command would do the trick. I would get the 'If Not Intersect' command to see if any data has changed in a certain range, if not then continue as this means the data connection is has finished updating, if it has changed then wait 2 minutes via the Application.Wait command, go back and try again, and do this until no data has changed and the data connection has finished updating.
Below code is what I have so far but it doesn't seem to be working, I think it might be something to do with the 'Startagain' command.
Any advise would be greatly appriciated.
I have a workbook which copys data from a web data connection.
The problem I'm having is the website updates each minute, with various amount of data, until an upload is complete (this can take a while sometimes), and I don't want the macro to continue until all data is uploaded.
So I thought the 'If Not Intersect' command would do the trick. I would get the 'If Not Intersect' command to see if any data has changed in a certain range, if not then continue as this means the data connection is has finished updating, if it has changed then wait 2 minutes via the Application.Wait command, go back and try again, and do this until no data has changed and the data connection has finished updating.
Below code is what I have so far but it doesn't seem to be working, I think it might be something to do with the 'Startagain' command.
Any advise would be greatly appriciated.
Code:
Application.Wait (Now + TimeValue("00:02:00"))
Startagain:
If Not Intersect(Target, Columns("B3:D3000")) Is Nothing Then
Application.Wait (Now + TimeValue("00:02:00"))
GoTo Startagain
Else
