Çözüldü Verilen uyarının iptali ya da otomatik onaylanması

[tukayf]

Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("TR").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\iambar\Desktop\denemeler\TR" & Format(Now, "dd.mm.yyyy mm.ss") & ".xlsx"
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
     ActiveWorkbook.ActiveSheet.Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
     ActiveWorkbook.ActiveSheet.Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
Application.DisplayAlerts = False
On Error Resume Next
    ActiveWindow.Close True
    Application.ScreenUpdating = True

merhabalar değerli hocalarım. Netten bulduğum kodlarla sayfayı formülsüz farklı kaydet yaptırabiliyorum ancak dosyayı kaydederken "Burada bazı veriler var. Bunları değiştirmek istiyor musunuz?" uyarısı geliyor. Bu uyarıyı englleyemedim. Çözümü var mıdır? Yanıtlar için şimdiden teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki satırı en sona alıp deneyiniz.

Application.DisplayAlerts = True

 

[tukayf]

Maalesef Korhan Bey. Bu çözmedi sorunu.
pts.xlsm - 18 KB
ekledim dosyayı çözümü var mı bi inceleyebilir misiniz. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Sub Farkli_Kaydet()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Worksheets("TR").Visible = xlSheetVisible
    Sheets("TR").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\................\Desktop\denemeler\TR" & Format(Now, "dd.mm.yyyy mm.ss") & ".xlsx"
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    ActiveWorkbook.ActiveSheet.Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
    ActiveWorkbook.ActiveSheet.Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
    On Error Resume Next
    ActiveWindow.Close True
    Worksheets("TR").Visible = xlSheetHidden
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub

 

[YUSUF44]

Gönderdiğiniz dosyada hâlâ True satırı yapıştırma öncesinde duruyor. O satırı iptal etmeniz gerekir.

 

[tukayf]

Yanıtlar için teşekkürler. Zihninize sağlık.
Epey uzak kalmışım forumdan. Konuyu çözüldü yapabilir miyiz. Ben bulamadım çözüldü yapmayı.