lọc đơn hàng

[NguyenthiH]

Em nhờ các anh chị giúp em lọc đơn hàng giống như file đính kèm ạ.

 

[SA_DQ]

Thay nội dung trong macro này:

Sub XaiChung2SuKien(Sh As Worksheet, MaHH As String)
  Dim Rng As Range, sRng As Range
  Dim MyAdd As String
  Dim Rws As Long, W As Integer, Dm As Integer
  ReDim Arr(1 To 9, 1 To 8)
   
  With Sh
    Rws = .[E4].CurrentRegion.Rows.Count
    Set Rng = .[e3].Resize(Rws)   
    Set sRng = Rng.Find(MaHH, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        Arr(1, 2) = "Nothing!":                       Arr(1, 1) = "GPE.COM:"
        W = 1
    Else
        MyAdd = sRng.Address
        Do
            W = W + 1:                              Arr(W, 1) = sRng.Offset(, -3).Value
            Arr(W, 2) = sRng.Offset(, -2).Value
            For Dm = 1 To 6
                Arr(W, Dm + 2) = sRng.Offset(, Dm).Value
            Next Dm
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    If Sh.Name = "Sheet1" Then
        [A5].Resize(W, 8).Value = Arr()
    Else
        [A14].Resize(W, 8).Value = Arr()
    End If
  End With
End Sub

 

[NguyenthiH]

Cám ơn Bác SA_DQ nhiều!!!

 

[NguyenthiH]

Chết! Chết! Bác SA_DQ ơi, code mới của Bác không xóa dữ liệu cũ, nên khi em gõ PO có tới 2 dòng, sau đó gõ PO khác chỉ có một dòng, thì lúc này dòng thứ 2 của PO đầu vẫn còn. Mong Bác giúp em.
Bác @SA_DQ giúp em với.