Automatically show columns based on criteria

[Scott Browner]

I need help showing only columns based on criteria. I have a spreadsheet with Q1, Q2, Q3 and Q4 data. If I type "Q1" into a specific cell (in this case cell C2 which is shaded) I want all of the cells containing Q1 at the top to appear and all of the cells that contain Q2, Q3 and Q4 to be hidden. Here is the spreadsheet that I have been working on so far. Thanks in advance for your help.

Incentive Plan - Cumulative	Q1		Q1	Q2	Q3	Q4	Q1	Q2	Q3	Q4
								Prorated Bonus Amounts
Working Timekeeper	Position	Date Employed	Date Terminated	Annual Salary as of EOQ1	Annual Salary as of EOQ2	Annual Salary as of EOQ3	Annual Salary as of EOQ4	Q1 Bonus	Q2 Bonus	Q3 Bonus	Q4 Bonus

<colgroup><col width="165" style="width: 124pt; mso-width-source: userset; mso-width-alt: 6034;"> <col width="99" style="width: 74pt; mso-width-source: userset; mso-width-alt: 3620;"> <col width="69" style="width: 52pt; mso-width-source: userset; mso-width-alt: 2523;"> <col width="74" style="width: 56pt; mso-width-source: userset; mso-width-alt: 2706;"> <col width="69" style="width: 52pt; mso-width-source: userset; mso-width-alt: 2523;" span="4"> <col width="59" style="width: 44pt; mso-width-source: userset; mso-width-alt: 2157;" span="4"> <tbody> </tbody>

 

[SteveO59L]

as a worksheet change event
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rng
Set rng = Range("e2:l2")
If Target.Row = 2 And Target.Column = 3 Then
Columns("d:m").Hidden = False
For Each c In rng
If c.Value <> Target.Value Then
c.EntireColumn.Hidden = True
End If
Next c
End If
End Sub

 

[Scott Browner]

Thanks so much for your help Steve.

 

[Scott Browner]

Is it possible to put a string in the target field? An example would be; I would like to look at Q1 and Q2 at the same time or Q2 and Q3. Is that possible?

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Cl As Range
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address = "$C$2" Then
      Range("D:M").EntireColumn.Hidden = False
      For Each Cl In Range("e2", Cells(2, Columns.Count).End(xlToLeft))
         Cl.EntireColumn.Hidden = Not InStr(1, Target.Value, Cl.Value) > 0
      Next Cl
   End If
End Sub