Dosya ve PDF Kaydetme

[cevatyildiz]

Merhaba,

Dosya kaydetmek ve PDF oluşturmak için aşağıdaki iki kodum var. Eğer dosya zaten var ise ve üzerine yazmak istemiyorsam, '400' hatası vermeden çıksın istiyorum.
Ayrıca iki kodu birleştirmenizi rica edebilir miyim?

Sub SaveWithVariableFromCell()
Dim SaveName As String
SaveName = ActiveSheet.Range("AZ18").Text
Start:
ActiveWorkbook.SaveAs Filename:="O:\Technician_Reports\" & Date & "-" & SaveName & ".xlsm"
End Sub

Sub PDFyap()
s = Format(Date) & Range("AZ18").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="O:\Technician_Reports\" & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Teşekkürler, iyi calismalar

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu dener misiniz?

Sub SaveWithVariableFromCell()
    Dim SaveName As String
    Dim Dosya As String
    SaveName = ActiveSheet.Range("AZ18").Text
Start:
    Dosya = "O:\Technician_Reports\" & Date & "-" & SaveName & ".xlsm"
    If Not Dir(Dosya) = "" Then
        If MsgBox(Dosya & " bu dosya zaten var üzerine kaydetmek istiyor musunuz?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Dosya
    Application.DisplayAlerts = True

    Dim s As Variant
    s = Format(Date) & Range("AZ18").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="O:\Technician_Reports\" & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
    :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[cevatyildiz]

Cok tesekkur ederim. Harika bir cozum saglamissiniz.

 

[cevatyildiz]

Eğer T drive erişilebilir durumda değilse; her iki dosyanın da masaüstüne kaydedilmesini nasıl sağlarız?