CommandButton ile varolan bir klasör nasıl açarım

[ETarkan]

Selam Aekadaslar

CommandButton ile HDD te varolan bir klasörü açmak istiyorum nasıl mümkündür : :dua:

simdiden tesekkurler

 

[Tankut SAZLI]

Butonun görev kodlarına bunu ekleyin
Workbooks.Open Filename:="C:\varsa,Dosyanızın bulunduğu klasör\dosyaismi"

 

[ETarkan]

Tankut SAZLI

tesekkur ederim ama ben tam anlatamadim yada anlamadimsaniyorum
ben varolan klasoru acmak istiyorum "C:\musteriler" gibi bu klasorun icini gormek ve burada yeni musteriler icin yeni bir folder acmak amacim

tesekkurler

 

[Tankut SAZLI]

Üzgünüm daha net bir şekilde örneklerseniz yada dosya eklerseniz daha iyi yardım edebilirim.

 

[ETarkan]

soyle soyliyeyim

normal sartlarda ben musteriler klasorunu doble click yaparak aciyorum ve onun icinde new folder deyip yeni musterim icin klasor aciyorum simdiki amacim butona bastigimda musteriler klasorum acilsin ve ben yine new folder i manuel yapayim

butona bastigimda c:\musteriler klasorum acilsin obur turlu manuel yapmak durumunda kaliyorum

tesekkurler

 

[Tankut SAZLI]

yukarıda yazdığınıza göre şu an açık bir excel dosyanız yok ve siz bir buton olsun ve ona basınca c:\müşteriler dosyası açılsın diyorsunuz.yada ben öyle anlıyorum.Eğer istediğiniz şey bu ise command butonu oluşturmak ve bunu görebilmek için her halukarda excel dosyasını açıp macroları etkinleştirmeniz gerecek.
Eğer örnek bir dosya gönderebilirseniz belkide ne demek istediğiniz daha iyi anlaşılabilir.

yada burayı inceleyin

http://www.excel.web.tr/viewtopic.php?t=19443

 

[Tarkan VURAL]

Tankut Hocam selamlar, adaşın istediği kodlar sanırım şunlar :

Sub goster()
ChDir "c:\musteriler"
Application.Dialogs(xlDialogOpen).Show
End Sub

İyi çalışmalar.

 

[Tankut SAZLI]

Tarkan selam
Soruyu tam anlamadığım için bende aklıma gelenleri göstermeye çalıştım

 

[ETarkan]

Sn Tarkan ve Tankut

Oncelikle her ikinizede tesekkurler ederim.

Tarkan Adasim saniyorum derdime care sende senin verdigin kodlari asagidaki gibi yazdim ama hata verdi bir bakarsan sevinirim hata nerde diye ben daha taze basladim bu islere

Private Sub CommandButton4_Click()
Sub goster()
ChDir "C:\Documents and Settings\TARKAN\Desktop\Tum Musteriler"
Application.Dialogs(xlDialogOpen).Show
End Sub

 

[Tankut SAZLI]

Öncelikle hata nedir?bunu bilirsek sorunu daha kolay çözebiliriz.Dosya isminizin ve yolunuzun birebir doğruluğunu kontorl edin.

 

[Haluk]

Aşağıdaki kodları yeni bir standart modul içine yerleştirin, daha sonra Test isimli prosedürü sözkonusu CommandButton nesnesine atayın ...

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
     ByVal lpFile As String, ByVal lpParameters As String, _
     ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'
Sub Test()
    ShellExecute 0, "Open", "C:\Musteriler", vbNullString, "C:\", 1
End Sub

Yani, aşağıdakini de UserForm modulüne yerleştirin;

[vb:1:0234d25f02]Private Sub CommandButton4_Click()
Call Test
End Sub
[/vb:1:0234d25f02]

 

[ETarkan]

Selam Arkadaslar

Hepinize cok tesekkur ederim sorumu size tam anlatamadigim icin sizi yordum fakat ben kaza ile ve deneme yanilma ile sorunumu cozdum asagiya cozumu atiyorum muhtemelen sizde ne sordumu anliyacaksiniz

Private Sub CommandButton4_Click()
ChDir "C:\Documents and Settings\TARKAN\Desktop\Tum Musteriler\MEKTUPLAR ve TEKLIFLER"
Application.Dialogs(xlDialogOpen).Show
End Sub

hepinize sabrinizdan dolayi tekrar tesekkur ederim adasim sanada tesekkurler
k::

 

[Tarkan VURAL]

Private Sub CommandButton4_Click()
Sub goster()

Önce bir sub açmışsınız daha sonra açılanı sonlandırmadan içine başka sub başlatmışsınız. Hatayı bu yüzden vermiş. İyi çalışmalar.