asked on
Sub redfin_test()
'Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.redfin.com"
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop
Application.Wait (Now + TimeValue("00:00:1"))
IE.Document.getElementsByClassName("search-input-box")(0).Value = "5606 Trout Creek Pass Dr,CO,80917"
Application.Wait (Now + TimeValue("00:00:4"))
IE.Document.Forms(0).Submit
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop
Application.Wait (Now + TimeValue("00:00:4"))
'IE.Quit
'Set IE = Nothing
'Application.ScreenUpdating = True
End Sub