Hide/Unhide Help

I have been through the search on numerious occasions and can't find an answer. Here is my problem.

I have a sheet for my work load. I want to hide rows that have a blank cell in colum B when a key is pressed. However, I want the rows to unhide when the workbook is opened.

Any help would be greatly appreciated.

Thanks,
Danno

Hi Danno,

If you have a subroutine that will hide/unhide as needed:

Public Sub ToggleRows(rbHide As Boolean)
Dim rng As Range

Set rng = Sheet1.UsedRange.Columns(2).SpecialCells( _
xlCellTypeBlanks)

If Not rng Is Nothing Then
rng.EntireRow.Hidden = rbHide
End If
End Sub

You can call this with a True argument when hiding the rows with blank col
B. You can call this subroutine with a False argument from the
Workbook_Open event subroutine (double-click ThisWorkbook icon and paste in
the following code):

Private Sub Workbook_Open()
ToggleRows False
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]


Danno wrote:
> I have been through the search on numerious occasions and can't find
> an answer. Here is my problem.
>
> I have a sheet for my work load. I want to hide rows that have a blank
> cell in colum B when a key is pressed. However, I want the rows to
> unhide when the workbook is opened.
>
> Any help would be greatly appreciated.
>
> Thanks,
> Danno

Jake,

Thank you for the reply. I am not sure what I am doing wrong. Keep getting exictuable errors.

Danno

Danno,

Danno wrote:
> Thank you for the reply. I am not sure what I am doing wrong. Keep
> getting exictuable errors.

In my example, I used Sheet1 as the worksheet object. You should change
this to Sheets("<yoursheetname>") - other than that, it should work. Can
you post your code and indicate the line that raises the error along with
the error # and description?

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Danno,

Danno wrote:
> Thank you for the reply. I am not sure what I am doing wrong. Keep
> getting exictuable errors.

In my example, I used Sheet1 as the worksheet object. You should change
this to Sheets("<yoursheetname>") - other than that, it should work. Can
you post your code and indicate the line that raises the error along with
the error # and description?

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Danno,

Danno wrote:
> Thank you for the reply. I am not sure what I am doing wrong. Keep
> getting exictuable errors.

In my example, I used Sheet1 as the worksheet object. You should change
this to Sheets("<yoursheetname>") - other than that, it should work. Can
you post your code and indicate the line that raises the error along with
the error # and description?

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]