How to hide a cell if the date is equal to the 1st of the month

[Hmerman]

Hello all,

I am trying to tell a cell to hide if the date in the cell is equal to the first of the month.

I am struggling with the code to check if the cell is equal to the first of the month.

Here is my

If DateValue(Date("yyyy/mm/01")) = DateValue(Range("A32")) then
    Selection.EntireRow.Hidden = True

End if

Can one of you fine forum please help with the date value calculation?

Friendly Regards
Herman

 

[Tetra201]

Try this:

If Day(DateValue(Range("A32"))) = 1 Then Selection.EntireRow.Hidden = True

 

[Hmerman]

Thank you very much, the date calculation works very well. I really like your style, it is understandable and clear as well as being effective.

I had to tweak my Hide command by selecting the Rows("32:32").

Here is my

If Day(DateValue(Range("A32"))) = 1 Then
    Rows("32:32").EntireRow.Hidden = True
End If

Friendly Regards
Herman

 

[Tetra201]

Glad you got your code working.

 

[MARK858]

@Hmerman, just a suggestion but you can just use the range again rather than use Rows i.e.

Sub hideit()

If Day(DateValue(Range("A32"))) = 1 Then Range("A32").EntireRow.Hidden = True

End Sub

or probably a better way of doing it...

Sub hideit2()
Dim rng As Range

Set rng = Range("A32")

If Day(DateValue(rng)) = 1 Then rng.EntireRow.Hidden = True

End Sub

but if you are using Rows then you don't need the .EntireRow as Rows already refers to the entire row i.e.

Sub hideit3()
If Day(DateValue(Range("A32"))) = 1 Then Rows("32:32").Hidden = True
End Sub

and as you see you don't need the End If's in any of the codes as you are only doing a single test and so it can all be on one line (as Tetra201 also did if you look at the code in post #2).

 

[Hmerman]

@MARK858

Sorry for not replying earlier. Was a bit swamped with work worries.

I have taken your advice into account and it made for a much improved code.

Thank you once again!

Friendly Regards