Hide columns based on values in certain cells

[mabubakerali]

i need macro or whatever solution you people have for the following situation:
in the range g219:gd219 have 0 in that row then hide the column in which that cell is located which have 0, e.g if m219 have value 0 then hide column m and when value changes from 0 then automatically show column back

 

[Michael M]

maybe something like this..

Sub MM1()
Dim lc As Integer
Cells.Columns.Hidden = False
lc = Cells(219, Columns.Count).End(xlToLeft).Column
For c = lc To 1 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

 

[mabubakerali]

maybe something like this..

Sub MM1()
Dim lc As Integer
Cells.Columns.Hidden = False
lc = Cells(219, Columns.Count).End(xlToLeft).Column
For c = lc To 1 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

it hides all columns having values 0 in row 219, i just want to hide columns from g219:gd219

 

[Michael M]

IS gd219 the last column ??
If so

Sub MM1()
Dim lc As Integer
Cells.Columns.Hidden = False
lc = Cells(219, Columns.Count).End(xlToLeft).Column
For c = lc To 7 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

if there are more than "GD" columns use...

Sub MM1()
Cells.Columns.Hidden = False
For c = 180 To 7 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

 

[mabubakerali]

IS gd219 the last column ??
If so

Sub MM1()
Dim lc As Integer
Cells.Columns.Hidden = False
lc = Cells(219, Columns.Count).End(xlToLeft).Column
For c = lc To 7 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

if there are more than "GD" columns use...

Sub MM1()
Cells.Columns.Hidden = False
For c = 180 To 7 Step -1
If Cells(219, c).Value = 0 Then Columns(c).EntireColumn.Hidden = True
Next c
End Sub

Thanks bro you made the day..
THANKS ALOT for your help!