Nhờ giúp đỡ viết code để lọc có điều kiện! (1 người xem)

[phuongc5]

Chào các thành viên!
Mình muốn mọi người giúp đỡ viết code để lọc có điều kiện. Yêu cầu mình đã nêu rõ trong file đính kèm
Rất mong được giúp đỡ!
Xin chân thành cảm ơn!

 

[ThuNghi]

Chào các thành viên!
Mình muốn mọi người giúp đỡ viết code để lọc có điều kiện. Yêu cầu mình đã nêu rõ trong file đính kèm
Rất mong được giúp đỡ!
Xin chân thành cảm ơn!

Sub Loc()
Dim DieuKien As String
Dim eR As Long, myRng As Range
Sheet4.Select
Sheet4.AutoFilterMode = False
DieuKien = [A10]
eR = Cells(65000, 1).End(xlUp).Row
Set myRng = Range("A13:M" & eR)
myRng.AutoFilter
myRng.AutoFilter Field:=1, Criteria1:=DieuKien, Operator:=xlAnd
Set myRng = Nothing
End Sub

Bạn dùng thử code sau, nhớ nhập vào A10 cho đúng chính tả.

 

[tam8678]

Chào các thành viên!
Mình muốn mọi người giúp đỡ viết code để lọc có điều kiện. Yêu cầu mình đã nêu rõ trong file đính kèm
Rất mong được giúp đỡ!
Xin chân thành cảm ơn!

------------
Không biết bạn dùng font chử gì mà đọc không được. Về Code Lọc bạn cố gắng tìm các bài trên dỉển đàn ( Riêng của NDU rất nhiều ). Cố lên bạn nhé ( trong đó có tôi ).

 

[phuongc5]

Sub Loc()
Dim DieuKien As String
Dim eR As Long, myRng As Range
Sheet4.Select
Sheet4.AutoFilterMode = False
DieuKien = [A10]
eR = Cells(65000, 1).End(xlUp).Row
Set myRng = Range("A13:M" & eR)
myRng.AutoFilter
myRng.AutoFilter Field:=1, Criteria1:=DieuKien, Operator:=xlAnd
Set myRng = Nothing
End Sub

Bạn dùng thử code sau, nhớ nhập vào A10 cho đúng chính tả.

Anh à, làm như thế này thì nó không tự động. Em muốn là cứ nhập vào ô A10 thì nó lọc luôn cơ

 

[ThuNghi]

Anh à, làm như thế này thì nó không tự động. Em muốn là cứ nhập vào ô A10 thì nó lọc luôn cơ

Dùng sự kiện change gắn vào Sheet4

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then
  Loc
End If
End Sub

 

[phuongc5]

Dùng sự kiện change gắn vào Sheet4

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then
  Loc
End If
End Sub

Sub Loc thì em dán vào module, còn sự kiện change em dán vào sheet4 đúng như hương dẫn sao không thấy hiện tượng gì vậy anh?

 

[huuthang_bd]

Sub Loc thì em dán vào module, còn sự kiện change em dán vào sheet4 đúng như hương dẫn sao không thấy hiện tượng gì vậy anh?

Đừng nói là bạn tạo thêm các sheet 1, 2, 3, 4 để có sheet4 cho bạn gắn Macro vào nhé. Sheet4 là cái sheet duy nhất trên của bạn đó. Dán vào VBE của sheet đó.

 

[phuongc5]

Đừng nói là bạn tạo thêm các sheet 1, 2, 3, 4 để có sheet4 cho bạn gắn Macro vào nhé. Sheet4 là cái sheet duy nhất trên của bạn đó. Dán vào VBE của sheet đó.

Tất nhiên là mình dán trong môi trường VBE rồi. Nhưng bây giờ tắt đi khởi động lại thì lại được rồi (chẳng hiểu máy tính của mình bị sao nữa). Cảm ơn mọi người nha!
P/S: Mình muốn là nếu ô A10 mà không có số liệu thì sẽ không lọc gì cả, có nghĩa là nó sẽ Show all thì phải thêm gì nữa vậy?