VBA using an image as a toggle switch

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DonH - 09 Nov 2006 08:32 GMT

Hi hope you can help.

I know next to nothing about VBA and have adapted code below from stuff I
had.

I simply want to show hide portions of my page to cut down on screen
clutter/information overload.

I have assigned my macro to a screen image but was wondering if I could have
a hide and unhide under the same button.

Any help would be much appreciated

Call Unl
Application.ScreenUpdating = False
Rows("25:75").EntireRow.Hidden = True
Rows("98:148").EntireRow.Hidden = True
Rows("171:221").EntireRow.Hidden = True
Rows("244:294").EntireRow.Hidden = True
Rows("317:367").EntireRow.Hidden = True
Range("K4").Select
Calculate
Call Pro

DonH

Reply to this Message

Bob Phillips - 09 Nov 2006 09:43 GMT

Call Unl
Application.ScreenUpdating = False
Rows("25:75").EntireRow.Hidden = Not Rows("25:75").EntireRow.Hidden
Rows("98:148").EntireRow.Hidden = Not Rows("98:148").EntireRow.Hidden
Rows("244:294").EntireRow.Hidden = Not Rows("244:294").EntireRow.Hidden
Rows("317:367").EntireRow.Hidden = Not Rows("317:367").EntireRow.Hidden
Range("K4").Select
Calculate
Call Pro

Signature

HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

> Hi hope you can help.
>
[quoted text clipped - 21 lines]
>
> DonH

Reply to this Message

DonH - 09 Nov 2006 10:29 GMT

Thanks Bob :-) That worked fantastically. I really am going to have to
learn VBA

Many thanks

DonH

> Call Unl
> Application.ScreenUpdating = False
[quoted text clipped - 32 lines]
>>
>> DonH

Reply to this Message

Dana DeLouis - 09 Nov 2006 14:08 GMT

Just an additional idea...

With Range("25:75,98:148,244:294,317:367").EntireRow
.Hidden = Not .Hidden
End With

Signature

Dana DeLouis
Windows XP & Office 2003

> Thanks Bob :-) That worked fantastically. I really am going to have to
> learn VBA
[quoted text clipped - 40 lines]
>>>
>>> DonH

Reply to this Message

Rate this thread: