Xin các bác code VBA

[datbeemoo]

Mình muốn tạo đoạn code VBA là : tách sheet 2 ( date trả hàng ) thành file mới rồi lưu trong 1 đường dẫn thư mục cố định Y:\2.KH & Vat tu\KHSX\KHSX 2023\date tra hang
Tên file lưu theo định dạng: Ngày.tháng.năm_Date tra hang

 

[HUONGHCKT]

Mình muốn tạo đoạn code VBA là : tách sheet 2 ( date trả hàng ) thành file mới rồi lưu trong 1 đường dẫn thư mục cố định Y:\2.KH & Vat tu\KHSX\KHSX 2023\date tra hang
Tên file lưu theo định dạng: Ngày.tháng.năm_Date tra hang

Bạn tham khảo code này, đường dẫn (path) và tên file mới tạo của tôi có thể khác bạn.
Lưu ý : tên sheet không nên đặt bằng tên tiếng Việt có dấu.

Option Explicit

Sub addNewFile()
    Dim wb As Workbook
    Dim ws As Worksheet, Sh As Worksheet
    Dim Path As String, Ngay As String
    Dim Lr&, Rng As Range
    Set Sh = Sheets("DateTraHang")
    Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row
    Set Rng = Sh.Range("A1:K" & Lr)
    Path = Application.ActiveWorkbook.Path
    Ngay = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
  ................................
    .............................
End Sub

Xem file
P/S: Địa chỉ công ty này gần nhà tôi.
Tôi đã sửa lại bài, chủ thớt sửa lại tiêu đề đã thì mới đăng phần còn lại.
Cảm ơn mọi người đã nhắc nhở.

 

[BuiQuangThuan]

Lưu ý : tên sheet không nên đặt bằng tên tiếng Việt có dấu.

Mình đề nghị chủ thớt sửa tiêu đề sao cho đúng nội quy diễn đàn. Sau khi sửa xong. Mình sẽ đính kèm code nếu bạn còn muốn tham khảo. Cảm ơn chú @VetMini , @Hoàng Tuấn 868 đã nhắc nhở. Lần sau cháu/em sẽ lưu ý vấn đề này hơn ạ.
Nhờ chú @HUONGHCKT chỉnh giúp phần tag giúp cháu nhé

 

[HUONGHCKT]

Thêm 1 cách khác thử coi. Cùng lưu ý trên

Sub ABC()
    Dim FileName$
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    Const sPath = "D:\" ' "Y:\2.KH & Vat tu\KHSX\KHSX 2023\date tra hang\"
  .......................................
    MsgBox "Ok luu file"
End Sub

Code xịn của chuyên gia có khác.

 

[BuiQuangThuan]

Code xịn của chuyên gia có khác.

Chú lại mỉa mai cháu rồi.

 

[HUONGHCKT]

Chú lại mỉa mai cháu rồi.

Lời khen thực lòng sao lại là "mỉa mai" nhỉ? khi code của bạn vừa ngắn gọn, dẽ hiểu và không cần phải định dạng lại bảng tính so với code của tôi dài loằng ngoằng hơn nhiều, hơn thế đọc lại khó hiểu nữa chứ.- Code của tôi là thuộc dạng "tầm chương trích cú" -copy dạo trên mạng thôi, không có bài bản gì cả.
Thân ái.

 

[BuiQuangThuan]

Lời khen thực lòng sao lại là "mỉa mai" nhỉ? khi code của bạn vừa ngắn gọn, dẽ hiểu và không cần phải định dạng lại bảng tính so với code của tôi dài loằng ngoằng hơn nhiều, hơn thế đọc lại khó hiểu nữa chứ.- Code của tôi là thuộc dạng "tầm chương trích cú" -copy dạo trên mạng thôi, không có bài bản gì cả.
Thân ái.

Cảm ơn chú đã khen. Cháu không giám nhận đâu. Vẫn còn phải học hỏi các chú,các anh chị nhiều lắm.

 

[Hoàng Tuấn 868]

Cảm ơn chú đã khen. Cháu không giám nhận đâu. Vẫn còn phải học hỏi các chú,các anh chị nhiều lắm.

Khiêm tốn quá . . .

 

[HUONGHCKT]

Cảm ơn chú đã khen. Cháu không giám nhận đâu. Vẫn còn phải học hỏi các chú,các anh chị nhiều lắm.

"Học, học nữa, học mãi";"... Học ở mọi lúc, mọi nơi, ...." Tôi nhất trí với bạn ở điểm này .
Theo dõi bạn trên diễn đàn thấy bạn có những bài rất khủng mà bạn cũng hoàn thành được. Tôi có đọc đáp án mà tôi chả hiểu tý gì.
Điều muốn nói ở đây là Code của bạn cũng đã khác trước rất nhiều rồi, nó ở gần ngang tầm với các chuyên gia như anh @ HieuCD, PTM, SADQ, Anh MaiKa8008, Hay anh HoangTuan868, và một số anh chị nữa không kể hết ....
Đây không phải khen động viên mà lời nói chân thành.

 

[VetMini]

Tôi nghĩ luật "tiêu đề chung chung" nên xóa quách cho xong.
Cái luật cọp giấy này để đó chiiir gây bất công. Người bị nhắc nhở, kẻ được làm ngơ.

 

[Hoàng Tuấn 868]

