hücredeki tarih ile sayfa adlandırma

[ugur111]

Merhabalar ;

Aşağıdaki kodlar ile birkaç hücreyi birleştirerek sayfa adlandırıyorum . Ancak M11 hücresinde bulunan tarihi , sayıya dönüştürüp sayfayı adlandırıyor . Bunun tarih formatında kalmasını nasıl sağlarım .

Application.DisplayAlerts = False
AD = ["ls"&(M11)&"("&(E12)&" "&(E13)&"-"&(E14)&")"]
SAD = ActiveSheet.Name
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets("Sayfa1").Paste
ActiveSheet.Name = SAD
ActiveWorkbook.SaveAs Filename:=("C:\Documents and Settings\ugur\Desktop\test\ " & AD & " .xls")
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close

Kolay gelsin

 

[Ömer]

Merhaba,

text(m1,"dd/mm/yyyy")

bu şekilde değiştirerek deneyiniz..

.

 

[ugur111]

Maalesef Ömer Bey , çalışmadı

 

[Ömer]

Haklısınız dosya isminde kullanılmıyacak işareti yazmışım,

text(m1,"dd-mm-yyyy")

bu şekilde denerseniz çalışacaktır..

.