Unhide Columns VBA

[happyhungarian]

Hi, I use the following code to unhide rows incrementally. How can I change it to unhide Columns in the same manner? Example, my hidden columns would be columns C through H

Sub Unhide_Rows()

Dim i as Long

With ActiveSheet
For i = 21 to 35
If .Rows(i).EntireRow.Hidden Then
.Rows(i).EntireRow.Hidden = False
Exit For
End If
Next i
End With

End Sub

 

[alansidman]

Option Explicit


Sub Cols()
    Dim i As Long, lc As Long
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    With ActiveSheet
        For i = 1 To lc
            If .Columns(i).EntireColumn.Hidden Then
                .Columns(i).EntireColumn.Hidden = False
            End If
        Next i
    End With
End Sub

 

[happyhungarian]

Thanks for replying! I'm having trouble making it work though. If my hidden columns begin at Column C do I need to set i = 3? I changed the code to the following but it would simply unhide all columns rather than doing it incrementally (example, when i run the macro it would unhide Column C, if I run it again it unhides Column D, etc)


Sub Cols()
Dim i As Long, lc As Long
lc = Cells(7, Columns.Count).End(xlToLeft).Column
With ActiveSheet
For i = 1 To lc
If .Columns(i).EntireColumn.Hidden Then
.Columns(i).EntireColumn.Hidden = False
End If
Next i
End With
End Sub

 

[shg]

Sub Cols()
  Dim iCol As Long

  For iCol = 10 To 1 Step -1 ' start wherever you like
    If Columns(i).Hidden Then
      Columns(i).Hidden = False
      Exit Sub
    End If
  Next i
End Sub

 

[happyhungarian]

shg I get a "Invalid Next control variable reference" error... I updated the code to say for iCol = 3 since I wanted it to start at C... was that correct?

 

[DanteAmor]

If you do not know the number of a column, you can refer to the letter of the column:

Sub unhide_col()
    Dim u As Long
    For i = Columns("C").Column To Columns("H").Column
        If Columns(i).Hidden Then Columns(i).Hidden = False: Exit For
    Next
End Sub

 

[My Aswer Is This]

If your trying to toggle column C to H from hidden to unhidden:
Try this:

Sub unhide_col()
'Modified  3/19/2019  7:47:39 PM  EDT
Columns(3).Resize(, 6).Hidden = Not Columns(3).Resize(, 6).Hidden
End Sub

 

[shg]

Sorry:

Sub Cols()
  Dim iCol As Long

  For iCol = 10 To 1 Step -1
    If Columns(iCol).Hidden Then
      Columns(iCol).Hidden = False
      Exit Sub
    End If
  Next iCol
End Sub

 

[happyhungarian]

Excellent! That was perfect... thanks

 

[shg]

You're welcome.