Chào Thầy, thầy cho e hỏi đoạn code không hiểu sao chạy đến đoạn này thì bị báo lỗi type missmatch. Cám ơn thầy nhiều
Sub Loc_Ngay()
'
' Loc_Ngay Macro
Dim TuNgay As Long
Dim DenNgay As Long
TuNgay = CLng(Range("G1").Value)
DenNgay = CLng(Range("G2").Value) ( Báo lỗi đoạn này)
ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=1, Criteria1:= _
">=" & TuNgay, Operator:=xlAnd, Criteria2:="<=" & DenNgay
End Sub
Lỗi có thể do giá trị trong ô G2 không phải là dữ liệu thời gian mà là dạng text. Bạn có thể kiểm tra lại giá trị mà bạn nhập trong ô này nhé.
Chú ý quy định nhập ngày tháng ở máy tính của bạn là như thế nào: tháng trước - ngày sau hay là Ngày trước - tháng sau? Nếu nhập số tháng lớn hơn 12 thì excel sẽ coi giá trị đó là text, ko phải Date nên sẽ gây ra lỗi.