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


--
Danno
------------------------------------------------------------------------
Danno's Profile: http://www.excelforum.com/member.php...o&userid=10044
View this thread: http://www.excelforum.com/showthread...hreadid=564922

Hide/Unhide Help
 

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

Hide/Unhide Help
 

Jake,

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

Dann

--
Dann
-----------------------------------------------------------------------
Danno's Profile: http://www.excelforum.com/member.php...fo&userid=1004
View this thread: http://www.excelforum.com/showthread.php?threadid=56492

Hide/Unhide Help
 

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]