excel farklı kaydet vba

[snn38]

Sub Makro1()
ChDir "C:\Users\özyıldızlar\Desktop\MAKBUZ"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C17").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

kod bu ama aynı isimde olunca kaydetmiyor bu sorunu nasıl çözerim

 

[antonio]

Merhaba,
Kodunuzun çalışmasını test etmedim ama eğer sorun aynı dosya isminin denk gelme sorunu ise, dosya isminin devamına o anki zamanın saniye değerini ekleyebilirsiniz. Aşağıda kırmızı renkte gösterilmiştir. Umarım işinize yarar.

Sub Makro1()
ChDir "C:\Users\özyıldızlar\Desktop\MAKBUZ"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C17").Value _
[COLOR="Red"][B]& Format(Second(Now), "00")[/B][/COLOR], Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

 

[askm]

Application.DisplayAlerts=False yazarsanız da kaydeder.