Çok Acil : klasör oluşturma iptal edince hata veriyor.

[SAGULNET]

Kullanıcı bu makroyu çalıştırdığında dosyanın nereye kaydedileceği kullanıcıya soruluyor ve B1 hücresine bu dosya kaydediliyor. Buradaki sorun kullanıcı iptal ettiğinde makro hata veriyor ?
nasıl çözebilirim ? yada farklı makro varmı



Dim Klasor As Object
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Dosyanın Nereye Kaydedileceğini Seçin!", 1)
Range("B1") = Klasor.Self.Path

 

[zafer]

Merhaba

Kodların başına

On error resume next yazınız


veya hata anında mesaj verip çıkması için aşağıdaki kodları kullanınız.

Sub kls()
Dim Klasor As Object
On Error GoTo 10
Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Dosyanın Nereye Kaydedileceğini Seçin!", 1)
Range("B1") = Klasor.Self.Path
Exit sub
10:
MsgBox ("İptal ettiniz")
End Sub

arama motoruna On error yazıp aratınız detaylı başka bilgilere ulaşabilirsiniz.