Xin các bác code VBA (1 người xem)

[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ờ.

 

[datbeemoo]

Xin lỗi vì làm sai để mọi người khó chịu.Mình nhận ra lỗi sai rồi.Tuy nhiên việc mình muốn sửa sai thì vẫn chưa đc bạn nào giúp chỉ mình cách sửa bài này với.
Đôi lời nói nhiều của mình là : cảm thấy xu hướng người VN mình vẫn đang tập trung vào chỉ trích chính con người đất nước mình nhiều hơn thay ví giúp đỡ họ tốt hơn nhỉ

 

[VetMini]

...
Đôi lời nói nhiều của mình là : cảm thấy xu hướng người VN mình vẫn đang tập trung vào chỉ trích chính con người đất nước mình nhiều hơn thay ví giúp đỡ họ tốt hơn nhỉ

Là vì nói chuyện cải cách với người VN thì vẫn bị cái cớ: "tại ở VN mình nó vậy". Họ chỉ chú tâm muốn được giúp đỡ chỗ họ đòi hỏi. Chứ đâu có sẵn sàng xem lại chỗ mình có thể khiếm khuyết!

Chú ý: tôi dùng từ ngữ khách quan "có thể khiếm khuyết", không chủ quan khẳng định 100%.

 

[SA_DQ]

/(/gắn gọn là:
Riêng dân ĐNA thì luôn thấy người khác sai, mình đúng, & Đông Bác Á cũng vậy, nhưng ít hơn chun chút

 

[Tình nghĩa giang hồ]

Xin lỗi vì làm sai để mọi người khó chịu.Mình nhận ra lỗi sai rồi.Tuy nhiên việc mình muốn sửa sai thì vẫn chưa đc bạn nào giúp chỉ mình cách sửa bài này với.
Đôi lời nói nhiều của mình là : cảm thấy xu hướng người VN mình vẫn đang tập trung vào chỉ trích chính con người đất nước mình nhiều hơn thay ví giúp đỡ họ tốt hơn nhỉ

Tiêu đề bạn chỉ cần sửa lại: Hỗ trợ code VBA tách file trả hàng
Thêm một vấn đề, ở diễn đàn này anh chị hơi kiêng kỵ viết tắt, kiểu a,e (cái này trong nội quy có), bạn chịu khó đọc lại là thấy.
Những cái trên mình kể thì thường những người từ diễn đàn facebook qua, hay mắc phải.
Thêm nữa baì của bạn có một lỗi nặng, là ngôn từ.
Anh HUONGHCKT đã viết code dùm bạn, bạn lại nói anh ấy, chỉ trích này nọ.
Chưa kể tư thế của bạn là tư thế xin code, là người đi đò.
Người ta là người cho code bạn, tư thế người đưa đò.
Dù có xin được code rồi, thì cũng dùng từ ngữ sao cho lần sau người ta còn giúp.
Không lẽ qua được bên kia sông, thì có quyền nói nặng lời nhau, thì lần sau muốn qua sông gặp lại người đưa đò cũ thì qua sông kiểu gì..................
Có lẽ bạn còn trẻ chăng.

 

[HUONGHCKT]

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.

Thật tình là tôi cũng chả khó khăn gì đâu, vẫn định là nếu bạn sửa nhưng từ "sr ae và k" thì tôi cũng sẽ trả bài, bởi biết đâu đó tôi đã giúp được người đồng hương của mình (Địa chỉ công ty này gần nhà tôi). Xong khi đọc đến bài này thì thực sự là tắt ngóm ý định, bởi vì bạn không thật sự cầu thị (tôi không biết bạn bao nhiêu tuổi nhưng chắc chắn là ít hơn tôi rất rất nhiều), cách tiếp cận vấn đề này (và có thể rất nhiều vấn đề khác trong tương lai) của bạn là có vấn đề cần phải rút kinh nghiệm (như các bài #17,#18,#20 ,#24) đã nói. Tôi cũng định không nên tiếng nữa nhưng thôi thì lên tiếng 1 lần cho rõ để rồi dừng lại không lại mang tiếng là kẻ "ra có vẻ".

 

[SA_DQ]

.................
Có lẽ bạn còn trẻ chăng.

/(hông, anh chàng này chưa muốn già mà thôi
Nhưng chắc 1 điều là tu luyện cái sự 'cự cãi' trên mạng xã hội thâm niên rồi!