Excelde web browser hakkında

[BG]

merhaba arkadaşlar,

ekte gönderdiğim dosyada şöyle bir sorunum var, bir web sitesine bağlanmak için önce form butonuna , sonra web adresini yazın butonuna, sonra karşımıza gelen inputboxa girdiğimiz web sitesi isminin ardından "ok butonuna tıklayarak web sitesine bağlanabiliyorum, benzer bir örnek istede mevcut fakat oradada ok şeklindeki butona tıklayarak bu işlem yapılabiliyor,

textbox1'e metin girildikten sonra enter tuşuna basıldığında site açılabilir mi?

ilgilenen arkadaşlara teşekkür ederim.

 

[ECYavuz]

Selamlar,

Textbox'a web adresini girip enter'a bastığınızda Web sitesi yükleyecektir.

Saygılarımla...

 

[BG]

Sayın ECYavuz

ilginize teşekkür ederim, bu durumda yaptığınız düzlenme işe yarıyor, fakat userform üzerinde bulunan commandbutton1 silindiğinde işe yaramıyor, ben biraz daha uğraşıcam teşekkür ederim tekrar, iyi çalışmalar dilerim.

 

[Haluk]

Bu şekilde bir deneyin;

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    adres = TextBox1
    Sheets(1).WebBrowser1.Navigate (adres)
End If
End Sub

 

[BG]

Sayın Haluk

Hocam çok teşekkür ederim, aynen istediğim gibi oldu emeğinize sağlık, artık bana da son şeklini göndermek kaldı. dosya ektedir.

iyi çalışmalar dilerim.