Hide and unhide columns

I have the following statement. Instead of hiding and unhiding the range
"B:J", I want to hide and unhide Columns "B,D,f,H"

Please find below the statement I have used. Any advise would be very much
appreciated.


Private Sub CommandButton1_Click()
Macro2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr As Variant

arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
If Target.Cells.Count > 1 Then Exit Sub

If Target.Column = 1 Then
Columns("B:J").EntireColumn.Hidden = _
IsError(Application.Match(Target.Value, arr, 0))
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("A:A"), Range("B:J"))) Is Nothing Then
Columns("B:J").EntireColumn.Hidden = True
End If
End Sub

Columns("B:B,D:D,F:F,H:H").EntireColumn.Hidden.......etc

(BTW: The macro recorder could have told you the same)

Wolf

"Frederic" wrote:

> I have the following statement. Instead of hiding and unhiding the range
> "B:J", I want to hide and unhide Columns "B,D,f,H"
>
> Please find below the statement I have used. Any advise would be very much
> appreciated.
>
>
> Private Sub CommandButton1_Click()
> Macro2
> End Sub
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim arr As Variant
>
> arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
> If Target.Cells.Count > 1 Then Exit Sub
>
> If Target.Column = 1 Then
> Columns("B:J").EntireColumn.Hidden = _
> IsError(Application.Match(Target.Value, arr, 0))
> End If
>
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Intersect(Target, Union(Range("A:A"), Range("B:J"))) Is Nothing Then
> Columns("B:J").EntireColumn.Hidden = True
> End If
> End Sub
>

Hi Frederick,

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr As Variant
Dim rng As Range

Set rng = Range("B1, D1, F1, H1")

arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
If Target.Cells.Count > 1 Then Exit Sub

If Target.Column = 1 Then
rng.EntireColumn.Hidden = _
IsError(Application.Match(Target.Value, arr, 0))
End If

End Sub


---
Regards,
Norman



"Frederic" <[email protected]> wrote in message
news:[email protected]...
>I have the following statement. Instead of hiding and unhiding the range
> "B:J", I want to hide and unhide Columns "B,D,f,H"
>
> Please find below the statement I have used. Any advise would be very much
> appreciated.
>
>
> Private Sub CommandButton1_Click()
> Macro2
> End Sub
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim arr As Variant
>
> arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
> If Target.Cells.Count > 1 Then Exit Sub
>
> If Target.Column = 1 Then
> Columns("B:J").EntireColumn.Hidden = _
> IsError(Application.Match(Target.Value, arr, 0))
> End If
>
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Intersect(Target, Union(Range("A:A"), Range("B:J"))) Is Nothing Then
> Columns("B:J").EntireColumn.Hidden = True
> End If
> End Sub
>