hide/unhide blank rows with VBA

[natedog]

I am struggling to come up with a vba code that allows me to search column B, Rows 21:89 for blanks then hide/unhide the associated row. I would like it to be one macro so that I don't have to have two buttons on the sheet to hide/unhide.

 

[timfritsch]

Try:

Sub test()
  Dim i As Long
  
  Application.ScreenUpdating = False
  
  For i = 21 To 89
    If IsEmpty(Cells(i, 2)) Then
      Rows(i).Hidden = True
    Else
      Rows(i).Hidden = False
    End If
  Next i
  
  Application.ScreenUpdating = True
End Sub

Tim

 

[Smitty]

Welcome to the Board!

Why not use AutoFilter?

 

[natedog]

Try:

Sub test()
  Dim i As Long
  
  Application.ScreenUpdating = False
  
  For i = 21 To 89
    If IsEmpty(Cells(i, 2)) Then
      Rows(i).Hidden = True
    Else
      Rows(i).Hidden = False
    End If
  Next i
  
  Application.ScreenUpdating = True
End Sub

Tim

Thanks Tim.
It works great to Hide the rows. Is there a way to click the same button to unhide the same rows?

 

[rpaulson]

this should toggle them hidden \un hidden

Range("21:89").EntireRow.Hidden = Not Range("21:89").EntireRow.Hidden

hth,

Ross

 

[natedog]

this should toggle them hidden \un hidden

Range("21:89").EntireRow.Hidden = Not Range("21:89").EntireRow.Hidden

hth,

Ross

It works to toggle all the rows but it isn't dependent on the cells in column "B" being blank.

After playing around with Tim's code, I would like to combine yours and his and include Column "A" along with Column "B".