last 5 business days from today’s date

[sivavuddanti]

Hi all,


how to filter last 5 business days from today’s date by using VBA,

Note : already one column is filtered now I have to filter another column with condition last 5 business days from today’s date[FONT=Calibri,CALIBRI][FONT=Calibri,CALIBRI][/FONT][/FONT]
[FONT=Calibri,CALIBRI][FONT=Calibri,CALIBRI][/FONT][/FONT]

 

[mse330]

Hey sivavuddanti,

I have tried the below code on a sample file & it is working ok ... Give it a try & let me know if it works for you too

Function IsWorkDay(TodayDate As Date) As Boolean

IsWorkDay = True

If Weekday(TodayDate, vbMonday) = 6 Or Weekday(TodayDate, vbMonday) = 7 Then ' change the vbMonday to your first day of the week
    IsWorkDay = False
End If

End Function

Sub Filter()

Dim Arr(1 To 7) As String

For x = LBound(Arr) To UBound(Arr)
    If IsWorkDay(Date - 8 + x) = True Then
        Arr(x) = (Date - 8 + x)
    End If
Next x

ActiveSheet.Range("$A$1:$A$28").AutoFilter Field:=1, Criteria1:=Arr, Operator:=xlFilterValues ' change the sheet & filter range

End Sub