Weekday Filter help required

[colbecd]

Hi

Hoping someone will be able to help, I have the below VBA code to filter by date + 2 however on a "Friday" I want this to search for "Tuesday" is there a way that i can code the below to searh for only working days ie Monday to Friday and skip weekends?

Sub Filterbydate()
Sheets("Report").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$1775").AutoFilter Field:=6, Operator:= _
xlFilterValues, Criteria2:=Array(2, Date + 2)
Rows("2:10000").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A1").Select
End Sub


Many thanks in advance!!

 

[hippiehacker]

maybe like this?

Sub Filterbydate()
If Weekday(Date + 1, vbUseSystemDayOfWeek) = 6 Or Weekday(Date + 2, vbUseSystemDayOfWeek) = 7 Then
Date1 = Date + 4
Else
Date1 = Date + 2
End If
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$1775").AutoFilter Field:=6, Operator:= _
xlFilterValues, Criteria2:=Array(2, Date1)
Rows("2:10000").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A1").Select
End Sub