Giúp em tách dữ liệu thành nhiều sheets theo điều kiện (1 người xem)

[nvtnet]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

 

[phulien1902]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

Theo yêu cầu của bạn, code cho loc dữ liệu Sheets("SONG"):

  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With

 

[nvtnet]

cái này là tạo nút lệnh, hay copy trực tiếp vào VBA của sheets "song" vậy bác

Bài đã được tự động gộp: 13/8/20

Theo yêu cầu của bạn, code cho loc dữ liệu Sheets("SONG"):

  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With

nếu được bác làm trên file cả các sheets còn lại, rồi cho em xin đc không ạ. em tưởng đơn giản, chứ thế này chắc em không vận dụng được híc. cảm ơn bác nhiều ạ

 

[nvtnet]

Giúp em với ạ

 

[BuiQuangThuan]

Giúp em với ạ

Bạn chưa biết sử dụng vba à. Copy đoạn code trên vào 1 module. Sau đó chạy module đó là được

 

[nvtnet]

Bạn chưa biết sử dụng vba à. Copy đoạn code trên vào 1 module. Sau đó chạy module đó là được

mình làm rồi nhưng không được

Bài đã được tự động gộp: 13/8/20

khi chạy nó không hiện tên module , bảng module trống không

 

[BuiQuangThuan]

mình làm rồi nhưng không được

Bài đã được tự động gộp: 13/8/20

khi chạy nó không hiện tên module , bảng module trống không

Thử copy sub này chay coi

Sub ABC ()
  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With
End sub

 

[syquyen1987]

Giúp em với ạ

 

[BuiQuangThuan]

.

 

[nvtnet]

cảm ơn các bác, em làm được rồi ạ, mới quen VBA nên còn hơi kém.

 

[nvtnet]

@syquyen1987
bác có thể chỉnh để ẩn đi các dòng mà số lượng bằng 0 ở các sheets con được không ạ

Bài đã được tự động gộp: 14/8/20

Bạn đang muốn nhờ ai thế. Nhờ thớt hay 1 trong những người trong này vậy

Em mới quen VBA nên không hiểu lắm, nên lúc đầu chưa biết là tạo nút lệnh để nhập code, em cứ đi tạo module nên nó không chạy.
có điều code này lọc bị thiếu trường, vi dụ đồ sống có 15 mã chẳng hạn thì nó chỉ lọc đc 13 mã

 

[be_09]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

Thử cách khác tách sheet 1 lần.

 

[nvtnet]

Thử cách khác tách sheet 1 lần.

dạ cảm ơn bác ạ, mấy hôm rồi làm được rồi nên em lại không vào lại. em xin file bác để học hỏi thêm. cảm ơn tất cả các bác giúp đỡ ạ

 

[leanh.royal]

em cũng muốn tách theo tên khách hàng mà làm theo mãi không được, ai giúp em với ạ

 

[Hoàng Tuấn 868]

e cũng muốn tách theo tên khách hàng mà làm theo mãi k được, ai giúp e vs ạ

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

 

[leanh.royal]

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

em có file đính kèm đó ạ, ai làm mẫu giúp e được không

 

[VetMini]

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

Nước đổ lá môn

 

[Hoàng Tuấn 868]

e có file đính kèm đó ạ, ai làm mẫu giúp e đc k

Bạn chưa sửa các từ viết tắt "e, đc, vs, k"

Bài đã được tự động gộp: 29/8/20

em có file đính kèm đó ạ, ai làm mẫu giúp e được không

Trong file của bạn đâu là dữ liệu gốc, đâu là kết quả mong muốn nhỉ?

 

[leanh.royal]

Bạn chưa sửa các từ viết tắt "e, đc, vs, k"

Bài đã được tự động gộp: 29/8/20

Trong file của bạn đâu là dữ liệu gốc, đâu là kết quả mong muốn nhỉ?

dữ liệu mình nhập 1 số hàng làm mẫu, còn kết quả là mình muốn tách thành nhiều file con mỗi file là 1 khách hàng khác nhau

 

[Hoàng Tuấn 868]

dữ liệu mình nhập 1 số hàng làm mẫu, còn kết quả là mình muốn tách thành nhiều file con mỗi file là 1 khách hàng khác nhau

Chủ đề của bài này là: "Giúp em tách dữ liệu thành nhiều sheets theo điều kiện".
Vậy bạn phải lập một chủ đề mới vào box: "Lập trình", nếu không sẽ vi phạm nội quy diễn đàn bạn nhé.

 

[leanh.royal]

Chủ đề của bài này là: "Giúp em tách dữ liệu thành nhiều sheets theo điều kiện".
Vậy bạn phải lập một chủ đề mới vào box: "Lập trình", nếu không sẽ vi phạm nội quy diễn đàn bạn nhé.

mình cũng muốn tách thành nhiều sheets thôi, tương tự bạn trên tách theo thực phẩm vậy, nhưng mình là tên khách hàng

 

[Hoàng Tuấn 868]

mình cũng muốn tách thành nhiều sheets thôi, tương tự bạn trên tách theo thực phẩm vậy, nhưng mình là tên khách hàng

Bạn xem thử.

 

[leanh.royal]

Bạn xem thử.

bị lỗi khi mình cập nhập hay sửa bên sheet dữ liệu á bạn

 

[Hoàng Tuấn 868]

bị lỗi khi mình cập nhập hay sửa bên sheet dữ liệu á bạn

Bạn sửa mục nào vậy?

 

[leanh.royal]

Bạn sửa mục nào vậy?

mục ngày á bạn

 

[Hoàng Tuấn 868]

bị lỗi khi mình cập nhập hay sửa bên sheet dữ liệu á bạn

Bạn cho mình biết lỗi như thế nào được không?
Bạn xem lại file.

 

[be_09]

em cũng muốn tách theo tên khách hàng mà làm theo mãi không được, ai giúp em với ạ

Góp ý cho bạn:
1/ Bạn mới tham gia diễn đàn thì nên nhấn nút thích để cho biết bạn có quan tâm đến bài viết, đồng thời tỏ lòng cám ơn người khác đã bỏ công giúp cho mình.
2/ Nếu bạn sử dụng File trên vào mục đích nhập liệu, tạo hóa đơn bán hàng hoặc phiếu xuất kho thì nên sử dụng SheetForm và nên có Hình mẫu để người giúp đưa ra giải pháp khác nhanh, lẹ, phù hợp hơn.
3/ Danh mục Tên hàng nên để riêng 1 sheet như cách tôi làm trong File.
4/ Nên sử dụng Listbox với UserForm sẽ trực quan và nhìn được 3 cột của danh mục, có thể tìm như Google để chọn nhập liệu nhiều hàng hóa cùng lúc kiểu bạn làm phải chọn từng cái và đặc biệt là bạn cần phải nhớ mã hàng nên dễ bị sai (trong kế toán nếu sai 1 ly có thể đi một dặm).
5/ Dùng thử File, vào sheet DuLieu nhấn nút để xem kết quả.

Nếu bạn muốn làm như kiểu tôi góp ý thì nên mở Topic mới trong Box Lập trình với Excel.