Xin kiem tra giúp đoạn Code loc không hết dữ liệu

[new2008]

Chào cả nhà

Các bạn kiểm tra giúp đoạn code lọc dữ liệu ( theo số ví dụ trên diễn đàn) không lọc hơn 160 dòng.

 

[new2008]

Sorry mọi người do diễn giải không rõ. Trong file đính kèm khi cho dây chuyền trong combobox của form nhập liệu thì combobox của thiết bị chỉ chạy đến hàng 160, từ hàng 161 trở đi thì code báo lổi. Nhờ mọi người kiểm tra lại giúp mình nha.

 

[Po_Pikachu]

Private Sub Fls_Change()
  With Sheet1.Range("A6").CurrentRegion.Resize(, 1)
  Mc.RowSource = Sheet1.Name & "!" & Sheet1.Range(.Find(Fls, LookAt:=xlWhole), _
    .Find(Fls, SearchDirection:=xlPrevious)).Offset(, 1).Address
  End With
End Sub

Bạn viết nhiều quá mà mình cũng chẳng hiểu nổi lổi nó nằm ở đâu nữa. Thôi thì dùng cách này cho nó ngắn nha!
Mục đích cũng chỉ là trích ra cột "Tên thiết bị" ứng với "Dây chuyền" thôi phải không?
Thân.

 

[new2008]

Thank bạn rất nhiều. Đúng yêu cầu mình muốn rồi đó.

 

[new2008]

Po_Pikachu.
Bạn xem giúp lại cái: đoạn code của bạn ghi thì lọc được "thiết bị" theo "dây chuyền", nhưng khi nhấn nhập vào bảng thì nó báo lổi :" run time error 1004" : method range of obiect worksheet failed