Auto Hide / UnHide range of Columns based on different cell values

[zerlotus]

Hello everyone !!

This is my first post ever in this forum, im really new into vb so my question may be easy to solve but not for me.


Im triying to do this :


Check value of cell A1, if it is 0 , hide columns (H and I) , if not, unhide same columns (H and I).

Check Value of Cell A2, if it is 0 , hide columns (J and K) , if not, unhide same columns (J and K).


And so on..

I want this to change in real time, and ive been triying several formulas but none worked .

Could anyone help me ?

Thank you !!

(I've red tons of post in this forum already)

 

[zerlotus]

This has been the only formula that worked for me :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = 0 Then
        Columns("H:I").EntireColumn.Hidden = True
    Else
        Columns("H:I").EntireColumn.Hidden = False
    End If
End Sub

But i find 2 problems here :

- I dont know how to add consecutive cell check and hide/unhide columns.
- It leaves collumns selected with the blue área if it does not hide them .

Tahnk you