hide or unhide rows with button

Sometimes you can just record a macro while you do it manually.

I got this when I showed the view named Test1.

Option Explicit
Sub Macro1()
ActiveWorkbook.CustomViews("test1").Show
End Sub


Behind a commandbutton from the control toolbox toolbar:

Option Explicit
Private Sub CommandButton1_Click()
Me.Parent.CustomViews("test1").Show
End Sub

Me is the worksheet that owns the code (and button). Me.Parent is the workbook.

Bea wrote:
>
> Gord - Thanks for your help. Can you use a button with the Custom Views? I
> could not figure that one out.
>
> "Gord Dibben" wrote:
>
> > Bea
> >
> > There is also Views>Custom Views if you don't want to go the macro route.
> >
> >
> > Gord Dibben Excel MVP
> >
> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
> >
> > >This was perfect Dave! Thank you so much!
> > >
> > >"Dave Peterson" wrote:
> > >
> > >> You could put a button from the control toolbox toolbar on that worksheet.
> > >> Double click on that button and you'll see where the code goes.
> > >>
> > >> Paste this in that window and end up with something that looks like this.
> > >>
> > >> Option Explicit
> > >> Private Sub CommandButton1_Click()
> > >> Dim myRng As Range
> > >>
> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
> > >>
> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
> > >>
> > >> End Sub
> > >>
> > >> Adjust the range you want to hide/show
> > >>
> > >> If you're new to macros, you may want to read David McRitchie's intro at:
> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
> > >>
> > >>
> > >> Bea wrote:
> > >> >
> > >> > I want to group rows together and have a quick expand/collapse button on the
> > >> > sheet itself. I see the group/outline function but do not like the display of
> > >> > the expand/collapse in the left side of the rows.
> > >>
> > >> --
> > >>
> > >> Dave Peterson
> > >>
> >
> >

--

Dave Peterson

Dave

My custom views suggestion was only if Bea didn't want to use macros.

If using macros, better off to go with the toggle macro you first posted.


Gord Dibben Excel MVP

On Tue, 29 Nov 2005 16:55:36 -0600, Dave Peterson <petersod@verizonXSPAM.net>
wrote:

>Sometimes you can just record a macro while you do it manually.
>
>I got this when I showed the view named Test1.
>
>Option Explicit
>Sub Macro1()
> ActiveWorkbook.CustomViews("test1").Show
>End Sub
>
>
>Behind a commandbutton from the control toolbox toolbar:
>
>Option Explicit
>Private Sub CommandButton1_Click()
> Me.Parent.CustomViews("test1").Show
>End Sub
>
>Me is the worksheet that owns the code (and button). Me.Parent is the workbook.
>
>Bea wrote:
>>
>> Gord - Thanks for your help. Can you use a button with the Custom Views? I
>> could not figure that one out.
>>
>> "Gord Dibben" wrote:
>>
>> > Bea
>> >
>> > There is also Views>Custom Views if you don't want to go the macro route.
>> >
>> >
>> > Gord Dibben Excel MVP
>> >
>> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
>> >
>> > >This was perfect Dave! Thank you so much!
>> > >
>> > >"Dave Peterson" wrote:
>> > >
>> > >> You could put a button from the control toolbox toolbar on that worksheet.
>> > >> Double click on that button and you'll see where the code goes.
>> > >>
>> > >> Paste this in that window and end up with something that looks like this.
>> > >>
>> > >> Option Explicit
>> > >> Private Sub CommandButton1_Click()
>> > >> Dim myRng As Range
>> > >>
>> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
>> > >>
>> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
>> > >>
>> > >> End Sub
>> > >>
>> > >> Adjust the range you want to hide/show
>> > >>
>> > >> If you're new to macros, you may want to read David McRitchie's intro at:
>> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>> > >>
>> > >>
>> > >> Bea wrote:
>> > >> >
>> > >> > I want to group rows together and have a quick expand/collapse button on the
>> > >> > sheet itself. I see the group/outline function but do not like the display of
>> > >> > the expand/collapse in the left side of the rows.
>> > >>
>> > >> --
>> > >>
>> > >> Dave Peterson
>> > >>
>> >
>> >

Ah, but your suggestion also works if Bea wants to set up the workbook the way
Bea wants and then use a button to show that view.

It might be a combination solution that works best for Bea.

