Hiding Columns

[Guest]

Is there a piece of VBA code that will allow me to run a macro at a push of a
button that will hide or unhide columns in a workbook dependant on a given
criteria in say row A ?
For example if columns A, B, C & F, & H has a “1†in then leave and if
columns D, E, & G has a “2†then ‘hide’ ?

Many thanks

Andy

 

[RC-]

Sub HideColumns()

Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = 2 Then
Selection.EntireColumn.Hidden = True
End If

ActiveCell.Offset(ColumnOffset:=1).Activate
Loop

Range("A1").Select

End Sub

HTH
RC-

 

[N10]

Hi
This might be a little faster for you

Sub Hidetwo()


Application.ScreenUpdating = False

Dim task As Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Set task = Selection
For Each cell In task
If cell.Value = "2" Then cell.EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True


End Sub

 

[Guest]

thank you both !!

Hi
This might be a little faster for you

Sub Hidetwo()


Application.ScreenUpdating = False

Dim task As Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Set task = Selection
For Each cell In task
If cell.Value = "2" Then cell.EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True


End Sub

 

[Guest]

Hi N10,

This code works great, but it only works on the worksheet I'm currently
viewing. How could I get to do the entire workbook (approx. 85 worksheets)?