Sử dụng VBA để lọc ngày trong bảng Pivottable

[tkhieu]

Chào mọi người
Mình có sử dụng vba để lọc ngày trong bảng pivottable
Tại ô ngày bắt đầu và kết thúc mình có để định dạng dd/mm/yyyy, ví dụ 01/06/2022 đến 02/06/2022
Cột ngày của bảng pivottable mình cũng đã để định dạng dd/mm/yyyy, Tuy nhiên khi dùng vba thì bảng pivottable của mình lại lọc từ 06/01/2022 đến 06/02/2022.
Code mình như này ạ
Nhờ mọi người giúp mình sửa lỗi nhé.

Sub FilterDate()

    If Range("L3").Value = "" Then
        MsgBox ("Ban phai nhap ngay bat dau.")
        Exit Sub
    End If
    
   If Range("L4").Value = "" Then
        MsgBox ("Ban phai nhap ngay ket thuc.")
        Exit Sub
    End If
    
    With ActiveSheet.PivotTables("tm").PivotFields("Date")
        .ClearAllFilters
        .PivotFilters.Add Type:=xlDateBetween, Value1:=Range("L3").Value, Value2:=Range("L4").Value
    End With
    
End Sub