Autofilter theo ngày tháng

[spacemanforever]

Chào GPE!
nhờ anh em sữa giúp em code này với:

Sub GetTotals()
    Dim rngToCopy As Range
    
    Dim sdate As Date
    
    sdate = [B4]
    sdate = Format(sdate, "dd/mm/yyyy")
    With Worksheets("21")
        .Range("A8:K8").Autofilter Field:=8, Criteria1:="<=" & sdate
        Set rngToCopy = Nothing
        Set rngToCopy = .Range("A9:K65536").SpecialCells(xlCellTypeVisible)
        If Not rngToCopy Is Nothing Then rngToCopy.Copy Worksheets("abc").Range("A5")
        '.AutoFilterMode = False
    End With
    Sheets("abc").Select
    If Range("A5") = "" Then MsgBox "Have no data. Please check it again"
 
End Sub

Nhưng lại không hiển thị kết quả mong muốn. Nhờ GPE giúp dùm

 

[ndu96081631]

Chào GPE!
nhờ anh em sữa giúp em code này với:

Sub GetTotals()
    Dim rngToCopy As Range
    
    Dim sdate As Date
    
    sdate = [B4]
    sdate = Format(sdate, "dd/mm/yyyy")
    With Worksheets("21")
        .Range("A8:K8").Autofilter Field:=8, Criteria1:="<=" & sdate
        Set rngToCopy = Nothing
        Set rngToCopy = .Range("A9:K65536").SpecialCells(xlCellTypeVisible)
        If Not rngToCopy Is Nothing Then rngToCopy.Copy Worksheets("abc").Range("A5")
        '.AutoFilterMode = False
    End With
    Sheets("abc").Select
    If Range("A5") = "" Then MsgBox "Have no data. Please check it again"
 
End Sub

Nhưng lại không hiển thị kết quả mong muốn. Nhờ GPE giúp dùm

Code của bạn tôi rút gọn thành vầy:

Sub GetTotals()
  Sheets("abc").Range("A5:K1000").Clear
  With Sheets("21").Range("A8:K1000")
    .Autofilter 8, "<=" & CLng(.Parent.Range("B4"))
    .Offset(1).SpecialCells(12).Copy Sheets("abc").Range("A5")
    .Autofilter
  End With
End Sub