KAYDEDERKEN UYARSIN

[polis-53]

Merhaba arkadaşla aşağıdaki kodla dosya kaydediyorum ayni isimde kaydedilirse uyarı vermesini istiyorum ve kaydetmesin

Sub Makro2()
DOSYA = Sheets("Sayfa1").Range("F1")

ActiveWorkbook.SaveAs Filename:="C:Users\omer.mert\Desktop\PUANTÖR\" & DOSYA & ".XLS"

End Sub

 

[Orion1]

kodlar #4 nolu mesajda yazıldı.

 

[polis-53]

merhaba evren bey vermiş olduğunuz kod aydı adlı dosyayı kaydetmiyor ama uyarıda vermiyor

 

[Orion1]

merhaba evren bey vermiş olduğunuz kod aydı adlı dosyayı kaydetmiyor ama uyarıda vermiyor

Sayfa1 de F1 hücresinde yazan değeri,
Masa üstünde PUANTÖR klasörü içine kaydediyor.

Sub Makro2()
Dim yol As String
yol = CreateObject("wscript.shell").SpecialFolders(10) & "\PUANTÖR\"
DOSYA = Sheets("Sayfa1").Range("F1").Value
If Dir(yol & DOSYA & ".xls") <> "" Then
    MsgBox DOSYA & ".XLS" & vbLf & "zaten var!" & vbLf & "İşlem iptal oldu!" & vbLf & _
        "evrengizlen@hotmail.com"
        Exit Sub
End If
ActiveWorkbook.SaveAs Filename:=yol & DOSYA & ".XLS"
MsgBox Sheets("Sayfa1").Range("F1").Value & vbLf & "kaydedildi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[polis-53]

Çok teşekkür ederim tam istediğim gibi kal sağlıcakla.

 

[Orion1]

Çok teşekkür ederim tam istediğim gibi kal sağlıcakla.

Rica ederim.
İyi çalışmalar.