Tách file theo số hóa đơn

[levanphi]

Chào các anh chị,
Hiện tại công việc của em là gửi các hóa đơn đi, vì nhiều hóa đơn quá nên cứ mỗi lần lưu phải điền tên bằng số hóa đơn nên rất hay nhầm. Anh chị giúp em làm sao có thể save as nó sang 1 file mới với tên là số hóa đơn ở ô Q1 được không ạ. Nhờ các anh chị giúp em.
Em cảm ơn các anh chị rất nhiều

 

[befaint]

Đổi lại tiêu đề đi bạn.

"Tách file theo số hóa đơn".

 

[HUONGHCKT]

Chào các anh chị,
Hiện tại công việc của em là gửi các hóa đơn đi, vì nhiều hóa đơn quá nên cứ mỗi lần lưu phải điền tên bằng số hóa đơn nên rất hay nhầm. Anh chị giúp em làm sao có thể save as nó sang 1 file mới với tên là số hóa đơn ở ô Q1 được không ạ. Nhờ các anh chị giúp em.
Em cảm ơn các anh chị rất nhiều

Nếu tất cả các hóa đơn đều giống hệt nhau về thể thức và được làm trên 1 sheet, thì tôi nghĩ là dùng 1 sheet (Sh TONG HOP) để ghi lại những nôi dung của hóa đơn (Sh HOA DON) đã gủi đi như kiểu sh hóa đơn là form nhập liệu cho sheet TỔNG HỢP ấy mà. sau này nếu cần theo dõi khách hàng,... theo từng giai đoạn, tổng giá trị, ...vv...vv...đều dễ làm và nếu cần truy xuất lại nội dung hóa đơn Theo số HĐ, hoặc theo ngày thì đều được.

 

[snow25]

Chào các anh chị,
Hiện tại công việc của em là gửi các hóa đơn đi, vì nhiều hóa đơn quá nên cứ mỗi lần lưu phải điền tên bằng số hóa đơn nên rất hay nhầm. Anh chị giúp em làm sao có thể save as nó sang 1 file mới với tên là số hóa đơn ở ô Q1 được không ạ. Nhờ các anh chị giúp em.
Em cảm ơn các anh chị rất nhiều

Vba dùng ko bạn.

 

[levanphi]

Vba dùng ko bạn.

Dạ nếu được VBA thì quá tốt, nhờ bạn giúp mình với

Bài đã được tự động gộp: 11/10/21

Cảm ơn bạn đã góp ý nhưng mình phải save as ra một file khác và gửi luôn cái file đó đi bằng email nên mình mới cần làm đó bạn

Nếu tất cả các hóa đơn đều giống hệt nhau về thể thức và được làm trên 1 sheet, thì tôi nghĩ là dùng 1 sheet (Sh TONG HOP) để ghi lại những nôi dung của hóa đơn (Sh HOA DON) đã gủi đi như kiểu sh hóa đơn là form nhập liệu cho sheet TỔNG HỢP ấy mà. sau này nếu cần theo dõi khách hàng,... theo từng giai đoạn, tổng giá trị, ...vv...vv...đều dễ làm và nếu cần truy xuất lại nội dung hóa đơn Theo số HĐ, hoặc theo ngày thì đều được.

 

[VetMini]

Chỉ có copy cái tên, paste xuống save as mà cũng sợ nhầm.

 

[Maika8008]

Chào các anh chị,
Hiện tại công việc của em là gửi các hóa đơn đi, vì nhiều hóa đơn quá nên cứ mỗi lần lưu phải điền tên bằng số hóa đơn nên rất hay nhầm. Anh chị giúp em làm sao có thể save as nó sang 1 file mới với tên là số hóa đơn ở ô Q1 được không ạ. Nhờ các anh chị giúp em.
Em cảm ơn các anh chị rất nhiều

Code lưu file

Sub Save_As_Q1()
    Dim fName$, fPath$
    Dim wbD As Workbook
    
    fPath = ThisWorkbook.Path
    fName = Sheet1.Range("Q1")
    Application.ScreenUpdating = False
    Sheets("Request for Payment").Copy
    Set wbD = ActiveWorkbook
    wbD.Close True, fPath & "\" & fName & ".xlsx"
    Set wbD = Nothing
    Application.ScreenUpdating = True
End Sub

 

[levanphi]

Code lưu file

Sub Save_As_Q1()
    Dim fName$, fPath$
    Dim wbD As Workbook
   
    fPath = ThisWorkbook.Path
    fName = Sheet1.Range("Q1")
    Application.ScreenUpdating = False
    Sheets("Request for Payment").Copy
    Set wbD = ActiveWorkbook
    wbD.Close True, fPath & "\" & fName & ".xlsx"
    Set wbD = Nothing
    Application.ScreenUpdating = True
End Sub

Tại hạ xin đa tạ, đa tạ!

 

[qtm1987]

