KLAVYEDE TUŞ BASMA SORUNU

[Kusta]

Arkadaşla aşağıdaki formülde klavyeden Alt+sol tuşuna bastırmak istiyorum fakat olmuyor. nedeni ne olabilir.



Sub DENEME_Arama()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Application.Wait Now + TimeValue("00:00:02")
IE.Navigate "https:/deneme/Isgucu/IsverenListele.aspx"
Application.Wait Now + TimeValue("00:00:02")
IE.Width = 1500
IE.Height = 1000
IE.Visible = True
While IE.Busy
DoEvents
Wend
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
If Cells(i, "A") = "" Then
Cells(i, "C") = "Ne verdin ki ne alasın!!!"
Else
IE.document.getElementById("ctl04_ctlI").Value = Cells(i, "A")
IE.Visible = True
While IE.Busy
DoEvents
Wend
Set TrackID = IE.document.getElementById("ctl04_ctlPageCommand_CommandItem_Search")
IE.document.getElementById("ctl04_ctlPageCommand_CommandItem_Search").Click
IE.Visible = True
While IE.Busy
DoEvents
Wend
Set TrackID = IE.document.getElementById("ctl04_ctlGrid_ctl02_LinkButton1")
IE.document.getElementById("ctl04_ctlGrid_ctl02_LinkButton1").Click
IE.Visible = True
While IE.Busy
DoEvents
Wend
Set TrackID = IE.document.getElementById("ctl04_ctlPageCommand_CommandItem_SeeDetail")
IE.document.getElementById("ctl04_ctlPageCommand_CommandItem_SeeDetail").Click
IE.Visible = True
While IE.Busy
DoEvents
Wend
Application.SendKeys "alt + sol"
IE.Visible = True
While IE.Busy
DoEvents
Wend

End If
Next
IE.Quit
End Sub

 

[netzone]

 

[Kusta]

Ekli dosyayı görüntüle 225616

Bu kısımda bir sıkıntı var heralde.
Application.SendKeys "alt + sol"
IE.Visible = True
While IE.Busy
DoEvents
Wend

Burayı ben;
Application.SendKeys "%{left}"

yaptığımda da hata alıyorum. Sizce kodda mı hata.