Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Private Sub CommandButton1_Click()
Dim Adres
Adres = UserForm1.TextBox1.Value
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub
Private Sub CommandButton1_Click()
Dim Adres
Adres = UserForm1.TextBox1.Value
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.