Using Cell Ranges

[gunny1979]

Hi,

I have a macro that navigates a website and imputs the date.
I have tried to link it to the information in a cell but it does not
work can someone help please below is my code!!


Code:
--------------------
Sub HiltonBracknell()



Dim ie As Object


Set objWSS = CreateObject("WScript.Shell")
Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.navigate "https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
Do While busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With document.Forms("checkavailabilityform")
.day1.Value = Worksheets("setup").Range("C59")
.monthYear1.Value = Worksheets("setup").Range("C60")
.day2.Value = Worksheets("setup").Range("C61")
.monthyear2.Value = Worksheets("setup").Range("C62")
.submit

End With

 

[Martin Krastev]

Hi,

What I can say about your code is:

Write ".Busy" instead of "busy"
Write ".document", instead of "document"
Write the month as "200605" rather than "May 2006"

With these changes it worked for me ...

Hope this helps

"gunny1979" напиÑа: