I have created a spreadsheet with check boxes. If the box is not checked, then I want to delete/collapse the rows. How do I create a macro to do this??

Thanks.

What kind of checkboxes - control toolbox toolbar or forms toolbar

--
Regards,
Tom Ogilvy


Cindy wrote in message
...
I have created a spreadsheet with check boxes. If the box is not checked,
then I want to delete/collapse the rows. How do I create a macro to do
this??

Thanks.

Forms toolbar.
Thanks for the reply.


Cindy Johnson

----- Tom Ogilvy wrote: -----

What kind of checkboxes - control toolbox toolbar or forms toolbar

--
Regards,
Tom Ogilvy


Cindy wrote in message
...
I have created a spreadsheet with check boxes. If the box is not checked,
then I want to delete/collapse the rows. How do I create a macro to do
this??
Thanks.

I think I'd use two macros.

The first macro would hide the row (and associated checkbox) and the second
would unhide both the rows and the checkboxes.

Option Explicit
Sub HideRow()
Dim myCBX As CheckBox

For Each myCBX In ActiveSheet.CheckBoxes
With myCBX
.Visible = CBool(.Value = xlOn)
.TopLeftCell.EntireRow.Hidden = CBool(.Value = xlOff)
End With
Next myCBX

End Sub
Sub ShowCBX()
With ActiveSheet
.Rows.Hidden = False
.CheckBoxes.Visible = True
End With
End Sub



Cindy wrote:

Forms toolbar.
Thanks for the reply.

Cindy Johnson

----- Tom Ogilvy wrote: -----

What kind of checkboxes - control toolbox toolbar or forms toolbar

--
Regards,
Tom Ogilvy


Cindy wrote in message
...
I have created a spreadsheet with check boxes. If the box is not checked,
then I want to delete/collapse the rows. How do I create a macro to do
this??
Thanks.




--

Dave Peterson

Thanks Dave! I'll attempt to write this

Cindy Johnso
----- Dave Peterson wrote: ----

I think I'd use two macros

The first macro would hide the row (and associated checkbox) and the secon
would unhide both the rows and the checkboxes

Option Explici
Sub HideRow(
Dim myCBX As CheckBo

For Each myCBX In ActiveSheet.CheckBoxe
With myCB
.Visible = CBool(.Value = xlOn
.TopLeftCell.EntireRow.Hidden = CBool(.Value = xlOff
End Wit
Next myCB

End Su
Sub ShowCBX(
With ActiveShee
.Rows.Hidden = Fals
.CheckBoxes.Visible = Tru
End With
End Su



Cindy wrote
Forms toolbar
Thanks for the reply
Cindy Johnso
----- Tom Ogilvy wrote: ----
What kind of checkboxes - control toolbox toolbar or forms toolba
-
Regards
Tom Ogilv
Cindy wrote in messag
..
I have created a spreadsheet with check boxes. If the box is not checked
then I want to delete/collapse the rows. How do I create a macro to d
this?
Thanks


--

Dave Peterso

Dave
I am attempting to create this macro as you suggested, but I am having a problem see below

Sub HideRow(
Dim myCBX As CheckBo

For Each myCBX In ActiveSheet.CheckBoxe
With myCBX

When I get to this point and hit enter, I get an error message that says "Compile Error: Action will reset your project, proceed anyway

For give my ignorance, but I am no programmer

Please help

Cind


----- Cindy Johnson wrote: ----


Thanks Dave! I'll attempt to write this

Cindy Johnso
----- Dave Peterson wrote: ----

I think I'd use two macros

The first macro would hide the row (and associated checkbox) and the secon
would unhide both the rows and the checkboxes

Option Explici
Sub HideRow(
Dim myCBX As CheckBo

For Each myCBX In ActiveSheet.CheckBoxe
With myCB
.Visible = CBool(.Value = xlOn
.TopLeftCell.EntireRow.Hidden = CBool(.Value = xlOff
End Wit
Next myCB

End Su
Sub ShowCBX(
With ActiveShee
.Rows.Hidden = Fals
.CheckBoxes.Visible = Tru
End With
End Su



Cindy wrote
Forms toolbar
Thanks for the reply
Cindy Johnso
----- Tom Ogilvy wrote: ----
What kind of checkboxes - control toolbox toolbar or forms toolba
-
Regards
Tom Ogilv
Cindy wrote in messag
..
I have created a spreadsheet with check boxes. If the box is not checked
then I want to delete/collapse the rows. How do I create a macro to d
this?
Thanks


--

Dave Peterso