bir çalışma sayfasını yeni bir excel dosyası olarak kaydetme

[tkabaca]

Selam arkadaşlar;

Üzerinde çalıştığım bir çalışma kitabındaki bir çalışma sayfasını, yine bu çalışma sayfasındaki bir hücreye yazdığım ismi, dosya ismi olarak kullanan yeni bir excel çalışma kitabı olarak kaydeden bir makro yazmak mümkün mü?

Mümkünse nasıl? tabii asıl bunu merak ediyorum.

Tabii kaydedilecek konumu da (klasör&#252 belirlesek ve her seferinde bu klasöre kaydetse tam süper olacak...

İlginize şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

Yanıt

Aktif kitabın A1 hücresine yazılan isimle c sürücüsündeki test isimli klasöre işlem yapar

Sub TEST()
Dim AD As String
On Error Resume Next
Application.DisplayAlerts = False
AD = [A1]
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets("Sayfa1").Paste
ActiveWorkbook.SaveAs Filename:=("C:\test\ " & AD & "  .XLS")
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

 

[tkabaca]

Teşekkürler Ziya bey;

Gönderdiğiniz kod bu hali ile bile işimi görüyor. Ama eğer mümkün ise yeni oluşan excel dosyasındaki çalışma sayfasının isminin de üzerinde çalıştığım çalışma sayfası olmasını sağlayabilir miyiz?

İlginize çok teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim AD As String
On Error Resume Next
Application.DisplayAlerts = False
AD = [A1]
SAD = ActiveSheet.Name
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets("Sayfa1").Paste
ActiveSheet.Name = SAD
ActiveWorkbook.SaveAs Filename:=("C:\test\ " & AD & "  .XLS")
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

 

[tkabaca]

Tamamdır Ziya bey! elinize ve zihninize sağlık...

 

[ugur111]

Merhabalar ;

Öncelikle çalışma için teşekkürler . A1 hücresinde tarih bulunduğu zaman , makro tarih olarak dosya adı veremiyor,sayı formatına çeviriyor . Bunu çözebilir miyiz ?

Kolay gelsin

 

[mustafaine1]

Konuya bir tesekkurde benden gelsin..