Gord Dibben wrote:
>
> Dave
>
> My custom views suggestion was only if Bea didn't want to use macros.
>
> If using macros, better off to go with the toggle macro you first posted.
>
> Gord Dibben Excel MVP
>
> On Tue, 29 Nov 2005 16:55:36 -0600, Dave Peterson <petersod@verizonXSPAM.net>
> wrote:
>
> >Sometimes you can just record a macro while you do it manually.
> >
> >I got this when I showed the view named Test1.
> >
> >Option Explicit
> >Sub Macro1()
> > ActiveWorkbook.CustomViews("test1").Show
> >End Sub
> >
> >
> >Behind a commandbutton from the control toolbox toolbar:
> >
> >Option Explicit
> >Private Sub CommandButton1_Click()
> > Me.Parent.CustomViews("test1").Show
> >End Sub
> >
> >Me is the worksheet that owns the code (and button). Me.Parent is the workbook.
> >
> >Bea wrote:
> >>
> >> Gord - Thanks for your help. Can you use a button with the Custom Views? I
> >> could not figure that one out.
> >>
> >> "Gord Dibben" wrote:
> >>
> >> > Bea
> >> >
> >> > There is also Views>Custom Views if you don't want to go the macro route.
> >> >
> >> >
> >> > Gord Dibben Excel MVP
> >> >
> >> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
> >> >
> >> > >This was perfect Dave! Thank you so much!
> >> > >
> >> > >"Dave Peterson" wrote:
> >> > >
> >> > >> You could put a button from the control toolbox toolbar on that worksheet.
> >> > >> Double click on that button and you'll see where the code goes.
> >> > >>
> >> > >> Paste this in that window and end up with something that looks like this.
> >> > >>
> >> > >> Option Explicit
> >> > >> Private Sub CommandButton1_Click()
> >> > >> Dim myRng As Range
> >> > >>
> >> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
> >> > >>
> >> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
> >> > >>
> >> > >> End Sub
> >> > >>
> >> > >> Adjust the range you want to hide/show
> >> > >>
> >> > >> If you're new to macros, you may want to read David McRitchie's intro at:
> >> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
> >> > >>
> >> > >>
> >> > >> Bea wrote:
> >> > >> >
> >> > >> > I want to group rows together and have a quick expand/collapse button on the
> >> > >> > sheet itself. I see the group/outline function but do not like the display of
> >> > >> > the expand/collapse in the left side of the rows.
> >> > >>
> >> > >> --
> >> > >>
> >> > >> Dave Peterson
> >> > >>
> >> >
> >> >

--

Dave Peterson

I find it just as easy to drag the Custom Views drop-down to a Toolbar and
select a view from there.

But, that's me, not Bea.


Gord


On Tue, 29 Nov 2005 17:24:03 -0600, Dave Peterson <petersod@verizonXSPAM.net>
wrote:

>Ah, but your suggestion also works if Bea wants to set up the workbook the way
>Bea wants and then use a button to show that view.
>
>It might be a combination solution that works best for Bea.
>
>Gord Dibben wrote:
>>
>> Dave
>>
>> My custom views suggestion was only if Bea didn't want to use macros.
>>
>> If using macros, better off to go with the toggle macro you first posted.
>>
>> Gord Dibben Excel MVP
>>
>> On Tue, 29 Nov 2005 16:55:36 -0600, Dave Peterson <petersod@verizonXSPAM.net>
>> wrote:
>>
>> >Sometimes you can just record a macro while you do it manually.
>> >
>> >I got this when I showed the view named Test1.
>> >
>> >Option Explicit
>> >Sub Macro1()
>> > ActiveWorkbook.CustomViews("test1").Show
>> >End Sub
>> >
>> >
>> >Behind a commandbutton from the control toolbox toolbar:
>> >
>> >Option Explicit
>> >Private Sub CommandButton1_Click()
>> > Me.Parent.CustomViews("test1").Show
>> >End Sub
>> >
>> >Me is the worksheet that owns the code (and button). Me.Parent is the workbook.
>> >
>> >Bea wrote:
>> >>
>> >> Gord - Thanks for your help. Can you use a button with the Custom Views? I
>> >> could not figure that one out.
>> >>
>> >> "Gord Dibben" wrote:
>> >>
>> >> > Bea
>> >> >
>> >> > There is also Views>Custom Views if you don't want to go the macro route.
>> >> >
>> >> >
>> >> > Gord Dibben Excel MVP
>> >> >
>> >> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
>> >> >
>> >> > >This was perfect Dave! Thank you so much!
>> >> > >
>> >> > >"Dave Peterson" wrote:
>> >> > >
>> >> > >> You could put a button from the control toolbox toolbar on that worksheet.
>> >> > >> Double click on that button and you'll see where the code goes.
>> >> > >>
>> >> > >> Paste this in that window and end up with something that looks like this.
>> >> > >>
>> >> > >> Option Explicit
>> >> > >> Private Sub CommandButton1_Click()
>> >> > >> Dim myRng As Range
>> >> > >>
>> >> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
>> >> > >>
>> >> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
>> >> > >>
>> >> > >> End Sub
>> >> > >>
>> >> > >> Adjust the range you want to hide/show
>> >> > >>
>> >> > >> If you're new to macros, you may want to read David McRitchie's intro at:
>> >> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>> >> > >>
>> >> > >>
>> >> > >> Bea wrote:
>> >> > >> >
>> >> > >> > I want to group rows together and have a quick expand/collapse button on the
>> >> > >> > sheet itself. I see the group/outline function but do not like the display of
>> >> > >> > the expand/collapse in the left side of the rows.
>> >> > >>
>> >> > >> --
>> >> > >>
>> >> > >> Dave Peterson
>> >> > >>
>> >> >
>> >> >

