Kết quả tìm kiếm cho từ khóa: tách sheet theo điều kiện

Chào các anh chị và các bạn, lâu quá không có lên diễn đàn, nay rảnh rỗi có dịp quay lại nên xin đóng góp một chút, một bộ công cụ Addin do mình tổng hợp, có code mình viết, có code của người khác (sorry do hầu hết các code nếu của người khác mình đều sửa lại nên không để nguồn). Hi vọng có thể...

Dạ là công thức tham chiếu trong Sheet 2 ạ. Dạ cảm ơn góp ý từ Anh ạ. Nhu cầu em cần là file khi được tách ra theo từng phòng ban thì vẫn sẽ có Sheet 2 vì Sheet 2 đang có công thức tham chiếu từ Sheet 1. Nhưng nếu chỉ là tìm từng phòng ban để filter rồi tách ra file riêng thì file đó đang thiếu...

Sao bạn thay vị viết là "A/C giúp.." mà viết là "Anh, chị giúp" nó vừa tôn trọng và cầu thị hơn không? Theo tôi bạn nên làm theo hướng này: 1/ Dùng vòng lặp duyệt từng Ô của cột B hoặc D (nếu đưa vào mảng thì là cột 2 hoặc 4 - với mảng Arr=Range("A9:D và dòng cuối) Nếu len(Arr(i,4) <=10 thì...

Khi tách dữ liệu ra thành cách sheet Thì điều kiện là mà cột GT ấy chỉ có là BDO, DNO, HCM và lấy luôn các Location ấy làm tên sheet- và tên sheet chỉ là duy nhất, như vậy các sheet cũ sẽ bị xóa đi thay vào đó là các sheet mới tạo. Nếu giữ lại các sheet có sẵn trong workbook thì khi được dữ...

Thêm sub tạo danh sách Option Explicit Sub XYZ() Dim arr(), resDT$(), res(), wb As Workbook, sh As Worksheet, dic As Object Dim sRow&, sCol&, j&, i&, r&, k&, ik&, DT$, fDay&, eDay&, tDay Set sh = ThisWorkbook.Worksheets("Tach KH") Set dic = CreateObject("Scripting.Dictionary") On...

Không cần sheet trung gian. Kiểm tra lại Option Explicit Sub XYZ() Dim arr(), resDT$(), res(), wb As Workbook, sh As Worksheet, dic As Object Dim sRow&, i&, k&, ik&, DT$, fDay&, eDay&, tDay Set sh = ThisWorkbook.Worksheets("Tach KH") Set dic = CreateObject("Scripting.Dictionary") On...

Mình đang có code lấy hết dữ liệu từ file dulieu.xlsx chép qua file Trich DuLieu TheoNgay bằng cách vào Sheet Tach KH, bấm nút VIP. Hiện do cơ chế thay đổi, mình muốn thêm điều kiện để chỉ chép dữ liệu ở file dulieu.xlsx theo Ngày mong muốn (định dạng 15/01/2023 18:27:29, cột AO, đang tô màu...

Mô tả này khác với ý định bán đầu. Duyệt qua sheet. Lấy tên sheet làm điều kiện lọc. Rồi copy qua. Còn không thì dùng mảng

Em cảm ơn Anh, Anh rất tinh ý, code của Anh @Hoàng Tuấn 868 và Bạn @BuiQuangThuan em thấy đã chạy đúng theo nhu cầu của em. Nếu Anh giúp em code có điều kiện tháng nữa thì tốt cho em quá.

Bạn thử test lại: Sheet Dulieu2: Thay 1 vài dòng từ tháng 11 sang tháng 12 Bên sheet báo cáo, dòng 2, thay điều kiện là 12 và 2022 Dòng 5 từ 1/12/2022 đến 31/12/2022 KQ sẽ sai. Nếu yêu cầu của bạn đã thỏa thì OK. Nhưng thành thật khuyên bạn nên dùng file này cho nhiều tháng. Bên sheet Dulieu...

Chào Anh/Chị, Em có 1 file dữ liệu gồm 1 sheet Tổng hợp , Giờ muốn tách sheet tổng hợp này thành nhiều sheet chia theo Brand ạ Em cảm ơn ạ

Nghiên cứu tách theo mảng array và dictionary nhé.Mà tách thì cần thêm 1 sheets mẫu chỉ điền dữ,liệu không cần format lại.

Thanks bạn rất nhiều, nhưng sau 1 tuần vật vã với cái file này thì mình xin bó tay :(. Vẫn phải học hỏi... gần như lại từ đầu ạ. Code trên chạy ổn trong file với ít biến, nhiều hơn nữa máy mình đơ luôn, với lại khai báo thêm biến rất nhiều. Code của anh mình ưng ý nhất nhưng khi áp dụng vào...

Em chào anh, em đã thử, nhưng cột ngày tháng bị nhảy sai một vài chỗ, em đã bôi vàng và đính kèm file bên dưới ạ. Mong anh giải đáp 1665114415 Dạ vâng, em cảm ơn ạ. Để em áp dụng thử ạ

Nếu như file của bạn chỉ có 2 điều kiện là: 1-Nếu cột F:"LỆ PHÍ...." có 1 dấu phảy thì cột F và G tách làm 2, các cột còn lại chỉ có 2 giá trị 2-Nếu cột F có 2 dấu phẩy thì cột F+G tách làm 3 giá trị, cột H+I tách làm 2 giá trị, giá trị đầu tiên se áp dụng cho 2 dòng đầu, giá trị thứ 2 áp dụng...

Thử code. Sub abc() Dim i As Long, lr As Long, sh As Worksheet, arr, kq, sogio As Double, b As Long, a As Long Application.ScreenUpdating = False Application.DisplayAlerts = False b = 300 For Each sh In ThisWorkbook.Worksheets If sh.Name <> "tong" Then...

Xin chào Anh/Chị Nhờ anh/chị code dùm để tách dữ liệu qua các sheet theo điều kiện tổng giờ nhỏ hơn (gần nhất) 300 giờ theo mô tả phía dưới. Xin chân thành cảm ơn anh/chị!

Đổi tên sheet thành sheet goc và sheet tach rồi chạy code Sub abc() Dim i As Long, lr As Long, kq, arr, a As Long, b As Long, c As Long, k As Integer, j As Integer With Sheets("sheet goc") lr = .Range("A" & Rows.Count).End(xlUp).Row arr = .Range("A2:Q" & lr).Value ReDim...

Mọi người giải giúp em đoạn code: Nếu là TRUE thì tách Open Quantity nhỏ hơn hoặc bằng Check và số lượng Open Quantity được tách ra từng dòng bằng với Open Quantity ban đầu. Ví dụ: Open Quantity = 161 > Check = 90 --> Kết quả ra TRUE Tách thành 2 dòng lần lượt: Open Quantity = 90 -->FAlSE Open...

Mọi người giải giúp em đoạn code: Nếu là TRUE thì tách Open Quantity nhỏ hơn hoặc bằng Check và số lượng Open Quantity được tách ra từng dòng bằng với Open Quantity ban đầu. Ví dụ: Open Quantity = 161 > Check = 90 --> Kết quả ra TRUE...