Tìm kiếm đồng thời ở nhiều sheet

[duynguyenduc93]

Các bác giúp em với!
Em có sử dụng VBA để tìm kiếm ở sheet "Search", Giá trị tìm kiếm là theo cột "Quốc lộ" và chạy ok.
Nhưng giờ em cần tìm kiếm và lọc đồng thời ở các sheet còn lại, khổ nỗi em k rành về code nên không biết phải xử lý như thế nào, các cao thủ giúp em với!

 

[Lê Duy Thương]

Các bác giúp em với!
Em có sử dụng VBA để tìm kiếm ở sheet "Search", Giá trị tìm kiếm là theo cột "Quốc lộ" và chạy ok.
Nhưng giờ em cần tìm kiếm và lọc đồng thời ở các sheet còn lại, khổ nỗi em k rành về code nên không biết phải xử lý như thế nào, các cao thủ giúp em với!

thay thử cái này xem

Private Sub TextBox1_Change()
ActiveSheet.Range("a10").CurrentRegion.AutoFilter 3, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet3.Range("a7").CurrentRegion.AutoFilter 4, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet8.Range("a4").CurrentRegion.AutoFilter 2, "*" & ActiveSheet.[B7] & "*", xlFilterValues
End Sub

 

[NguyenNgocThuHien]

thay thử cái này xem

Private Sub TextBox1_Change()
ActiveSheet.Range("a10").CurrentRegion.AutoFilter 3, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet3.Range("a7").CurrentRegion.AutoFilter 4, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet8.Range("a4").CurrentRegion.AutoFilter 2, "*" & ActiveSheet.[B7] & "*", xlFilterValues
End Sub

Bạn ý muốn chơi kiểu khác cơ, kiểu như lọc đồng thời trên nhiều sheet, rồi nhét kết quả vào một sheet mới.

 

[Lê Duy Thương]

Bạn ý muốn chơi kiểu khác cơ, kiểu như lọc đồng thời trên nhiều sheet, rồi nhét kết quả vào một sheet mới.

cũng không chắc lắm. thôi cứ kệ cho chủ thớt tìm hiểu

 

[duynguyenduc93]

thay thử cái này xem

Private Sub TextBox1_Change()
ActiveSheet.Range("a10").CurrentRegion.AutoFilter 3, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet3.Range("a7").CurrentRegion.AutoFilter 4, "*" & ActiveSheet.[B7] & "*", xlFilterValues
Sheet8.Range("a4").CurrentRegion.AutoFilter 2, "*" & ActiveSheet.[B7] & "*", xlFilterValues
End Sub

Hú hú cảm ơn các bác nhiều nhé, em lần mò lại thay đổi chút là ngon luôn
Many thanks!!!!!