klasör yolu adresini hücreye yazdırma

[EKREM1661]

Değerli Arkadaşlar..!

Private Sub CommandButton1_Click()
Dim Klasor As Object
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör Seçimi..!", 1)
Set Klasor = Nothing
End Sub


Yukarıda butona atanmış olan (Klasöre Gözat) iletisinden, takip edilen klasör yolu ile, klasör seçimi yapıldığında ve Tamam dendiğinde, adres yolunu B4 bücresine yazdırsın ve sonuna "&PANEL!D36&".jpg" ibaresini eklesin..

Neticede; örnek olarak, şu şekli almalı..

="C:\Documents and Settings\Ekrem Baltacıoğlu\ Belgelerim\Yeni Klasör\"&PANEL!D36&".jpg" gibi..

Yardımcı olacak arkadaşlara minnetle..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    Dim Klasor As Object

    Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör Seçimi..!", 1)
    [COLOR=red]Range("B4") = Klasor.Self.Path & "\" & [PANEL!D36] & ".jpg"[/COLOR]
    Set Klasor = Nothing
End Sub

 

[EKREM1661]

Korhan bey.. hata (ru time error 13) verdi, nedenini anlayamadım..

 

[Mehmet Şahin]

Merhaba,
aşağıdaki gibi denermisiniz, kolay gelsin.

Sheet1.Range("B4") = Klasor.Self.Path & "\" & "PANEL!D36" & ".jpg"

 

[EKREM1661]

Sayın dantex bu defada 424 hatası verdi.. Bunu da ilave edilen;
(& "\" & "PANEL!D36" & ".jpg") bu ibarede yapıyor.

 

[Mehmet Şahin]

Siz butonu çalıştırdığınızda dialog penceresi açılıp, klasör seçebiliyormusunuz?
Çünkü bende sorunsuz çalışıyor.

 

[EKREM1661]

klasörü seçtikten sonra hata veriyor, yukarıda bahsettiğim ibareyi kaldırınca çalışıyor. Fakat sizde hata vermediğine göre bende bir sorun var olduğu anlaşılıyor.. O zaman iyice tetkik edeyim..

 

[EKREM1661]

Sayın dantex Verdiğiniz kodun başındaki (Sayfa1.) ibaresini kaldırınca çalıştı.. Hayret...
Herneyse oldu ya.. Herşey için teşekkürler, sizi de yormuş olduk, Sağlık ve başarılar diliyorum..
(Size de, Korhan Bey'e de)