soru soran msgbox'a internet sitesi ekleme

[İhsan Tank]

merhaba arakdaşlar kafama takıldı bir sorayım dedim soru soran msgbox'a internet sitesi adı yazıp tıklandığında o siteye giriş yaptırabilirmiyiz
kodu gönderiyorum

Private Sub CommandButton1_Click()
soru = MsgBox("Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
If soru = vbYes Then
End If
End Sub

örnek ekte

 

[BG]

Sayın cılgın86'lı

merhaba arakdaşlar kafama takıldı bir sorayım dedim soru soran msgbox'a internet sitesi adı yazıp tıklandığında o siteye giriş yaptırabilirmiyiz
kodu gönderiyorum

Private Sub CommandButton1_Click()
soru = MsgBox("Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
If soru = vbYes Then
End If
End Sub

örnek ekte

Bu şekilde denermisiniz.

Private Sub CommandButton1_Click()
    soru = MsgBox("Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
        If soru = vbYes Then
            x = InputBox("Site Adresini yazın")
            Shell "C:\Program Files\Internet Explorer\iexplore.exe " & x, vbMaximizedFocus
        Else
            Exit Sub
        End If
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun..

Private Sub CommandButton1_Click()
soru = MsgBox("Eminmisiniz?", vbQuestion + vbYesNo)
    If soru = vbYes Then
        Shell "explorer.exe [URL]http://www.excel.web.tr[/URL]", 1
    End If
End Sub

.

 

[İhsan Tank]

gökhan hocam teşekkür ederim yalnız benim istediğimi ömer hocam yapmış ben direk site istemiştim.
ömer hocam sizede teşekkür ederim.

 

[BG]

Sayın cılgın86'lı

hocam teşekkür ederim yalnız ben şöyle bir şey istiyorum sorudan sonra evet bastığımızda otomatik siteye giriş yapsın ben yazmıyayım yani

o halde Ömer Bey'in yanıtı işinizi görür sanırım.

 

[Seyit Tiken]

Private Sub CommandButton1_Click()
soru = MsgBox("Eminmisiniz?", Buttons:=vbQuestion + vbYesNo)
If soru = vbYes Then
ActiveWorkbook.FollowHyperlink Address:="http://www.excel.web.tr/"
End If
End Sub

 

[İhsan Tank]

ilgilenen herkese teşekkür ederim