giúp e code lọc dữ liệu và tự động update dữ liệu cần lọc a

[hoangduchp]

em cần code lọc dữ liệu và update từ phần tổng hợp sang sắt thép và hóa chất ạ . thanks ace

 

[be_09]

em lọc bằng advanced giờ muốn update thêm dữ liệu mục tổng hợp mà nó tự sang hai mục sắt thép và hóa chất thì có công thức nào ko ace giúp với

Góp ý cho bạn:
Khi đăng bài trong Box lập trình thì bạn phải nêu nội dung là giúp code chứ không ai nêu nội dung là giúp hàm. Nếu là giúp hàm thì về bài cũ Link tại đây để hỏi tiếp.

 

[hoangduchp]

Góp ý cho bạn:
Khi đăng bài trong Box lập trình thì bạn phải nêu nội dung là giúp code chứ không ai nêu nội dung là giúp hàm. Nếu là giúp hàm thì về bài cũ Link tại đây để hỏi tiếp.

Dạ vâng để e sửa lại .thanks

 

[CHAOQUAY]

em cần code lọc dữ liệu và update từ phần tổng hợp sang sắt thép và hóa chất ạ . Cảm ơn ace

Chạy thử code này xem sao

Sub Loc()
Dim TongHop
Dim SatThep, MST
Dim HoaChat, MHC
Dim DongSt, SlSt
Dim DongHc, SlHc
Dim i, j, k, r, c
TongHop = Sheet1.Range("A1").CurrentRegion
r = UBound(TongHop)
c = UBound(TongHop, 2)
MST = Left(Sheet2.Range("A2"), 3)
MHC = Left(Sheet3.Range("A2"), 3)
ReDim DongSt(1 To r)
ReDim DongHc(1 To r)
For i = 2 To r
    If Left(TongHop(i, 3), 3) = MST Then
        SlSt = SlSt + 1
        DongSt(SlSt) = i
    Else
        If Left(TongHop(i, 3), 3) = MHC Then
            SlHc = SlHc + 1
            DongHc(SlHc) = i
        End If
    End If
Next i
ReDim SatThep(1 To SlSt, 1 To c)
For i = 1 To SlSt
    k = DongSt(i)
    For j = 1 To c
        SatThep(i, j) = TongHop(k, j)
    Next j
Next i
ReDim HoaChat(1 To SlHc, 1 To c)
For i = 1 To SlHc
    k = DongHc(i)
    For j = 1 To c
        HoaChat(i, j) = TongHop(k, j)
    Next j
Next i
With Sheet2
    .Range("A5:C" & r).Clear
    .Range("A5").Resize(SlSt, c) = SatThep
    .Range("A5").Resize(SlSt, c).Borders.LineStyle = 1
    .Range("A5").Resize(SlSt, c).Columns.AutoFit
End With
With Sheet3
    .Range("A5:C" & r).Clear
    .Range("A5").Resize(SlHc, c) = HoaChat
    .Range("A5").Resize(SlHc, c).Borders.LineStyle = 1
    .Range("A5").Resize(SlHc, c).Columns.AutoFit
End With
End Sub