Thay đổi vùng lọc dữ liệu bằng combobox

[nmhung49]

Em có 1 file để lọc dữ liệu bằng combobox mà không được, dữ liệu được Lọc theo những cột màu xanh bên sheet "data" Khi Account type thay đổi thì vùng lọc dữ liệu cũng thay đổi Đồng thời Document Type cũng thay đổi để điều kiện lọc phù hợp với vùng dữ liệu của Account Type để lấy dữ liệu qua sheet "check". Mong các anh chị giúp đỡ. Thanks

 

[nmhung49]

Em nghiên cứu hoài mà không ra mà khi em thay đổi vùng dữ liệu để lọc thì vẫn đúng mà khi lọc lại bị báo lỗi mong các anh chị giúp. Thanks file này em rất cần

 

[ndu96081631]

Em nghiên cứu hoài mà không ra mà khi em thay đổi vùng dữ liệu để lọc thì vẫn đúng mà khi lọc lại bị báo lỗi mong các anh chị giúp. Thanks file này em rất cần

Dữ liệu của bạn không đồng nhất:
- Vùng 1 gồm 15 cột, cột đầu là PO
- Vùng 2 và vùng 3 chỉ có 14 cột, thiếu cột PO
Chính vậy mà gây khó khăn cho việc xác định vùng dữ liệu
---------------
Tạm làm cho bạn như sau:

Private Sub Cboaccount_DropButtonClick()
  Cbodoc.Text = ""
  Cboaccount.List() = WorksheetFunction.Transpose(Sheet1.Range("BB2:BD2"))
End Sub

Private Sub Cbodoc_DropButtonClick()
  With Sheet1.Range("BB2").CurrentRegion
    With .Find(Cboaccount.Text, , , xlWhole)
      Cbodoc.List() = .Parent.Range(.Offset(1), .End(xlDown)).Value
    End With
  End With
End Sub

Private Sub Cbodoc_Click()
  Dim ilcot As Long, sRng As Range
  On Error Resume Next
  Application.EnableEvents = False
  ilcot = Sheet1.Range("1:1").Find(Cboaccount.Text, , , xlWhole).Column
  Range("A10:M10000").Clear
  Set sRng = Sheet1.Cells(6, ilcot).CurrentRegion
  Set sRng = IIf(Cboaccount.Text = "33129900", sRng.Offset(, 1), sRng)
  With sRng
    .AutoFilter
    .AutoFilter 5, Cbodoc.Text
    Union(.Resize(, 4), .Offset(, 5).Resize(, 9)).Copy Range("A10")
    .AutoFilter
  End With
  Application.EnableEvents = True
End Sub

Hạn chế dùng sự kiện Change, sẽ gây nhiều rắc rối đây
Xem file và kiểm tra lại ---> Trong file tôi bỏ hết name, dùng code để add list cho Combo

 

[nmhung49]

Cảm ơn NDu nhiều em được học thêm 1 sự kiện DropButtonClick em sẽ nghiên cứu đoạn code trên "tuyệt cú mèo"