Hướng dẫn cách lọc tự động khi chọn tháng.

[Manhhungstone]

Nhờ anh chị em diễn đàn hướng dẫn giùm cách lọc tự động khi chọn tháng của bảng dữ liệu.

Xin lỗi bạn nhé. mình quên mất. mình đã bỏ Pass VBA rồi bạn xem làm giúp mình với nhé/ cảm ơn bạn

 

[Hai Lúa Miền Tây]

Xin lỗi bạn nhé. mình quên mất. mình đã bỏ Pass VBA rồi bạn xem làm giúp mình với nhé/ cảm ơn bạn

Dùng code sau để Filter

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Not Intersect(Target, Range("E5")) Is Nothing Then
      On Error Resume Next
        Application.EnableEvents = False
           Range("A11:K11").AutoFilter Field:=1, Criteria1:=Range("E5")
        Application.EnableEvents = True
    End If
    
End Sub

Dùng code sau để ẩn dòng trống (Chạy khi chọn sheet đó)

Private Sub Worksheet_Activate()
Dim iLastRow As Long
Dim r As Range
    With ActiveSheet
        iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set r = Range("A12:A" & iLastRow)
    Application.ScreenUpdating = False
        For Each r In r
           If r = "" Then
              r.EntireRow.Hidden = True
            Else
              r.EntireRow.Hidden = False
            End If
        Next r
    End With
    Application.ScreenUpdating = True

End Sub

Xem thêm file nhé.

 

[Manhhungstone]

Cảm ơn bạn nhiều mình đã làm theo bạn nhưng nó lại lọc toàn bộ những dòng có dữ liệu bạn à. bạn xem lại File của mình nhé/ cảm ơn bạn nhiều

 

[Hai Lúa Miền Tây]

Cảm ơn bạn nhiều mình đã làm theo bạn nhưng nó lại lọc toàn bộ những dòng có dữ liệu bạn à. bạn xem lại File của mình nhé/ cảm ơn bạn nhiều

Bạn muốn lọc ở sheet SoCai ?
Hôm trước bạn đưa dữ liệu điều kiện lọc là cột 1, dữ liệu hôm nay là cột số #4, bạn sưẩ từ 1 sang 4 nhé

P/S: Mình đã nhắc nhở bạn lần thứ 2 là nếu đưa file nhờ giúp đỡ thì không nên cài Pass nhé

 

[Manhhungstone]

Nhờ bạn sữa lại giùm mình với.mình sữa lại mà vẫn không được bạn à/ mình đã bỏ Pass VBA rồi bạn xem làm giúp mình với nhé/ cảm ơn bạn

 

[Hai Lúa Miền Tây]

Nhờ bạn sữa lại giùm mình với.mình sữa lại mà vẫn không được bạn à/ mình đã bỏ Pass VBA rồi bạn xem làm giúp mình với nhé/ cảm ơn bạn

Bạn sửa lại code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Not Intersect(Target, Range("D9")) Is Nothing Then
      On Error Resume Next
        Application.EnableEvents = False
           Range("A13:H13").AutoFilter Field:=5, Criteria1:=Range("D9")
        Application.EnableEvents = True
    End If
    
End Sub