Tôi nghĩ luật "tiêu đề chung chung" nên xóa quách cho xong.
Cái luật cọp giấy này để đó chiiir gây bất công. Người bị nhắc nhở, kẻ được làm ngơ.

Nếu là em thì em sẽ rút lại bài đã trót giúp khi tiêu đề vi phạm, vì như vậy là tiếp tay cho việc vi phạm. Có thể rút một nửa thôi, khi nào sửa lại tiêu đề phù hợp thì đưa nốt.

 

[VetMini]

Nếu là em thì em sẽ rút lại bài đã trót giúp khi tiêu đề vi phạm, vì như vậy là tiếp tay cho việc vi phạm. Có thể rút một nửa thôi, khi nào sửa lại tiêu đề phù hợp thì đưa nốt.

Ngày nay hầu hết luật ở đây đều là cọp giấy.
Tôi có nói nghề thống kê của tôi cao hơn nghề Excel mà người ta cứ đánh thấp khả năng thống kê của tôi.

Màu cam là bảo vệ, tiêu chí của bảo vệ là giữ cho mọi người tôn tọng luật.

Màu đỏ là quản lý, tiêu chí của quản lý là giữ cho doanh nghiệp đi đúng theo chiều hướng đặt ra của chủ doanh nghiệp. Ý của chủ doanh nghiệp này muốn phát triển theo số lượng. Áp dụng luật sẽ ảnh hưởng số lượng.

Bây giờ bạn chỉ cho tôi một màu cam còn hoạt động.

 

[datbeemoo]

sr ae, mình mới nên k đọc kỹ nội quy, giờ cho mình hỏi sửa bài viết ở chỗ nào với

 

[HUONGHCKT]

sr ae, mình mới nên k đọc kỹ nội quy, giờ cho mình hỏi sửa bài viết ở chỗ nào với

Giờ thì bạn đã đọc kỹ nội quy rồi à? vậy thì sr ae và k là gì ấy nhỉ?
Tôi khuyên bạn nên "ĐỌC THẬT KỸ NỘI QUY và LÀM THEO 1 CÁCH NGHIÊM TÚC" nếu muốn được trợ giúp, và không muốn bài này bị cho vào sọt rác.
Thân.

 

[datbeemoo]

Giờ thì bạn đã đọc kỹ nội quy rồi à? vậy thì sr ae và k là gì ấy nhỉ?
Tôi khuyên bạn nên "ĐỌC THẬT KỸ NỘI QUY và LÀM THEO 1 CÁCH NGHIÊM TÚC" nếu muốn được trợ giúp, và không muốn bài này bị cho vào sọt rác.
Thân.

Mình hỏi sửa ở đâu thì trả lời kiểu ra vẻ thế bạn. Ở đời giúp đc nhau cái gì thì giúp, người ta không biết thì ng ta sai.Còn biết rồi thì sai làm gì
Nếu chuẩn chỉnh hơn thì diễn đàn có thể cảnh báo ngay lúc tôi đăng bài thì tôi sẽ biết mà sửa luôn, còn đây tôi vẫn đăng được bình thường xong lại bảo sai tiêu đề, nội quy.

 

[befaint]

Xin mời các anh/ chị nick màu đỏ/ phụ trách chuyên môn vào đọc nhé. Cuối cùng thì cũng có nhiều hơn một mình ý kiến.

"Nếu chuẩn chỉnh hơn thì diễn đàn có thể cảnh báo ngay lúc tôi đăng bài thì tôi sẽ biết mà sửa luôn, còn đây tôi vẫn đăng được bình thường xong lại bảo sai tiêu đề, nội quy."

 

[ongke0711]

Mình hỏi sửa ở đâu thì trả lời kiểu ra vẻ thế bạn. Ở đời giúp đc nhau cái gì thì giúp, người ta không biết thì ng ta sai.Còn biết rồi thì sai làm gì
Nếu chuẩn chỉnh hơn thì diễn đàn có thể cảnh báo ngay lúc tôi đăng bài thì tôi sẽ biết mà sửa luôn, còn đây tôi vẫn đăng được bình thường xong lại bảo sai tiêu đề, nội quy.

Người ta đã nói đọc kỹ nội quy mà cái nội ở ở đây có nhiều gì cho cam (chừng 1 trang) mà bạn không chịu đọc rồi hãy post bài, chưa đọc mà post bài tiếp rồi lại phạm qui tiếp thì trách ai.

 

[SA_DQ]

/-)ã sai còn lý sự cùn;
Nói như bạn chủ bài đăng thì xã hội này nên dẹp ngành công an hết đi chắc?

 

[befaint]

Cái này là bài toán cân đối/ lựa chọn giữa mức độ kiểm duyệt và số lượng bài/ người tham gia thôi mà.

Đã chọn con đường đó (*) thì câu chuyện uýnh lộn vì bài vi phạm nội quy sẽ kéo dài muôn thuở mà thôi.

 

[VetMini]

Người ta đã nói đọc kỹ nội quy mà cái nội ở ở đây có nhiều gì cho cam (chừng 1 trang) mà bạn không chịu đọc rồi hãy post bài, chưa đọc mà post bài tiếp rồi lại phạm qui tiếp thì trách ai.

Đâu có trách ai, ở bài #15 người ta dạy đời mờ.