Using Cell Ranges

  • Thread starter Thread starter gunny1979
  • Start date Start date
G

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
 
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" напиÑа:
 
Back
Top