Macro to hide rows based on selected Month

[toci]

Hi All,

I need a macro that will hide a rows based on selected Case in cell "A1".
To be more precise what do I mean. Case in cell A1 means: 1 (is January), 2 (February) and so on.
When I put the data e.g. January (range D3:H3) and (D22:F22) and when I select case 1 in cell A1, I want from Macro to hide ALL rows where I don't have the Data for other Months, but Quater range need to be skipped as I don't want to hide it.

And I will have similar tables also in Sheet2, Sheet3 etc.

So, is it possible to write a code for this?

Thank you in advance.

[stnkynts]

Copy code into each sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim strMonth As String

Application.ScreenUpdating = False

If Not Intersect(Target, Range("A1")) Is Nothing Then
    ActiveSheet.Cells.EntireRow.Hidden = False
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        strMonth = LCase(MonthName(Target, False))
        Select Case Range("C" & i).Value
            Case Is = strMonth, "", "Q1", "Q2", "Q3", "Q4"
            Case Else
                Range("C" & i).EntireRow.Hidden = True
        End Select
    Next i
End If

Application.ScreenUpdating = True

End Sub

[toci]

I put the Code, select the number in cell A1 but nothing happens?
Did I do something wrong?

Thank you.

[tax112]

I put the Code, select the number in cell A1 but nothing happens?
Did I do something wrong?

Thank you.

You copy the Code does not place.
"Copy code into each sheet module"

[toci]

Still nothing. I copied the Code to each Sheet as you can see in this attachment.

[tax112]

Still nothing. I copied the Code to each Sheet as you can see in this attachment.

It is still operating normally.
Try Enable macro

[toci]

Yes, I enabled macros but I need to edit it, because when I select "Case 2" (February) I need to see the Data for January and February together. That means e.g. when I select Case 6, I want to see all the data from January till Jun and to hide the rest of.
Also, when I select "Blank" in A1 I get error. Or it would be better when select "Blank" in A1 to unhide all Data.

Thank you very much on cooperation.

[tax112]

Yes, I enabled macros but I need to edit it, because when I select "Case 2" (February) I need to see the Data for January and February together. That means e.g. when I select Case 6, I want to see all the data from January till Jun and to hide the rest of.
Also, when I select "Blank" in A1 I get error. Or it would be better when select "Blank" in A1 to unhide all Data.

Thank you very much on cooperation.

You add commands:

[tax112]

Try:

[stnkynts]

Yes, I enabled macros but I need to edit it, because when I select "Case 2" (February) I need to see the Data for January and February together. That means e.g. when I select Case 6, I want to see all the data from January till Jun and to hide the rest of.

This is completely different from what you initially asked for.

I tested the code I supplied on the worksheet you supplied and it worked perfectly fine based upon your initial parameters.

[toci]

Sorry for misunderstood! I will checking this code few days more and back here with info.
Thank you so much!

[toci]

I've noticed that if I put the table in different range in Sheet2 (changed few things in Macro for Sheet2), back to Sheet1 and when select Case in A1, in Sheet2 nothing happens.

How to fix this?

[toci]

Is it possible to edit this code so when I select "Case 2" in cell A1 I would like to see the Data for January and February together and so on.

Also, if I select "Blank" in A1 is it possible to see all Months?

Thanks!

[toci]

Anybody to jump