Sheet Kopyalarken hedef klasörde aynı isimli dosya varsa....

[Amaxx]

Merhaba arkadaşlar, yedek dosya oluşturmak için aşağıdaki bir kod yazmıştım. yalnız hedef klasörde aynı isimle dosya olduğunda "aynı isimle kaydetme sorusunu "hayır" yada "iptal" ile cevaplayınca hata veriyor ve kitap 1-2 vs diye dosya oluşturuyor. Eğer cevap hayır veya iptal ise sheet kopyalamayı nasıl iptal edebiliriz.

Private Sub CommandButton17_Click()
Sheets("Maliyet").Select
Sheets("Maliyet").Copy

ActiveWorkbook.SaveAs Filename:= _
"\\X2-op\Malzeme Maliyetleri\\" & Sheets("Maliyet").Range("B22") & " -Cost.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Sheets("Maliyet").Range("A131").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Maliyet").Range("A1").Select
Application.CutCopyMode = False


Sheets("Maliyet").Shapes("Button 1").Cut

ActiveWorkbook.Save
ActiveWorkbook.Close

MsgBox "Malzeme Maliyet Dökümü Oluşturulmuştur"
End Sub

 

[Amaxx]

Arkadaşlar yok mu bi bakan

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub kaydet()
     yol = "\\X2-op\Malzeme Maliyetleri\\" & Sheets("Maliyet").Range("B22") & " -Cost.xls"
      
     Set dc = CreateObject("Scripting.FileSystemObject")
     a = dc.fileExists(yol)
     If a = True Then cvp = MsgBox("Böyle bir dosya mevcut, devam edilsin mi ?", vbYesNo)
     If cvp = vbYes Then
     ActiveWorkbook.SaveAs Filename:= _
        yol _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
     End If
     
End Sub

 

[AnarkhiA]

Çok özür dileyerek araya giricem ama...Benim açtığım konuya bi bakarmısınız...Eğer bi fikriniz varsa gerçekten şuan çok acil sabahtan beri araştırıyorum kafayı yicem...

Teşekkür ederim..

Saygılar,Sevgiler,Eyvallah...