hücre ismine göre bir çalışma kitabı kaydetmek

[hikmet]

Merhaba sn.hocalarım ve arkadaşlarım;
üretim isimli bir çalışma kitabım var ve bunu her defasında kaydetmek istemiyorum şablonu bozmamak için.
bir hücreye tanımladığım isimle başka bir çalışma kitabı olarak şablonu ve verileri kaydedip üretim isimli çalışma kitabımı kaydetmeden çıkmak istiyorum bu konuda verilmiş örnekler vardı ama malesef bulamadım. lütfen bu konuda yardımcı olurmusunuz değerli fikirlerinizle.

 

[conari]

Sub farklı()
adı = Range("a1").Value
    ActiveWorkbook.SaveAs Filename:= _
        "C:\" & adı & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

a1 hücresine yazılan isim ile
C: altına kayıt edilir.
default kapatılıp yenisi açık kalıyor doğal olarak

 

[hikmet]

sn.conari;

ilginiz ve verdiğiniz bilgi için teşekkür ederim. faydalı olduğuna emin olabilirsiniz.
makroları da kaydetmeseydi sadece sayfayı kayıt etseydi çok daha güzel olurdu sanırım. sağolun varolun.

 

[conari]

Sub Farklı()
Application.ScreenUpdating = False
  Application.DisplayAlerts = False
    adı = Range("a1").Value
    Sheets("Sayfa1").Copy ' Kopyalamak istediğiniz sayfa ismi
     ActiveWorkbook.SaveAs Filename:= _
        "C:\" & adı & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
        Workbooks("örnek").Close ' Şablon belgenizin adı
    Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub