• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çözüldü Textbox Dan IP no göndermek

  • Konbuyu başlatan Konbuyu başlatan k0081
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Haziran 2008
Mesajlar
1,874
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;

Texbox = “\\192.168.1.2” yazıp bunu , “Çalıştır” a nasıl gönderebilirim ? Command buton yardımı ile ...

Yardımcı arkadaşa şimdiden teşekkürler ????
 
textbox yanına ekleyeceğin bir buton ile aşağıdaki kodları uygulayabilirsin. örnek bir dosya ektedir.

http://s3.dosya.tc/server18/qwoz2o/ornek.rar.html

Kod:
Private Sub CommandButton1_Click()
Dim Adres
Adres = UserForm1.TextBox1.Value

If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub
 
textbox yanına ekleyeceğin bir buton ile aşağıdaki kodları uygulayabilirsin. örnek bir dosya ektedir.

http://s3.dosya.tc/server18/qwoz2o/ornek.rar.html

Kod:
Private Sub CommandButton1_Click()
Dim Adres
Adres = UserForm1.TextBox1.Value

If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub


Hocam çok teşekkür ediyorum, Tamamdır... Elinize Sağlık.
 
Geri
Üst