Excel kitabındaki bir çalışma sayfasını farklı kaydetme

[saroz]

Excel kitabı içerisinde 5 adet çalışma sayfası bulunmakta. Bu sayfaları bağımsız olarak her birini ayrı ayrı boş excel kitabına farklı kaydetmek istiyorum. Bunları ayrı ayrı kadederken kitap isminin otomatik olarak farklı kaydettiğim tarih ve saatin yazılması gerekiyor. Bu konuda yardımcı olurmusunuz.

 

[Ömer]

Merhaba,

Linki inceleyiniz..

http://www.excel.web.tr/showthread.php?t=78930&highlight=kaydet

.

 

[saroz]

Hocam yeni belgeye farklı kaydederken dosya ismini ototmatik olarak farklı kaydettiğim zamanın yanı tarih ve saatinin yazılması lazım. Tam olarak nasıl bir makro olması lazım. yardımcı olursanız sevinirim.

 

[Ömer]

Bu şekilde deneyin..

Sub Kaydet()
    Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
    Application.PathSeparator & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=Ad
    ActiveWorkbook.Close
End Sub

.

 

[saroz]

Hocam son gönderdiğiniz şekilde denedim. isim olarak Ama kaydettiğim tarih saat yerine sadece "dd_mm_yyyy_hh_mm_ss" yazıyor. ir yanlışlıkmı yapıyorum acaba

 

[Ömer]

Düzenledim, tekrar deneyiniz..

 

[saroz]

Hocam çok teşekkür ederim. Zahmet oldu iyi akşamlar. Allah'a emanet ol

 

[BERAS]

Merhaba buradaki formülleri denedim ama sürekli hata aldım. Elimdeki veri 100 sayfadan fazla çalışma sayfası bulunuyor.
Bunları ayrı ayrı dosyalamak istiyorum. Bunun ile makro ihtiyacım var. yardımlarınızı rica ediyorum.

 

[halit3]

Merhaba buradaki formülleri denedim ama sürekli hata aldım. Elimdeki veri 100 sayfadan fazla çalışma sayfası bulunuyor.
Bunları ayrı ayrı dosyalamak istiyorum. Bunun ile makro ihtiyacım var. yardımlarınızı rica ediyorum.

aşağıdaki lindeki dosyay bir bakınız.

http://www.excel.web.tr/showthread.php?t=68040