Makro ile kayıttan vazgeçince hata veriyor

[sakiogluo]

Merhabalar; arkadaşlar hücredeki yazan isimle kayıt yapan bir makro kullanıyorum. Makro çalışıyor ancak ikinci kez aynı isimle kayıt yap deyince "....adlı bir dosya var. Değiştirmek istermisiniz" diye pencere açılıyor "evet" dersem problem yok, üzerine kaydediyor. Ancak vazgeçersem makro hata veriyor, çözebilen olursa sevinirim.

 

[Mahmut Bayram]

Sayın sakiogluo, ben bilgisayarımda şu satırdaki ömer ismini değitirdim ve çalıştı.
[vb:1:cfc7ae1d48]ActiveWorkbook.SaveAs Filename:=adr & "\Documents and Settings\Administrator\Desktop\" & ad & " - " & ads & " - " & adw & ".xls"[/vb:1:cfc7ae1d48]
acaba hangi kullanıcyla oturum açtınız? veya öyle bir oturum var mı?

 

[sakiogluo]

Sayın Mahmut Bayram, makro zaten çalışıyor. Problem kayıttan vazgeçince oluyor

 

[Levent Menteşoğlu]

Kaydet butonuna bağlı kodun en başına "on error resume next" satırını ilave edin.

[vb:1:1edcbfa7d5]Sub kaydet()
On Error Resume Next
ad = [h3].Value
ads = [h7].Value
adw = [k7].Value
ActiveWorkbook.SaveAs Filename:=adr & "\Documents and Settings\Omer\Desktop\" & ad & " - " & ads & " - " & adw & ".xls"
End Sub[/vb:1:1edcbfa7d5]