Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Dim myDate as Date Dim getRow As Integer myDate = Date With wb.Worksheets("Sheet1") .AutoFilterMode = False 'To turn off the filter in case there is any With .Rows(8) .AutoFilterMode = True 'To turn on the filter .AutoFilter Field:=4, Criteria1:="New" .AutoFilter Field:=9, Criterial:=myDate 'This is the line that error happens .AutoFilter Field:=29, Criteria1:="=s-*" End With getRow = .Range("B2").End(xlDown).Row .Rows("2:" & getRow).Delete shift:=xlUp End With
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!