Çalışma sayfasını yeni bir excel dosyası olarak kopyalama

[ugurex]

Merhaba,
mevcut dosyamızda "Sayfa2"yi kopyalayıp dosyanın bulunduğu dizindeki "kisiler" klasörü içine yeni bir dosya olarak oluşturacak, oluşturulan "dosya adı" ve içindeki "sayfa adını" da mevcut dosyamızın (data.xlsx) "anasayfa" A1 den alacak makro yazabilirmiyiz?

teşekkürler...

 

[GursoyC]

        Dim yol As String
        yol = ThisWorkbook.Path & Application.PathSeparator & "kisiler\"
       
        isim = Sheets("sayfa1").[a1]
       
        Sheets("Sayfa2").Copy
        ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Sheets("sayfa2").Name = isim

 

[ugurex]

        Dim yol As String
        yol = ThisWorkbook.Path & Application.PathSeparator & "kisiler\"
      
        isim = Sheets("sayfa1").[a1]
      
        Sheets("Sayfa2").Copy
        ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Sheets("sayfa2").Name = isim

Emeğinize sağlık, bir iki değişiklikte tam istediğim gibi oldu, teşekkürler..

 

[GursoyC]

Rica ederim, kolay gelsin.