Makro ile aktif sayfayı farklı kaydetme

[Ergün GÖKER]

Herkese hayırlı akşamlar.
Ekte yaptığım çalışmaya benzer örnek bir çalışma ekledim.
Yapmak istediğim mevcut çalışma kitabında bir çalışma sayfasını Makro İle istediğim klasör içerisine Makrosuz formülsüz kopyalamak için bir makroya ihtiyacım var. İlgilenenlere şimdiden teşekkür eder saygılarımı sunarım.

 

[PLİNT]

Merhaba
Dosyanızı indirme imkanım yok ama;
şöyle bir kod uyarlayabilirsiniz:

 Set ktp = Workbooks.Add(1)
ThisWorkbook.Sheets(1).Cells.Copy
ktp.Sheets(1).Cells(1).PasteSpecial
Application.CutCopyMode = False
dosyam = "İSİM"
ActiveWorkbook.SaveAs "D:\" & dosyam & ".xls", FileFormat:=xlNormal
ActiveWorkbook.Close

 

[Ergün GÖKER]

PLİNT

Merhaba
Dosyanızı indirme imkanım yok ama;
şöyle bir kod uyarlayabilirsiniz:

 Set ktp = Workbooks.Add(1)
ThisWorkbook.Sheets(1).Cells.Copy
ktp.Sheets(1).Cells(1).PasteSpecial
Application.CutCopyMode = False
dosyam = "İSİM"
ActiveWorkbook.SaveAs "D:\" & dosyam & ".xls", FileFormat:=xlNormal
ActiveWorkbook.Close

Hocam saygılar
Deneyip size dönüş yapacağım. Ellerinize sağlık

 

[PLİNT]

Merhaba
Klasörü zipten çıkarıp deneyiniz.
http://s2.dosya.tc/server/l8ds1f/MIATLI_PROGRAMI.zip.html
Hangi adla kaydedilmesini istediğinizi soracak dosyanızın yanındaki "KONTROL SAYFASI"
içerisine yedekleyecektir.

 

[Ergün GÖKER]

Merhaba
Klasörü zipten çıkarıp deneyiniz.
http://s2.dosya.tc/server/l8ds1f/MIATLI_PROGRAMI.zip.html
Hangi adla kaydedilmesini istediğinizi soracak dosyanızın yanındaki "KONTROL SAYFASI"
içerisine yedekleyecektir.

Hocam çok teşekkür ederim
evet istediğim buydu.
Saygılar sunarım