I am trying to use the SendKey method from Excel on a website to start a Search. I am using the SenKey opetion because I can't find the Name of the control in the Website Source Code. When I run the macro with the SendKey {ENTER} nothing happens, below is the code:
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Sheets("Worklist").Select
ie.Visible = True
ie.Navigate "https://provider2.anthem.com/wps/myportal/ebpmybcbsco"
Do While ie.busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop
ie.document.all.Item("wps.portlets.userid").Value = USERNAME
ie.document.all.Item("Password").Value = PASSWORD
ie.document.all.Item("login").Click
Do While ie.busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop
With Sheets("Worklist")
Dim lLastRow As Long, i As Long, j As Integer, k As Integer, l As Integer
lLastRow = [a65536].End(3).Row
For i = Range("Start_Row") To lLastRow
'ie.navigate https://provider2.anthem.com/wps/myportal/ebpmybcbsco/kcxml/04_Sj9SPykssy0xPLMnMz0vM0Y_QjzKLNzGJd7FwBslB2Kah-pFYREOQRH098nNT9YOAspHmIDEjS2cP_aic1PTE5Er9YH1v_QD9gtzQiHJvR0cAPKaA4A!!/delta/base64xml/L0lJSk03dWlDU1lKSi9vQXd3QUFNWWdBQ0VJUWhDRUVJaEZLQSEvNEZHZ2RZbktKMEZSb1hmckNIZGgvN180NF8yOUNILzE5MjczOTUvc2EuRUJQLkJDQlNDTy5NZWRpY2FsTG9hZFNlYXJjaE1lbWJlckNsYWltQWN0aW9u?PC_7_44_29CH_breadCrumbIndex=1&PC_7_44_29CH_originPage=MedicalLoadSearchMemberClaimAction#7_44_29CH
'Do While ie.busy: DoEvents: Loop
'Do While ie.ReadyState <> 4: DoEvents: Loop
mbrlast = .Cells(i, "E").Value
mbrfirst = .Cells(i, "F").Value
mbrname = mbrlast & "," & mbrfirst
mbrdob = .Cells(i, "H").Value
mbrdob = Format(mbrdob, "mm/dd/yyyy")
mbrdosbegin = .Cells(i, "N").Value
mbrdosbegin = Format(mbrdosbegin, "mm/dd/yyyy")
mbrdosend = .Cells(i, "N").Value 'serviceFromDateText
mbrdosend = Format(mbrdosend, "mm/dd/yyyy")
mbrid = .Cells(i, "G").Value
npi = "1952373953"
Set frm = ie.document.forms("eligibilityForm")
ie.document.all.Item("memberId")(0).Value = mbrid
ie.document.all.Item("birthDate")(0).Value = mbrdob
SendKeys "{ENTER}"
Do While ie.busy: DoEvents: Loop
Do While ie.ReadyState <> 4: DoEvents: Loop
Sleep 5000
Stop
Bookmarks