Komut Düğmesi ile Bilgisayardaki bir klasöre köprü vermek

[emrekucur]

Arkadaşlar merhaba;
Bir arayüz çalışması yapmam gerekiyor ve elimde birçok klasör var.

Ana sheet de komut düğmesi ekliyorum, klasöre köprüyü veriyorum (ÖRN: file:///c:\CALISMALAR ) ancak tasarım modundan çıkınca düğmeler çalışmıyor, sadece tasarım modunda çalışıyor.

Özetle sorum şu,
Komut düğmesi ile heehangi bir dosya veya klsöre nasıl köprü verebilirim?

Saygılar

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdaki kod ile istediğiniz klasörü açabilirsiniz.

Option Explicit
 
Sub KLASÖR_AÇ()
    Call Shell("Explorer.exe " & "C:\CALISMALAR", vbNormalFocus)
End Sub

 

[emrekucur]

Yardımlarınız için teşekkür ederim ama yapamadım. Örnek dosya ekledim.

 

[Korhan Ayhan]

Selamlar,

Tasarım moduna geçip butonunuza çift tıklayın. Kod penceresi açılacaktır. Aşağıdaki kod bloğunu ara satıra uygulayın.

Call Shell("Explorer.exe " & "C:\CALISMALAR", vbNormalFocus)

Yani uyguladıktan sonra kodunuz aşağıdaki şekilde olmalıdır.

Option Explicit
 
Private Sub CommandButton1_Click()
    Call Shell("Explorer.exe " & "C:\", vbNormalFocus)
End Sub

 

[mca609]

ya arkadaşlar ben msprojecti combobox ile açtırmak istiyorum

If ComboBox1.Value = "Proje Planı" Then

Call Shell("winproj.exe " & Sayfa7.Range("AE1").Value & ActiveWorkbook.Path & "\VIP_500.mpp" & Sayfa7.Range("AE1").Value, vbNormalFocus)

Else: End If

bu kodu kullanıyorum excel word falan açıyor ama msproject açmıyor runtime erro 53 hatası veriyor.. çok acil yardıma ihtiyacım var