Hide columns based on multiple available drop down list

[Excelme at work]

Hi all,

I have searched this forum for an answer but my understanding of VBA does not allow me to combine everything I have read.

I have created a spreadsheet which has the dates for an entire year listed across row from E3 : BK3

Cell D1 is a drop down menu with Jan - Dec and "Annual" as options.

I essentially want all columns except the corresponding month to hide when one is selected and all columns visible when "annual" is selected. Is this possible?

I used this forum to create a code which allows me to set "If January selected then hide all other columns"
However, as soon as I try to introduce an alternative outcome it does not work as required.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 1 And Target.Value = "January" Then
Columns("E:AI").Select
Selection.EntireColumn.Hidden = False
Else
Columns("E:NJ").Select
Selection.EntireColumn.Hidden = True
End If

If Target.Column = 4 And Target.Row = 1 And Target.Value = "February" Then
Columns("AJ:BK").Select
Selection.EntireColumn.Hidden = False
Else
Columns("E:NJ").Select
Selection.EntireColumn.Hidden = True
End If
End Sub

 

[SteveO59L]

are the dates in row 3 week endings/week commencing or something else?

 

[Excelme at work]

are the dates in row 3 week endings/week commencing or something else?

The dates are individual days in the format [01/01/2018] - [02/01/2018] etc. -//- 03/01/2019

 

[SteveO59L]

the data validation list needs to be dates, formatted to text


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 1 Then
Dim c As Range, rng
Dim mymonth, month_val
month_val = Range("d1").Value

mymonth = Month(month_val)

Set rng = Range("e3:be3")
For Each c In rng
If Month(c) = mymonth Then
c.EntireColumn.Hidden = False
Else
c.EntireColumn.Hidden = True
End If
Next c
End If


End Sub

 

[Excelme at work]

the data validation list needs to be dates, formatted to text


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 1 Then
Dim c As Range, rng
Dim mymonth, month_val
month_val = Range("d1").Value

mymonth = Month(month_val)

Set rng = Range("e3:be3")
For Each c In rng
If Month(c) = mymonth Then
c.EntireColumn.Hidden = False
Else
c.EntireColumn.Hidden = True
End If
Next c
End If


End Sub

Thank you very much for this!
It now works perfectly, however the only item I can not see how to work is the option to include an "annual" or "whole year" function?