Cần giúp đỡ lọc dữ liệu (3 người xem)

[d1207t]

AAdataChào các anh chị em có 1 vấn đề này mà k sao giải quyết được mong các anh chị giúp đỡ
em có 1 file excel (sheet TONG HOP) trong đo từ cột L đến cột V là data dùng để lọc, với giá trị tương ứng 1 là có thực hiện
bây giờ em muốn tách từ sheet này thành các sheet khác tương ứng với giá trị 1 (từ cột L->cột V) và chỉ lấy các giá trị ở cột A,B,H,K,W,Z,AA,AE
Mong các anh chị chỉ giáo.
Nếu được cho em xin 2 cách = công thức bt hoặc vba

 

[d1207t]

Các anh chị giúp em với

 

[nginh]

AAdataChào các anh chị em có 1 vấn đề này mà k sao giải quyết được mong các anh chị giúp đỡ
em có 1 file excel (sheet TONG HOP) trong đo từ cột L đến cột V là data dùng để lọc, với giá trị tương ứng 1 là có thực hiện
bây giờ em muốn tách từ sheet này thành các sheet khác tương ứng với giá trị 1 (từ cột L->cột V) và chỉ lấy các giá trị ở cột A,B,H,K,W,Z,AA,AE
Mong các anh chị chỉ giáo.
Nếu được cho em xin 2 cách = công thức bt hoặc vba

xem file.......................

 

[d1207t]

Em cam on anh @nghinh nhieu nhe

 

[d1207t]

anh @nghich oi hinh nhu cot A khong duoc hien thi o cac sheet kia anh chinh lai giup em nhe. Em cam on anh nhieu

 

[nginh]

anh @nghich oi hinh nhu cot A khong duoc hien thi o cac sheet kia anh chinh lai giup em nhe. Em cam on anh nhieu

Mở sub loc() sửa các dòng sau

u = UBound(Title) [COLOR=#ff0000][B]+ 1
[/B][/COLOR]r(i, j) = .Cells(c.Row, Title(j [B][COLOR=#ff0000]- 1[/COLOR][/B]))
n(j) = .Cells(sh.Row, Title(j [B][COLOR=#ff0000]- 1[/COLOR][/B]))

 

[Let'GâuGâu]

AAdataChào các anh chị em có 1 vấn đề này mà k sao giải quyết được mong các anh chị giúp đỡ
em có 1 file excel (sheet TONG HOP) trong đo từ cột L đến cột V là data dùng để lọc, với giá trị tương ứng 1 là có thực hiện
bây giờ em muốn tách từ sheet này thành các sheet khác tương ứng với giá trị 1 (từ cột L->cột V) và chỉ lấy các giá trị ở cột A,B,H,K,W,Z,AA,AE
Mong các anh chị chỉ giáo.
Nếu được cho em xin 2 cách = công thức bt hoặc vba

Ngồi chờ đánh banh, góp thêm một đoạn code để bạn tham khảo

Sub loc()

Sub loc()

On Error GoTo THOAT

Dim TH As Variant, kq(), i, c, k As Long, WS As Worksheet

With Sheet1
    TH = .[a5:ae5].Resize(.[a10000].End(3).Row).Value
End With

For c = 12 To 22
ReDim kq(1 To UBound(TH), 1 To 8)
k = 0
For i = 1 To UBound(TH)
If TH(i, c) Then
    k = k + 1
    kq(k, 1) = TH(i, 1)
    kq(k, 2) = TH(i, 2)
    kq(k, 3) = TH(i, 8)
    kq(k, 4) = TH(i, 11)
    kq(k, 5) = TH(i, 23)
    kq(k, 6) = TH(i, 26)
    kq(k, 7) = TH(i, 27)
    kq(k, 8) = TH(i, 31)
End If
Next i

If k Then
    For Each WS In Worksheets
        If WS.CodeName = "Sheet" & c Then
        WS.[a2].Resize(k, 8).ClearContents
        WS.[a2].Resize(k, 8).Value = kq
        End If
    Next
    Else
End If
Erase kq
Next c

THOAT:
Erase TH

End Sub

 

[d1207t]

Em cảm ơn 2 anh đã giúp đỡ ạ đúng theo yêu cầu của em rồi.

 

[Let'GâuGâu]

Em cảm ơn 2 anh đã giúp đỡ ạ đúng theo yêu cầu của em rồi.

tôi sửa lại code cho nó chỉnh chu một chút

Sub loc()

On Error GoTo THOAT

Dim TH As Variant, kq(), i, c, k As Long, WS As Worksheet

With Sheet1
    TH = .[a5:ae5].Resize(.[a10000].End(3).Row).Value
End With

For c = 12 To 22
ReDim kq(1 To UBound(TH), 1 To 8)
k = 0
For i = 1 To UBound(TH)
If TH(i, c) Then
    k = k + 1
    kq(k, 1) = TH(i, 1)
    kq(k, 2) = TH(i, 2)
    kq(k, 3) = TH(i, 8)
    kq(k, 4) = TH(i, 11)
    kq(k, 5) = TH(i, 23)
    kq(k, 6) = TH(i, 26)
    kq(k, 7) = TH(i, 27)
    kq(k, 8) = TH(i, 31)
End If
Next i

[COLOR=#0000ff]For Each WS In Worksheets
        If WS.CodeName = "Sheet" & c Then WS.[a2:H10000].ClearContents
         If k And WS.CodeName = "Sheet" & c Then WS.[a2].Resize(k, 8).Value = kq
    Next[/COLOR]

Erase kq
Next c

THOAT:
Erase TH

End Sub

 

[namkpac]

Nhờ các anh (chị) giúp em lọc và điền dữ lieu cho file em gửi kèm với, thanks anh (chị) nhiều!

 

[Hieu07061984]

Nhờ các anh (chị) giúp em lọc và điền dữ lieu cho file em gửi kèm với, thanks anh (chị) nhiều!

Bạn xem file đính kèm.

 

[namkpac]

Bạn xem file đính kèm.

Phần anh (chị) giúp đã đúng rồi, nhưng ở đây em hỏi thêm có ai giúp hộ em cái code cho những công việc đó không?

 

[d1207t]

Các anh chị ơi, file em gửi kèm này cũng y hệt nhưng mà làm theo cách của anh nginh thì tên sheet không hiện ra,
còn làm theo cách của anhLes'tgogo thì k chạy. Các anh chị chỉ giúp em xem vì sao nhé.

 

[d1207t]

Anh @nginh và @Let'GâuGâu giúp em với