Delete value of every nth cell in column.

[Wobzy]

Hi Guys,

From A1 to A365 i have listed dates from 01/01/2017 to 31/12/2017

I want to clear cells containing weekends.

Whats my most efficient method?

 

[Takae]

This is not effect on holidays.
Hope this helps.

Sub test()
Dim i As Long
For i = 1 To 365
    If WorksheetFunction.Weekday(cells(i, 1).Value, 2) >= 6 Then
        cells(i, 1).ClearContents
    End If
Next
End Sub

 

[Wobzy]

This is not effect on holidays.
Hope this helps.

Sub test()
Dim i As Long
For i = 1 To 365
    If WorksheetFunction.Weekday(cells(i, 1).Value, 2) >= 6 Then
        cells(i, 1).ClearContents
    End If
Next
End Sub

Thankyou.

Does the formatting of the cells matter?

IE; numeric only ok, or does day need to be displayed?