Sub KaydetButonu()
Dim dosyaAdi As String
Dim kayitYolu As String

' C1 hücresindeki değeri dosya adı olarak al
dosyaAdi = ThisWorkbook.Sheets(1).Range("C1").Value

' Dosyayı kaydedeceğiniz klasör yolu (örn. Masaüstü). Burayı ihtiyacınıza göre değiştirebilirsiniz.
kayitYolu = "C:\Users\KullaniciAdi\Desktop\" & dosyaAdi & ".xltm"

' Dosyayı XLTM formatında kaydet
ThisWorkbook.SaveAs Filename:=kayitYolu, FileFormat:=xlOpenXMLTemplateMacroEnabled

MsgBox "Dosya başarıyla kaydedildi!", vbInformation, "Kaydetme Başarılı"
End Sub