excelde butonla Klasör Açtırmak

[kkkmert]

Arkadaşlar excelde butonlar oluşturdum ve butonlara isimler verdim o isimleri klasör var o isme tıkladıgımda o klasörün açılmasını istiyorum onu yapacak kod söyleyebilir yada ekleyebilirmisiniz.

 

[İhsan Tank]

Arkadaşlar excelde butonlar oluşturdum ve butonlara isimler verdim o isimleri klasör var o isme tıkladıgımda o klasörün açılmasını istiyorum onu yapacak kod söyleyebilir yada ekleyebilirmisiniz.

merhaba
eki inceleyin.
eki D:\ sürücünde çıkartınız ve deneyiniz.

 

[kkkmert]

İhsan bey çalışmayı inceledim ama c: içini gösteriyor. Yani klasör içini göstermiyor. bende C > H ve D>L buna göre kodda düzeltme yaptım.

 

[halit3]

Arkadaşlar excelde butonlar oluşturdum ve butonlara isimler verdim o isimleri klasör var o isme tıkladıgımda o klasörün açılmasını istiyorum onu yapacak kod söyleyebilir yada ekleyebilirmisiniz.

alternatif olarak aşağıdaki kodları denermisiniz.

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub CommandButton1_Click()
Klasor = ThisWorkbook.Path & "\1 ELEKTRİK MOTORLARI"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor
WinExec "Explorer.exe " & Klasor, 1
End Sub
Private Sub CommandButton2_Click()
Klasor = ThisWorkbook.Path & "\2 KORUMA RÖLELERİ VE MODÜLER HÜCRELER"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor
WinExec "Explorer.exe " & Klasor, 1
End Sub
Private Sub CommandButton3_Click()
Klasor = ThisWorkbook.Path & "\3 YG TESİS BAKIM ONARIM TEKNİKLERİ"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor
WinExec "Explorer.exe " & Klasor, 1
End Sub
Private Sub CommandButton4_Click()
Klasor = ThisWorkbook.Path & "\4 DAĞITIM PANO SİSTEMLERİ"
On Error Resume Next
If Dir(Klasor) = "" Then MkDir Klasor
WinExec "Explorer.exe " & Klasor, 1
End Sub

 

[kkkmert]

teşekürler bu kod oldu sağolun sayenizde kendimi geliştiriyor birşeyler ögreniyoruz gece gece bizlerede yardımcı oldugnuz için teşekürler Allah razı olsun hepinizden.

 

[halit3]

teşekürler bu kod oldu sağolun sayenizde kendimi geliştiriyor birşeyler ögreniyoruz gece gece bizlerede yardımcı oldugnuz için teşekürler Allah razı olsun hepinizden.

iyi çalışmalar

 

[İhsan Tank]

İhsan bey çalışmayı inceledim ama c: içini gösteriyor. Yani klasör içini göstermiyor. bende C > H ve D>L buna göre kodda düzeltme yaptım.

kusura bakmayın bir yanlış olmuş
eki şimdi inceler misin
yine D:\ sürücünde dosyayı çıkarınız