6th February 2012, 03:32 PM
|
Member
|
|
Join Date: Jan 2012
Posts: 291
|
|
Shaun, I am partially lost at this point,(THE BASICS PART 3) but impressed at the speed of the imports to say the least using the XML thing.
The way I do my "refresh" is race by race on the race start time order list.
By "refresh" I mean a Loop in starting at the top using the
Do until
-----------------------
So it's ( your code )
Quote:
Sub LoadRaceField()
Application.Calculation = xlAutomatic
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Do Until _
Sheets("Sheet1").Range("J2").Value = "PAYING" Or _
Sheets("Sheet1").Range("J2").Value = "INTERIM" Or _
Sheets("Sheet1").Range("J2").Value = "CLOSED" Or _
Sheets("Sheet1").Range("J2").Value = "ABANDONED" Or _
Sheets("Sheet1").Range("J2").Value = 5
Dim xmldoc As MSXML2.DOMDocument
|
and the rest of your code at this point.
----------------
FOR TESTING,
I have used a counter method, so when it reaches "5", it simply gets the next race on the list. This will be deleted later on.
Quote:
Sheets("Sheet1").Range("J2").Value = Sheets("Sheet1").Range("J2").Value + 1
Loop
Application.Calculation = xlAutomatic
Sheets("Sheet1").Range("J2").Value = "0"
DELETE_RACE
LoadRaceField
'and so on
End Sub
|
How is the code written to get RaceDisplayStatus to appear in Sheet 1 Cell J2 please?
And the results if possible for that race.
Thanks.
Puntz
|