Chào các anh chị,
Hiện tại công việc của em là gửi các hóa đơn đi, vì nhiều hóa đơn quá nên cứ mỗi lần lưu phải điền tên bằng số hóa đơn nên rất hay nhầm. Anh chị giúp em làm sao có thể save as nó sang 1 file mới với tên là số hóa đơn ở ô Q1 được không ạ. Nhờ các anh chị giúp em.
Em cảm ơn các anh chị rất nhiều

bạn dùng addin SaveSheet của anh Ndu thử xem:

Code save as sheet hiện hành

Các thầy cho e hỏi về đoanj code để saveas sheet hiện hành với ah. Cụ thể e có 1 file có khoảng 10 sheet, giờ e muốn tạo 1 code saveas để khi chạy code này thì sẽ saveas file dưới dạng .xls nhưng chỉ save sheet hiện hành thui.E có viết code nhưng nó save cả file tìm mãi ma không ra.mong các thầy...

www.giaiphapexcel.com

lâu nay dùng addin này mình thấy rất ổn:

 

[levanphi]

bạn dùng addin SaveSheet của anh Ndu thử xem:

Code save as sheet hiện hành

Các thầy cho e hỏi về đoanj code để saveas sheet hiện hành với ah. Cụ thể e có 1 file có khoảng 10 sheet, giờ e muốn tạo 1 code saveas để khi chạy code này thì sẽ saveas file dưới dạng .xls nhưng chỉ save sheet hiện hành thui.E có viết code nhưng nó save cả file tìm mãi ma không ra.mong các thầy...

www.giaiphapexcel.com

lâu nay dùng addin này mình thấy rất ổn:
View attachment 267568

Mình mù tịt về khoản này nên nhờ bạn gửi lại file bạn đã chụp hình cho mình xin được không. Mình cảm ơn bạn nhiều

Bài đã được tự động gộp: 12/10/21

Tại hạ xin đa tạ, đa tạ!

Code lưu file

Sub Save_As_Q1()
    Dim fName$, fPath$
    Dim wbD As Workbook
   
    fPath = ThisWorkbook.Path
    fName = Sheet1.Range("Q1")
    Application.ScreenUpdating = False
    Sheets("Request for Payment").Copy
    Set wbD = ActiveWorkbook
    wbD.Close True, fPath & "\" & fName & ".xlsx"
    Set wbD = Nothing
    Application.ScreenUpdating = True
End Sub

Mình chạy thử nó chỉ lưu ra 1 sheet đầu tiên thôi mà mình cần lưu được cả file hoặc là 2 sheet đầu, nhờ bạn cho sửa code giúp mình với, Một lần nữa rất cảm ơn bạn

 

[qtm1987]

Mình mù tịt về khoản này nên nhờ bạn gửi lại file bạn đã chụp hình cho mình xin được không. Mình cảm ơn bạn nhiều

Bài đã được tự động gộp: 12/10/21

Mình chạy thử nó chỉ lưu ra 1 sheet đầu tiên thôi mà mình cần lưu được cả file hoặc là 2 sheet đầu, nhờ bạn cho sửa code giúp mình với, Một lần nữa rất cảm ơn bạn

Cái addin bạn tải về ở link tại bài 15 của anh Ndu đó, sau đó bạn mở excel trên máy bạn rồi vào Option > Addin > click Go > Chọn Browse là cái đường dẫn tới file *.xlam. Làm xong các bước sẽ hiện ra tab Addin như trong hình #9.
Bạn muốn lưu mấy sheet thì bấm Ctrl + click vào sheet chọn thôi là sẽ lưu ra theo số sheet bạn click chọn.

 

[Maika8008]

Mình chạy thử nó chỉ lưu ra 1 sheet đầu tiên thôi mà mình cần lưu được cả file hoặc là 2 sheet đầu, nhờ bạn cho sửa code giúp mình với, Một lần nữa rất cảm ơn bạn

Bạn đưa cái file có nhiều sheet cần lưu lên đi!

 

[levanphi]

Bạn đưa cái file có nhiều sheet cần lưu lên đi!

Giúp mình với nhé

 

[Maika8008]

Giúp mình với nhé

Lưu 2 sheet đầu:

Sub Save_As_Q1()
    Dim fName$, fPath$
    Dim wbD As Workbook
    
    fPath = ThisWorkbook.Path
    fName = Sheet1.Range("Q1")
    Application.ScreenUpdating = False
    Sheets(Array("Request for Payment", "Insert Invoice and Pre-Approval")).Copy
    Set wbD = ActiveWorkbook
    wbD.Close True, fPath & "\" & fName & ".xlsx"
    Set wbD = Nothing
    Application.ScreenUpdating = True
End Sub

 

[levanphi]

Lưu 2 sheet đầu:

Sub Save_As_Q1()
    Dim fName$, fPath$
    Dim wbD As Workbook
   
    fPath = ThisWorkbook.Path
    fName = Sheet1.Range("Q1")
    Application.ScreenUpdating = False
    Sheets(Array("Request for Payment", "Insert Invoice and Pre-Approval")).Copy
    Set wbD = ActiveWorkbook
    wbD.Close True, fPath & "\" & fName & ".xlsx"
    Set wbD = Nothing
    Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nhiều nhé, bạn giỏi quá