sendkeys sorunu

[Kusta]

Üstadlar aşağıdaki formülde klavyeden Alt+sol tuşuna bastırmak istiyorum fakat olmuyor. nedeni ne olabilir.
Girdiğim web sayfasını bi önceki sayfaya geri almak istiyorum.



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 "%{left}"
IE.Visible = True
While IE.Busy
DoEvents
Wend

End If
Next
IE.Quit
End Sub

 

[Kusta]

konu günceldir. yardımcı olabilecek kimse yokmu.

 

[Korhan Ayhan]

Bu şekilde bir deneyiniz.

Belki bekleme eklemek işe yarayabilir.

DoEvents
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "%{Left}", True

 

[Kusta]

Formül garip bir şekilde Caps Lock ve Num Lock tuşlarını açıp kapatıyor. Nedeni nedir acaba?

 

[Korhan Ayhan]

Peki işe yaradı mı?

 

[Kusta]

Peki işe yaradı mı?

Malesef yaramadı Korhan bey. Başka bir öneriniz varmı.
ilginiz için teşekkür ederim bu arada.

 

[Korhan Ayhan]

Biraz araştırdım. GoBack komutu kullanılabiliyormuş.

Aşağıdaki kodu VBA tarafında adım adım çalıştırıp deneyiniz.

Kaynak; https://riptutorial.com/vba/example/27772/internet-explorer-object

Sub IEGetToKnow()
'    Dim IE As InternetExplorer 'Reference to Microsoft Internet Controls
'    Set IE = New InternetExplorer
    
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True 'Sets or gets a value that indicates whether the object is visible or hidden.
        
        'Navigation
        .Navigate2 "http://www.example.com" 'Navigates the browser to a location that might not be expressed as a URL, such as a PIDL for an entity in the Windows Shell namespace.
        Debug.Print .Busy 'Gets a value that indicates whether the object is engaged in a navigation or downloading operation.
        Debug.Print .ReadyState 'Gets the ready state of the object.
        .Navigate2 "http://www.example.com/2"
        .GoBack 'Navigates backward one item in the history list
        .GoForward 'Navigates forward one item in the history list.
        .GoHome 'Navigates to the current home or start page.
        .Stop 'Cancels a pending navigation or download, and stops dynamic page elements, such as background sounds and animations.
        .Refresh 'Reloads the file that is currently displayed in the object.
        
        Debug.Print .Silent 'Sets or gets a value that indicates whether the object can display dialog boxes.
        Debug.Print .Type 'Gets the user type name of the contained document object.
        
        Debug.Print .Top 'Sets or gets the coordinate of the top edge of the object.
        Debug.Print .Left 'Sets or gets the coordinate of the left edge of the object.
        Debug.Print .Height 'Sets or gets the height of the object.
        Debug.Print .Width 'Sets or gets the width of the object.
    End With
    
    IE.Quit 'close the application window
End Sub

 

[Kusta]

Biraz araştırdım. GoBack komutu kullanılabiliyormuş.

Aşağıdaki kodu VBA tarafında adım adım çalıştırıp deneyiniz.

Kaynak; https://riptutorial.com/vba/example/27772/internet-explorer-object

Sub IEGetToKnow()
'    Dim IE As InternetExplorer 'Reference to Microsoft Internet Controls
'    Set IE = New InternetExplorer
   
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
   
    With IE
        .Visible = True 'Sets or gets a value that indicates whether the object is visible or hidden.
       
        'Navigation
        .Navigate2 "http://www.example.com" 'Navigates the browser to a location that might not be expressed as a URL, such as a PIDL for an entity in the Windows Shell namespace.
        Debug.Print .Busy 'Gets a value that indicates whether the object is engaged in a navigation or downloading operation.
        Debug.Print .ReadyState 'Gets the ready state of the object.
        .Navigate2 "http://www.example.com/2"
        .GoBack 'Navigates backward one item in the history list
        .GoForward 'Navigates forward one item in the history list.
        .GoHome 'Navigates to the current home or start page.
        .Stop 'Cancels a pending navigation or download, and stops dynamic page elements, such as background sounds and animations.
        .Refresh 'Reloads the file that is currently displayed in the object.
       
        Debug.Print .Silent 'Sets or gets a value that indicates whether the object can display dialog boxes.
        Debug.Print .Type 'Gets the user type name of the contained document object.
       
        Debug.Print .Top 'Sets or gets the coordinate of the top edge of the object.
        Debug.Print .Left 'Sets or gets the coordinate of the left edge of the object.
        Debug.Print .Height 'Sets or gets the height of the object.
        Debug.Print .Width 'Sets or gets the width of the object.
    End With
   
    IE.Quit 'close the application window
End Sub

Çok teşekkür ederim. Bu işe yaradı elinize emeğinize sağlık.