DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub FarklıKaydet()
Dim Dosya As String
Dosya = "D:\" & "cilt.xls"
If Not Dir(Dosya) = "" Then
If MsgBox("Bu konumda '" & Dosya & "' dosya zaten var. Değiştirmek ister misiniz?", vbInformation + vbYesNoCancel) = vbYes Then
Application.DisplayAlerts = False
Else
Exit Sub
End If
End If
ActiveWorkbook.SaveAs Filename:=Dosya
Application.DisplayAlerts = True
End Sub