I agree with you--but if Bea wanted a button...

But you are a poet!

> But, that's me, not Bea.

Gord Dibben wrote:
>
> I find it just as easy to drag the Custom Views drop-down to a Toolbar and
> select a view from there.
>
> But, that's me, not Bea.
>
> Gord
>
> On Tue, 29 Nov 2005 17:24:03 -0600, Dave Peterson <petersod@verizonXSPAM.net>
> wrote:
>
> >Ah, but your suggestion also works if Bea wants to set up the workbook the way
> >Bea wants and then use a button to show that view.
> >
> >It might be a combination solution that works best for Bea.
> >
> >Gord Dibben wrote:
> >>
> >> Dave
> >>
> >> My custom views suggestion was only if Bea didn't want to use macros.
> >>
> >> If using macros, better off to go with the toggle macro you first posted.
> >>
> >> Gord Dibben Excel MVP
> >>
> >> On Tue, 29 Nov 2005 16:55:36 -0600, Dave Peterson <petersod@verizonXSPAM.net>
> >> wrote:
> >>
> >> >Sometimes you can just record a macro while you do it manually.
> >> >
> >> >I got this when I showed the view named Test1.
> >> >
> >> >Option Explicit
> >> >Sub Macro1()
> >> > ActiveWorkbook.CustomViews("test1").Show
> >> >End Sub
> >> >
> >> >
> >> >Behind a commandbutton from the control toolbox toolbar:
> >> >
> >> >Option Explicit
> >> >Private Sub CommandButton1_Click()
> >> > Me.Parent.CustomViews("test1").Show
> >> >End Sub
> >> >
> >> >Me is the worksheet that owns the code (and button). Me.Parent is the workbook.
> >> >
> >> >Bea wrote:
> >> >>
> >> >> Gord - Thanks for your help. Can you use a button with the Custom Views? I
> >> >> could not figure that one out.
> >> >>
> >> >> "Gord Dibben" wrote:
> >> >>
> >> >> > Bea
> >> >> >
> >> >> > There is also Views>Custom Views if you don't want to go the macro route.
> >> >> >
> >> >> >
> >> >> > Gord Dibben Excel MVP
> >> >> >
> >> >> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
> >> >> >
> >> >> > >This was perfect Dave! Thank you so much!
> >> >> > >
> >> >> > >"Dave Peterson" wrote:
> >> >> > >
> >> >> > >> You could put a button from the control toolbox toolbar on that worksheet.
> >> >> > >> Double click on that button and you'll see where the code goes.
> >> >> > >>
> >> >> > >> Paste this in that window and end up with something that looks like this.
> >> >> > >>
> >> >> > >> Option Explicit
> >> >> > >> Private Sub CommandButton1_Click()
> >> >> > >> Dim myRng As Range
> >> >> > >>
> >> >> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
> >> >> > >>
> >> >> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
> >> >> > >>
> >> >> > >> End Sub
> >> >> > >>
> >> >> > >> Adjust the range you want to hide/show
> >> >> > >>
> >> >> > >> If you're new to macros, you may want to read David McRitchie's intro at:
> >> >> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
> >> >> > >>
> >> >> > >>
> >> >> > >> Bea wrote:
> >> >> > >> >
> >> >> > >> > I want to group rows together and have a quick expand/collapse button on the
> >> >> > >> > sheet itself. I see the group/outline function but do not like the display of
> >> >> > >> > the expand/collapse in the left side of the rows.
> >> >> > >>
> >> >> > >> --
> >> >> > >>
> >> >> > >> Dave Peterson
> >> >> > >>
> >> >> >
> >> >> >

