Command button ile klasör açma

[evren28]

Arkadaşlar konuyu aradım ama benim istediğim şekilde bulamadım.

userform da bulunan bir commandbutton ile "D:\yedek\teklifler" klasörünü açmak istiyorum, ancak bunu yaparken excellden "dosya\aç\D:\yedek\teklifler" şeklinde değil de

bilgisayarım ( çift tık) d: (çift tık) yedek (çift tık) şeklinde yaptırmak istiyorum.

şimdiden teşekkür ederim

 

[Korhan Ayhan]

Aşağıdaki linkte benzer bir konu işlendi. İnceleyiniz.

Textboxa yazılan yola ait klasörü açmak

 

[evren28]

Korhan hocam bu konuyu incelemiştim ancak bu benim istediğim olay değil yukarıda da yazdığım gibi ben commandbutton ile excelden dosya çağırır gibi değil de bilgisayarımdan klasörü açmış gibi açmak istiyorum

 

[Korhan Ayhan]

Tam olarak ne istediğinizi anlamadım ama aşağıdaki kodu deneyiniz.

Sub Klasor_Sec()
    Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçiniz!", 0)
    If Klasor Is Nothing Then
        MsgBox "İşleme devam edebilmeniz için klasör seçmeniz gerekiyor!", vbCritical
        Exit Sub
    End If
End Sub

 

[evren28]

korhan hocam öncelikle ilginiz için çok teşekkür ederim ama ben kendimi ifade edemedim. benim istediğim daha kolay bir şey aslında mantığını anlatmaya çalışayım

bir commandbuttonum var ve bu butona tıkladığımda gidecek "D:\yedek\Teklifler" klasörünü açacak bunu istiyorum.

tekrar teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Dim Yol As String
    Yol = "D:\Yedek\Teklifler"
    
    If CreateObject("Scripting.FileSystemObject").FolderExists(Yol) = True Then
        Shell "explorer.exe" & " " & Yol, vbNormalFocus
    Else
        MsgBox "Klasör bulunamadı!", vbExclamation
    End If
End Sub

 

[evren28]

Hocam eline sağlık sağolasın

 

[commit]

Merhaba,

sayfa 1 deki Commandbutona sayfa2 de a1 hücresine git komutunu nasıl ekleyebilirim ??

Teşekkürler

 

[hımmmmmmmm]

konuyu; yeni konu olarak açmanızda fayda vardı. görülmeyebilir...

Private Sub CommandButton1_Click()
Sayfa2.Select
Sayfa2.[A1].Select
End Sub

 

[commit]

Teşekkürler.

 

[endexci]

Command buton ile program çalıştırmak

Merhabalar arkadaşlar
Userformda bulunan commandbuton ile ağdaki klasörden SAP programını (\\EMNIYETPC\Paylas\saplogon.SAP )çalıştırmam gerekiyor mümkün müdür
Konu ile ilgili yardımlarınız için şimdiden teşekkür ederim

 

[uyguralp]

Korhan Ayhan TEŞEKKÜRLER İŞE YARADI.