xin hỗ trợ về code lọc dữ liệu

[sinh1407]

em có tìm được một số code về lọc dữ liệu... nhưng khi áp dụng thì bị lỗi Run-time error '9': subscript out of range
xin các cao thủ trợ giúp và giải thích lỗi hộ em

 

[snow25]

em có tìm được một số code về lọc dữ liệu... nhưng khi áp dụng thì bị lỗi Run-time error '9': subscript out of range
xin các cao thủ trợ giúp và giải thích lỗi hộ em

Bạn làm thế khi dữ liệu nhiều nó sẽ chậm lắm.Không dùng được đâu.Tốt nhất là bạn làm cái form rồi viết code tìm kiếm cho nó hoặc tìm bài nào như vậy mà làm.

 

[BuiQuangThuan]

em có tìm được một số code về lọc dữ liệu... nhưng khi áp dụng thì bị lỗi Run-time error '9': subscript out of range
xin các cao thủ trợ giúp và giải thích lỗi hộ em

Nếu vẫn muốn sử dụng code cũ thì thay cái này coi xem có đúng ý bạn không

Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
'    Call Data_LocTen_Table(Sheet_HTen, "tb_Data_HTen", 2, "B3")
' End If
Dim iR&
If Target.Address = "$B$3" Then
    If Range("B3").Value <> Empty Then
        Range("B6").CurrentRegion.AutoFilter 1, "*" & Range("B3").Value & "*"
    Else
        AutoFilterMode = False
    End If
End If
End Sub

 

[sinh1407]

Nếu vẫn muốn sử dụng code cũ thì thay cái này coi xem có đúng ý bạn không

Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
'    Call Data_LocTen_Table(Sheet_HTen, "tb_Data_HTen", 2, "B3")
' End If
Dim iR&
If Target.Address = "$B$3" Then
    If Range("B3").Value <> Empty Then
        Range("B6").CurrentRegion.AutoFilter 1, "*" & Range("B3").Value & "*"
    Else
        AutoFilterMode = False
    End If
End If
End Sub[/CODE
[/QUOTE]

cám ơn bạn rất nhiều...
mình muốn dùng code ở trên vì nếu có tìm kiếm ở ô khác mình chỉ cần gọi cái Data_LocTen_table cho nhanh ạ

 

[BuiQuangThuan]

cám ơn bạn rất nhiều...
mình muốn dùng code ở trên vì nếu có tìm kiếm ở ô khác mình chỉ cần gọi cái Data_LocTen_table cho nhanh ạ

Hãy sửa chỗ khoanh đỏ kia thử xem. Tại mình thấy không có cái ListObject nào tên là tb1 cả

 

[sinh1407]

mình muốn dùng code

View attachment 267765
Hãy sửa chỗ khoanh đỏ kia thử xem. Tại mình thấy không có cái ListObject nào tên là tb1 cả

cám ơn bạn.... mình đã tìm ra rồi.....
là do mình không tạo bảng