VBA hide/unhide rows based on days of the month

[vendonz]

Hi everyone can you help me get done a VBA auto hide/unhide days based on month?

i have this simple code but it has flaws on unhiding/hiding when i change the month

Sub Hide_Day()
Dim Num_Row As Long

For Num_Row = 62 To 67

If Month(Cells(Num_Row, 28)) >= Cells(11, 27) Then

Rows(Num_Row).Hidden = True

Else

Rows(Num_Row).Hidden = False

End If

Next

End Sub

Unit	DG1
Month	January	2025
Date	Start	Sync	Min	Max	Start	Sync
1
	0:00	0:00	0:00		0:00
2
	0:00	0:00	0:00		0:00
3
	0:00	0:00	0:00		0:00
4
	0:00	0:00	0:00		0:00
5
	0:00	0:00	0:00		0:00
6
	0:00	0:00	0:00		0:00
7
	0:00	0:00	0:00		0:00
8
	0:00	0:00	0:00		0:00
9
	0:00	0:00	0:00		0:00
10
	0:00	0:00	0:00		0:00
11
	0:00	0:00	0:00		0:00
12
	0:00	0:00	0:00		0:00
13
	0:00	0:00	0:00		0:00
14
	0:00	0:00	0:00		0:00
15
	0:00	0:00	0:00		0:00
16
	0:00	0:00	0:00		0:00
17
	0:00	0:00	0:00		0:00
18
	0:00	0:00	0:00		0:00
19
	0:00	0:00	0:00		0:00
20
	0:00	0:00	0:00		0:00
21
	0:00	0:00	0:00		0:00
22
	0:00	0:00	0:00		0:00
23
	0:00	0:00	0:00		0:00
24
	0:00	0:00	0:00		0:00
25
	0:00	0:00	0:00		0:00
26
	0:00	0:00	0:00		0:00
27
	0:00	0:00	0:00		0:00
28
	0:00	0:00	0:00		0:00
29
	0:00	0:00	0:00		0:00
30
	0:00	0:00	0:00		0:00
31
	0:00	0:00	0:00		0:00

 

[kvsrinivasamurthy]

A sample of data in XL2BB format Covering Rows 62 to 67 , Columns 27 and 28 may help to get required result

 

[vendonz]

Format-DoNotEdit-Backup.xlsx
	A	B
62	29
63
64	30
65
66	31
67
DG1

Cell Formulas
Range	Formula
A62,A66,A64	A62	=DATE($AD$2,$AD$1,AA62)

Format-DoNotEdit-Backup.xlsx
	AD	AE
1	1	01/01/2025
2	2025
DG1

Cell Formulas
Range	Formula
AE1	AE1	=DATE(AD2,AD1,1)

can i add case on this that will determine eomonth as basis of hide