Makro İle Bir Dosyanın Üzerine Kayıt Yapılması

[baydeniro]

Merhaba arkadaşlar. Makro ile bir dosyanın başka bir dosya üzerine kayıt yapılması esnasında makro çalışmasında "Böyle bir dosya var, üstüne kayıt edeyim mi" diye soruyor. Bunu sormadan kayıt yapması mümkün mü ?

Sub Makro2()
Windows("Sayfa1").Activate
ChDir "C:\Belgelerim\Muhasebe"
ActiveWorkbook.SaveAs Filename:= _
"C:\Belgelerim\Muhasebe\Rapor.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Makro2()
Windows("Sayfa1").Activate
ChDir "C:\Documents and Settings\ARMAGAN\Belgelerim\Akbay\Muhasebe"
[COLOR=red]Application.DisplayAlerts = False[/COLOR]
ActiveWorkbook.SaveAs Filename:= _
"C:\Belgelerim\Muhasebe\Rapor.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

 

[baydeniro]

Teşekkürler

Sayın Korhan Ayhan. Süper bir çözüm. Yardımınız ve ilginiz için çok çok teşekkür ederim. Sağlıcakla kalın.