Hide columns based on Cell Value dynamically

[sbala28]

Dear all,

I am very new to VBA. I have a requirement where I need to hide the columns based on the cell values.

For Example, Consider J19, if this is empty then the columns from J to CC should be hidden. Then if K19 is empty, it should hide the columns from K to cc. Likewise, it should check from J19 to CC19. Any help would be much appreciated.

Thank You

 

[Annantj]

Hi Use below mentioned code...

Sub hide_columns()
Dim i As Integer
Dim myrange As Range
Set myrange = Application.InputBox("Please select the complete data", , , , , , , 8)
For i = 10 To 81
If Cells(19, i).Value = "" Then
Range(Cells(19, i), Cells(19, 81)).EntireColumn.Hidden = True
Exit For

End If


Next
End Sub