Tạo nút lệnh lưu sheet theo ngày hệ thống hoặc theo số thứ tự (1 người xem)

[mabuap1]

Em có 1 file excel trong file này có 3 sheet, em muốn tạo nút lệnh để khi ấn vào nút lệnh của sheet nào thì sheet đó thực hiện Save vào 1 thư mục nào đó hay do thư mục mình chỉ định trên máy tính với tên theo ngày tháng năm (VD: 06-01-2014) hoặc theo số thứ tự 1,2,3,4 hoặc theo ngày hệ thống thôi cũng đuơc, hoặc lấy giá trị 1 ô nào đó trong sheet để làm tên cũng được.
Em xin cảm ơn rất nhiều.

Mong nhận được sự giúp đỡ của các anh/chị, gần, xa đẹp trai, xinh gái. hí hí

 

[Kiều Mạnh]

nếu biết sử dụng code thì thử code sau.....Code mình ST

Sub Save_File() 
     Dim fName As String 
     fName = ThisWorkbook.Path & "\" & Format(Now(), "dd_mm_yyyy") & ".xls" 
     If Len(Dir(fName)) = 0 Then  ThisWorkbook.SaveCopyAs fName
End Sub

code nay luu nguyên File nếu lưu từng Sheet Sửa lại

 

[mabuap1]

Cảm ơn Kieu Manh đẹp trai, em sẻ thử, nếu được như ý muốn thì cám ơn anh làm sao có thể hết được. /-* /

 

[mabuap1]

Được rồi anh ơi, nhưng sẳn em hỏi anh thêm bây giờ em muốn sheet của em như trên các ô chuyển thành giá trị thực rồi mới lưu như code ở trên thì làm sao ạ? do các giá trị ở các ô trong sheet là công thức =sum (A1:A2), Cảm ơn anh lần nửa ạ

 

[Quang_Hải]

Được rồi anh ơi, nhưng sẳn em hỏi anh thêm bây giờ em muốn sheet của em như trên các ô chuyển thành giá trị thực rồi mới lưu như code ở trên thì làm sao ạ? do các giá trị ở các ô trong sheet là công thức =sum (A1:A2), Cảm ơn anh lần nửa ạ

Thử code này. Chỉ lưu 1 sheet hiện hành thành file mới. File mới sẽ được copy giá trị toàn bộ

Sub SheetCopy()
Dim path As String
path = ThisWorkbook.path & "\"
With ActiveSheet
   .Copy
   With ActiveWorkbook
      .ActiveSheet.UsedRange.Value = _
      .ActiveSheet.UsedRange.Value
      .SaveAs path & Date, 51
      .Close
   End With
End With
End Sub

 

[mabuap1]

Khi sử dụng code của anh Quang Hai thì bị lổi "400" code thực hiện copy cả sheet rồi save as thì lổi, không save as được ạ