internete nasıl bağlantı yapabilirim

[ismailuguz]

merhaba şu şekilde bir çalışma var yukarıda ki internet adreslerim bölümündeki adreslere tıkladığım zaman interneteki siteye bağlanmak istiyorum nasıl yapabilirim yardımcı olursanız sevinirim "teşekkürler"

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub internet()
ActiveWorkbook.FollowHyperlink Address:="[URL]http://www.excel.web.tr[/URL]", NewWindow:=True
End Sub

 

[ismailuguz]

teşekkürler sayın leventm bir sorum daha olacak.
ekteki dosyada banka hesaplarım altındaki banka isimlerine tıkladığım zaman yapmış olduğum formları açamıyorum bunu nasıl yapabilirim

 

[Levent Menteşoğlu]

.OnAction = "UserForm2.Show"

Yukarıdaki gibi bir yazım şekli hatalıdır. Bu kodu bir makro olarak yazmalı ve .onaction=makroadı şeklinde düzenlemelisiniz.

 

[ismailuguz]

bunun için nasıl bir makro yazabilirim bir örnek verirseniz sevinirim teşekkürler

 

[Levent Menteşoğlu]

Zaten dosyanızda örnek yapmışsınız, aynı şekilde yapacaksınız. Aşağıdaki kodu bir modüle kopyalayın.

sub ac()
userform2.show
end sub

Daha sonrada menüdeki linki koda bağlamak içinde aşağıdaki şekilde düzenleyin.

[LEFT].OnAction = ac[/LEFT]

 

[ismailuguz]

teşekkürler sayın leventm

 

[Mertkan]

excel sayfası içerisinde online haber sayfası eklemeke mümkün mü (http://sondakika.internethaber.com/gazeteoku.html)örnek sayfası nasıl internet explorer gözüküyorsa excelde öyle gözükmesi

 

[Levent Menteşoğlu]

Sayfa üzerine ekleyeceğiniz bir webbrowser nesnesi ile bunu yapabilirsiniz. Ekli dosyayı inceleyin.

 

[Mertkan]

Sayfa üzerine ekleyeceğiniz bir webbrowser nesnesi ile bunu yapabilirsiniz. Ekli dosyayı inceleyin.

Öncelikle teşekkürler
Levent Bey biraz yardımcı olursumusunuz !!!
vermiş oldugunuz kodu yazdım



hata verdi..

webbrowser kullanımı bu şekildemi



-------
Ben bu şekilde boş bir tarayıcı çıktı sizin vermiş oldugunuz örnek degil yani
Sizinki gibi internet gözükmüyor
bunu bir userforum yada başka bir şeyden mi yapıyorsunuz
bir her sayfa ya da bir kaç sayfa içinde webb. kullanabilirmisiyiz

 

[emrexcel123]

adres yazman lazım

arkadaşım dediğin gib ms web tarayıcısını çiz ve herhangi bir butona veya sayfanın kod bölümüne
sayfa1.webbrowser.navigate "http:\\www.google.com.tr" yaz bakalım ne çıkacak...

 

[Levent Menteşoğlu]

Öncelikle teşekkürler
Levent Bey biraz yardımcı olursumusunuz !!!
vermiş oldugunuz kodu yazdım

Eklediğiniz resimden anlaşıldığı kadarı ile auto_open prosedürünü iki kez yazmışsınız ikisini tek prosedür içinde toplayın.

 

[emrexcel123]

peki

peki leventm üstadım ben bir userform çizdim ve textbox oluşturdum webbrowser çizdim textbox adres kısmını oluşturuyor ben şöyle bir kod yazdım fakat sayfayı açmadı
sub webb ( )
adres = "http:\\" & "textbox1.text"
userform1.webbrowser1.navigate adres
end sub
ben neolduğunu anlayamadım bi açıklayabilir misiniz...

 

[emrexcel123]

okey

çözdüm sn leventm adminim çok güzel oldu dosya ektedir...

 

[Mertkan]

Eklediğiniz resimden anlaşıldığı kadarı ile auto_open prosedürünü iki kez yazmışsınız ikisini tek proserür içinde toplayın.

Bu söylemiş oldugunuzu nasıl yapacagım...

Ben başka bir excel sayfasında bu işlemi yaptıgım zaman güzel oluyor ama çalıştıgım exwcel çalışka kitabanda yaptıgımda sorun çıkartıyor nasıl düzeltecegim hakkında bilgi verirmisiniz ?
Bu yapacagım işlem benim için önemli diyebiliriz

Her zaman bu sorun çıkıyor acaba bir çok makro kullanıyorum bir etkisi olurmu hata her zamanki gibi bu dur

 

[ocamsul]

Arkadaşlar Bu Webrowser MultıPage üzerinde iken niye çalışmıyor olabilir? ikinci page geçilip tekrar 1. page geçildiğinde uyarı veriyor!!!

 

[ocamsul]

Arkadaşlar Bu Webrowser MultıPage üzerinde iken niye çalışmıyor olabilir? ikinci page geçilip tekrar 1. page geçildiğinde uyarı veriyor!!!

Bu sorunu nasıl çözerim dostlar 2. page e geçişten sonra 1. page geçildiğinde Webrowser ı tekrar nasıl aktif hale getirebilirim.

 

[Mertkan]

Farkındayım çok ısrar ediyoruz ama yokmu yardımcı olacak kimseler



webroswer çalışma hatası

 

[geren]

Sertkan bunu Levensm açıklamıştı aten ama bende yine açıklayayım...

Aynı prosedürden iki tane açmış olmandan kaynaklanıyor.

Private Sub Workbook_Open()

End Sub

Prosedürünü tek olarak yap. Bundan iki tane var tek birnin altında kodlarını birleştirirsen sorunun ortadan kalkar sanırm...

 

[Mertkan]

geren kardeşim ilgin için teşekkürler

Bey sayfaya webrowser kodunu sadece yazdıgım zamanda hata veriyor birleştirdigim zamanda hata veriyor neyse tekrar teşekkürler