SaveAS Makro

[mbasaranyt]

Sub Yeni_Kisi()
yol = ThisWorkbook.Path & "\"
Ekici = Worksheets(1).Range("A1")
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs yol & Ekici, FileFormat:=51
Application.DisplayAlerts = True
Application.Quit: ThisWorkbook.Close (True):
End Sub
Bu kodla A1 deki isme göre yeni kitap oluşturuyorum
istediğim yol = ThisWorkbook.Path & "\" burada aynı isimde kitap varsa üstüne yazmasın uyarı versin.

 

[Muzaffer Ali]

Merhaba.

Application.DisplayAlerts = False

satırı Excel uyarılarını pasif eder.
Bu satırı silerseniz uyarı verir.

 

[mbasaranyt]

Merhaba.

Application.DisplayAlerts = False

satırı Excel uyarılarını pasif eder.
Bu satırı silerseniz uyarı verir.

Muzaffer Ali Ben "Bu Kişiye Ait Kayıt var " diye msgbox mesaj versin istiyorum.

 

[Muzaffer Ali]

SaveAs satırının üstüne aşağıdaki kodları ekleyin.

    If Dir(yol & Ekici) <> "" Then
        MsgBox "Bu isimde bir dosya zaten var."
        Exit Sub
    End If

 

[mbasaranyt]

SaveAs satırının üstüne aşağıdaki kodları ekleyin.

    If Dir(yol & Ekici) <> "" Then
        MsgBox "Bu isimde bir dosya zaten var."
        Exit Sub
    End If

Maalesef olmadı yine üstüne yazıyor.uyarı vermiyor

 

[Muzaffer Ali]

    If Dir(yol & Ekici &".xlsx") <> "" Then
        MsgBox "Bu isimde bir dosya zaten var."
        Exit Sub
    End If

 

[mbasaranyt]

    If Dir(yol & Ekici &".xlsx") <> "" Then
        MsgBox "Bu isimde bir dosya zaten var."
        Exit Sub
    End If

Çok Teşekkür ederim.