تغییر نام بر حسب تاریخ

[ali.b]

با سلام خدمت دوستان
ی ماکرو ایجاد کردم که وقتی اونو اجرا میکنم قسمت های از صفحه اکسل رو که میخوام رو کپی و با ی اسم پیش فرض Book1 ذخیره میکنه

چکار کنم که به جای اسم پیش فرض از اسمی که در یک سلول مورد نظر هم تغییر نام بده مثلا در سلول مورد نظر من تاریخ روز هست میخوام به جایی book1 تاریخ اون روز رو بنویسه

Sub Macro1()'' Macro1 Macro'
'    Range("A2:J8").Select    Range("A3").Activate    Selection.Copy    Workbooks.Add    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False    ActiveSheet.Paste    Application.CutCopyMode = False    ChDir "C:\Users\Ali\Desktop"    ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\Book1.xlsx", _        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseEnd Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[امين اسماعيلي]

Sub Macro1()

End Sub
'' Macro1 Macro'
'
Range("A2:J8").Select
Range("A3").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Ali\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\" & Range("A1").Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

ببین مشکلت حل میشه اینجوری تو A1 یه نام هر چی میخوای بزار البته اگر شیتش مهمه و ارور دارد بزار مثل

sheet1.range("A1")

[ali.b]

جواب داد ممنونم

Sub Macro1()'
' Macro1 Macro'
'
Range("A2:J8").Select
Range("A3").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\Ali\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Ali\Desktop\" & Range("A1").Value & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub