Excel de klasör açma işlemi

[muhendisbey2017]

İyi günler ,

excel de istediğim bir klasörü direk köprüde olduğu gibi tıkladığım zaman nasıl açabilirim , yardımcı olabilir misiniz, örneğin bi dosyalar var köprülerle zaten excelden tıkladığımda dosyaları görebiliyorum ama hani kullanıcı direk klasöre bakmak istediğinde excel den cıkmadan nasıl klasörü açabilir ?

 

[Haluk]

Sub Test()
    Shell "explorer C:\TestFolder", vbNormalFocus
End Sub

.

 

[mydestek]

Dosyaya nasıl köprü veriyorsan, klasöre de o şekilde yol vere bilirsin.
Konuyu yanlış anlamadım umarım.

 

[muhendisbey2017]

teşekkürler arkadaşlar.

 

[izcik]

Sayıın Haluk çok teşekkürler. Yukarıda verdiğiniz kodu, makro düğmesiyle değil de F10 düğmesiyle çalıştırmak istersek bunun kodunu da yazabilirmisiniz

 

[turist]

Alternatif çözüm(Haluk Üstad, mutlaka farklı bir çözüm önerecektir)

Bir modüle aşağıdaki kodları yazın.
Dosyanızı kaydedip kapatın, tekrar açın, F10'a basarak sonucu izleyin.

Sub Auto_Open()
Application.OnKey "{F10}", "Klasor_Ac"
End Sub
Sub Klasor_Ac()
Shell "explorer C:\TestFolder", vbNormalFocus
End Sub
Sub Auto_Close()
Application.OnKey "{F10}"
End Sub

Not: Bu dosyanız açıkkken, başka Excel dosyası açtığınızda da F10 tuşu bu makroyu çalıştıracaktır.

 

[Orion1]

Alternatif çözüm(Haluk Üstad, mutlaka farklı bir çözüm önerecektir)

Bir modüle aşağıdaki kodları yazın.
Dosyanızı kaydedip kapatın, tekrar açın, F10'a basarak sonucu izleyin.

Sub Auto_Open()
Application.OnKey "{F10}", "Klasor_Ac"
End Sub
Sub Klasor_Ac()
Shell "explorer C:\TestFolder", vbNormalFocus
End Sub
Sub Auto_Close()
Application.OnKey "{F10}"
End Sub

Not: Bu dosyanız açıkkken, başka Excel dosyası açtığınızda da F10 tuşu bu makroyu çalıştıracaktır.

autoopen ve autoclose olaylarına değilde thisworkbook modülünde activate ve deactivite olaylarına yazmak daha uygun olacak kanaatindeyim.

 

[izcik]

Evet sayın turist çok güzel oldu. Teşekkür ederiz.
Evren uzmanım saygılar. Evren uzmanım farklı kodlar varsa denemek isteriz.

 

[Haluk]

Evren Bey ve sayın turist bana söyleyecek bir şey bırakmamışlar .....

.

 

[turist]

Evren Bey ve sayın turist bana söyleyecek bir şey bırakmamışlar .....

.

Üstadım, sağolun.
Elbette; her dosyanın yapısı ve işlev amacına uygun farklı çözümler olacaktır.
Verdiğimiz örnek bunlardan sadece biriydi.
Tabii ki; çalışma mantığı aynı olmakla birlikte , ThisWorkbook, Worksheet uygulamaları(Activate, change vb.), kodu bir butona atamak gibi ...
Tam da sizin deyişinizle; " Kod anlatılmaz, yazılır! "