Aşağıda formülü kullanıyorum ancak bu formüle makroları ve formülleri silip değerler kalacak şekilde ve formunuz kayıt edilmiştir mesajı eklemek istiyorum. Lütfen yardım eder misiniz.
Sub Farklı_Kaydet()
Application.ScreenUpdating = False
Sheets("SİPARİŞ FORMU").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx"
ActiveWindow.Close
Application.ScreenUpdating = True
Sub Farklı_Kaydet()
Application.ScreenUpdating = False
Sheets("SİPARİŞ FORMU").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx"
ActiveWindow.Close
Application.ScreenUpdating = True