Hide Month Calender Date Column | Excel | VBA

[jackbhai]

Hide Month Calender Date Column | Excel | VBA
I have a Leave Tracker Excel where i want to Hide the Remaining Date Columns for Particular Months Which as Only 28 days or 30 days
For example
Example 1 : Assume i have Month => FEB YEAR 2019 => It as only 28 Days so remaining Days [29,30,31] Column should be Hide
Example 2 : Assume i have Month => JUNE YEAR 2019 => It as Only 30 Days so remaining Day [31] Column should be Hide
Below is the Video To see How it Appears for my excel
This my Video on Youtube => About issue => https://youtu.be/AjqX5t-3XHE
My Working Excel Sheet [Google Drive Link]
https://drive.google.com/file/d/1UBzaUFIlGUdqcfmJ-9zuR9eKf3XZXBzO/view?usp=sharing

 

[Fluff]

Hi & welcome to MrExcel.

Select AG15:AI27 & with conditional format use
=AG$15=""
set colour to "no colour" & Borders to "None"

 

[jackbhai]

Fluff
if you see my above video you will come to know i am using spinner
As soon as i change the month the Month as Only 28 days so remaining Dates 29,30,31 should get hide
And if i Change to another Month using spinner then the Month as 31 days then it should display with 31 days
The main aim is i am Using Holiday table to highlight holidays that why even if the month as only 28 days then also highlighting remaining days which should be not get highlighted [29,30,31]

 

[Fluff]

Did you try my suggestion?
It will remove any highlights & borders on those cells

 

[jackbhai]

Fluff i want to Hide not to Change Color to none Bro
its a leave tracker excel bro if Month as 28 days remaining days should get Hide not Color change to None and border to none

 

[Fluff]

In that case How about

Sub jackbhai()
   Dim Dte As Date
   Dim Clmn As Long
   Dte = DateSerial(Range("B11"), Range("B5"), 1)
   Clmn = Day(Application.EoMonth(Dte, 0)) + 5
   Range("AG:AI").EntireColumn.Hidden = False
   If Clmn < 36 Then
      Range(Cells(1, Clmn), Cells(1, "AI")).EntireColumn.Hidden = True
   End If
End Sub

Assign it to both spinners

 

[jackbhai]

Fluff => can you please apply on my below excel and give i will go through it where i am missing the logic as i not good with VBA

My Working Excel Sheet [100% safe Google Drive Link]
https://drive.google.com/file/d/1UBz...ew?usp=sharing

 

[Fluff]

You will need to do it yourself, as I have no way of supplying you the amended file.
Add the code to a regular module, then right click one of the spinners & select assign macro, then select the macro from the list that appears.