run filter ไม่ผ่าน

[bkkrong]

ทำปุ่ม เลือก filter วันที่ แต่ฟ้องอย่างนี้ แก้ไขอย่างไรครับ

Code: Select all

Public Sub MyFilter()
    Dim lngStart As Date, lngEnd As Date
    lngStart = Range("K2").Value
    lngEnd = Range("K3").Value
    Sheet12.Range("A1:A1000").AutoFilter field:=1, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

'Other...
    Sheet12.Range("Table_Fee_schdule").AutoFilter Field:=1, _
        Criteria1:=">=" & CDbl(lngStart), _
        Operator:=xlAnd, _
        Criteria2:="<=" & CDbl(lngEnd)
'Other...