Dosya içinden belirli Sayfayı Kaydet MAKRO çözümü

[turist]

Aşağıdaki şekilde yazılan makro kodlarında;
Sub KAYDET()
Set CWS = CreateObject("WScript.Shell")
Yol = CWS.SpecialFolders("Desktop") & "\GGY\"
ThisWorkbook.Save
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
MkDir Yol
On Error GoTo 0
FSO.CopyFile ThisWorkbook.FullName, Yol & Range("M1") & ".xls"
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Dosya ismini değil de ; Dosyadaki bir çalışma sayfasını (örnek: sayfa1) nasıl kodlayabiliriz?

Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Kendi dosyanıza uyarlayınız.

  Sheets("Sayfa2").Copy
    ActiveWorkbook.SaveAs Filename:=klasor & dosya, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    MsgBox "Dosya kaydedildi", vbOKOnly + vbInformation, "E V R E N"

 

[turist]

Kendi dosyanıza uyarlayınız.

  Sheets("Sayfa2").Copy
    ActiveWorkbook.SaveAs Filename:=klasor & dosya, FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    MsgBox "Dosya kaydedildi", vbOKOnly + vbInformation, "E V R E N"

Verdiğiniz örneği benim kodalarıma uyguladım.Hata verdi.
Mümkünse benim verdiğim kodlar üzerinde nasıl bir değişiklik olması gerektiğini belirtebilirmisiniz.
Teşekkür ederim.

 

[Orion1]

Verdiğiniz örneği benim kodalarıma uyguladım.Hata verdi.
Mümkünse benim verdiğim kodlar üzerinde nasıl bir değişiklik olması gerektiğini belirtebilirmisiniz.
Teşekkür ederim.

21nci mesajda korhan bey cevabı vermiş.Kolay gelsin.
http://www.excel.web.tr/showthread.php?goto=newpost&t=122852

 

[turist]

21nci mesajda korhan bey cevabı vermiş.Kolay gelsin.
http://www.excel.web.tr/showthread.php?goto=newpost&t=122852

Çok teşekkür ederim. Korhan Bey'in verdiği kodları denemeye çalışıyorum.
Kopyalamada bazı hatalar oluşuyor. Onu çözmeye çalışıyorum.
Hepinize teşekkürler.