--

Dave Peterson

Me - Bea - appreciates your help! I have learned a couple of new things! :-)

"Dave Peterson" wrote:

> I agree with you--but if Bea wanted a button...
>
> But you are a poet!
>
> > But, that's me, not Bea.
>
> Gord Dibben wrote:
> >
> > I find it just as easy to drag the Custom Views drop-down to a Toolbar and
> > select a view from there.
> >
> > But, that's me, not Bea.
> >
> > Gord
> >
> > On Tue, 29 Nov 2005 17:24:03 -0600, Dave Peterson <petersod@verizonXSPAM.net>
> > wrote:
> >
> > >Ah, but your suggestion also works if Bea wants to set up the workbook the way
> > >Bea wants and then use a button to show that view.
> > >
> > >It might be a combination solution that works best for Bea.
> > >
> > >Gord Dibben wrote:
> > >>
> > >> Dave
> > >>
> > >> My custom views suggestion was only if Bea didn't want to use macros.
> > >>
> > >> If using macros, better off to go with the toggle macro you first posted.
> > >>
> > >> Gord Dibben Excel MVP
> > >>
> > >> On Tue, 29 Nov 2005 16:55:36 -0600, Dave Peterson <petersod@verizonXSPAM.net>
> > >> wrote:
> > >>
> > >> >Sometimes you can just record a macro while you do it manually.
> > >> >
> > >> >I got this when I showed the view named Test1.
> > >> >
> > >> >Option Explicit
> > >> >Sub Macro1()
> > >> > ActiveWorkbook.CustomViews("test1").Show
> > >> >End Sub
> > >> >
> > >> >
> > >> >Behind a commandbutton from the control toolbox toolbar:
> > >> >
> > >> >Option Explicit
> > >> >Private Sub CommandButton1_Click()
> > >> > Me.Parent.CustomViews("test1").Show
> > >> >End Sub
> > >> >
> > >> >Me is the worksheet that owns the code (and button). Me.Parent is the workbook.
> > >> >
> > >> >Bea wrote:
> > >> >>
> > >> >> Gord - Thanks for your help. Can you use a button with the Custom Views? I
> > >> >> could not figure that one out.
> > >> >>
> > >> >> "Gord Dibben" wrote:
> > >> >>
> > >> >> > Bea
> > >> >> >
> > >> >> > There is also Views>Custom Views if you don't want to go the macro route.
> > >> >> >
> > >> >> >
> > >> >> > Gord Dibben Excel MVP
> > >> >> >
> > >> >> > On Tue, 29 Nov 2005 13:18:06 -0800, Bea <Bea@discussions.microsoft.com> wrote:
> > >> >> >
> > >> >> > >This was perfect Dave! Thank you so much!
> > >> >> > >
> > >> >> > >"Dave Peterson" wrote:
> > >> >> > >
> > >> >> > >> You could put a button from the control toolbox toolbar on that worksheet.
> > >> >> > >> Double click on that button and you'll see where the code goes.
> > >> >> > >>
> > >> >> > >> Paste this in that window and end up with something that looks like this.
> > >> >> > >>
> > >> >> > >> Option Explicit
> > >> >> > >> Private Sub CommandButton1_Click()
> > >> >> > >> Dim myRng As Range
> > >> >> > >>
> > >> >> > >> Set myRng = Me.Range("a3:a5,a7:a19,a22:a33")
> > >> >> > >>
> > >> >> > >> myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
> > >> >> > >>
> > >> >> > >> End Sub
> > >> >> > >>
> > >> >> > >> Adjust the range you want to hide/show
> > >> >> > >>
> > >> >> > >> If you're new to macros, you may want to read David McRitchie's intro at:
> > >> >> > >> http://www.mvps.org/dmcritchie/excel/getstarted.htm
> > >> >> > >>
> > >> >> > >>
> > >> >> > >> Bea wrote:
> > >> >> > >> >
> > >> >> > >> > I want to group rows together and have a quick expand/collapse button on the
> > >> >> > >> > sheet itself. I see the group/outline function but do not like the display of
> > >> >> > >> > the expand/collapse in the left side of the rows.
> > >> >> > >>
> > >> >> > >> --
> > >> >> > >>
> > >> >> > >> Dave Peterson
> > >> >> > >>
> > >> >> >
> > >> >> >
>
> --
>
> Dave Peterson
>