CommandButton ile hücreye

[muratgunay48]

Arkadaşlar, sayın hocalarım, COmmandButton ile klasör seçtiriyorum

Private Sub CommandButton1_Click()
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçiniz!", 0)
    If Klasor Is Nothing Then
        MsgBox "İşleme devam etmek için klasör seçiniz!", vbCritical
        Exit Sub
    End If
End Sub

Seçilen bu klasörün yolunu Sayfa1 A2 hücresine nasıl yazdırabilirim?
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Necdet]

Merhaba,

Range("A1") = klasor.self.Path

 

[muratgunay48]

Merhaba,

Range("A1") = klasor.self.Path

Hocam cevabınız için teşekkür ederim.

Private Sub CommandButton1_Click()
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçiniz!", 0)
Sheets("Sayfa1").Range("A1") = klasor.self.Path
If Klasor Is Nothing Then
MsgBox "İşleme devam etmek için klasör seçiniz!", vbCritical
Exit Sub
End If
End Sub

Şeklinde mi olacak?

 

[Necdet]

End if ile end Sub arasında olmalı, doğal olarak.
Bildiğinizi düşünerek sadece ilgili satırı söylemiştim.

 

[muratgunay48]

End if ile end Sub arasında olmalı, doğal olarak.
Bildiğinizi düşünerek sadece ilgili satırı söylemiştim.

İlgi ve alakanıza teşekkür ederim hocam, saygılarımla.

 

[Necdet]

ilgi=alaka
ikisini aynı anda kullanmak saçma oluyor.

 

[muratgunay48]

ilgi=alaka
ikisini aynı anda kullanmak saçma oluyor.

Haklısınız hocam, aslında öyle. Ancak söylem olarak yerleşmiş ağzımıza.
Teşekkür ederim.