Hide active column based on cell value from its column

[mortaz111]

Hi guys I'm new here.

I have a work where I input data in each column, but it is pretty hard to keep clicking Tab button to move to the next column. So, my question is, is there any why to to hide a column where when I input a value in one of 2 cells in the column, the column will be hide automatically.

 

[Joe4]

Welcome to the Board!

Right-click on the sheet tab name at the bottom of the screen, select "View Code", and paste this VBA code in the VB Editor window that pops-up:

Private Sub Worksheet_Change(ByVal Target As Range)

'   Exit if updates cell not in cells B6 or B7
    If Intersect(Target, Range("B6:B7")) Is Nothing Then Exit Sub
    
'   Check to see if a value entered
    If Target <> "" Then
'       Hide column B
        Columns("B:B").EntireColumn.Hidden = True
    End If
    
End Sub

As long as you have VBA enabled, this will automatically hide column B if you enter a value in B6 or B7.

 

[mortaz111]

Welcome to the Board!

Right-click on the sheet tab name at the bottom of the screen, select "View Code", and paste this VBA code in the VB Editor window that pops-up:

Private Sub Worksheet_Change(ByVal Target As Range)

'   Exit if updates cell not in cells B6 or B7
    If Intersect(Target, Range("B6:B7")) Is Nothing Then Exit Sub
   
'   Check to see if a value entered
    If Target <> "" Then
'       Hide column B
        Columns("B:B").EntireColumn.Hidden = True
    End If
   
End Sub

As long as you have VBA enabled, this will automatically hide column B if you enter a value in B6 or B7.

Thanks you for welcoming me

Thanks it's work, but when I go to column C and input 1 in C6 or C7 it's not hiding the coloumn anymore. Can it work continuously to the next columns?

 

[bebo021999]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim InputRng As Range
Set InputRng = Range("B6:F7") ' change to actual range
    If Intersect(Target, InputRng) Is Nothing Then Exit Sub
    Target.EntireColumn.Hidden = True
    Target.Offset(0, 1).Select
End Sub

 

[Joe4]

Sorry, didn't realize that you wanted it to work for multiple columns. Thought you just wanted column B.
bebo21999's code should do what you want.

 

[mortaz111]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim InputRng As Range
Set InputRng = Range("B6:F7") ' change to actual range
    If Intersect(Target, InputRng) Is Nothing Then Exit Sub
    Target.EntireColumn.Hidden = True
    Target.Offset(0, 1).Select
End Sub

Thanks you so much, it works

Sorry, didn't realize that you wanted it to work for multiple columns. Thought you just wanted column B.
bebo21999's code should do what you want.

No problem sir, I make a wrong question. Thanks you for your answer