I have a row of info, at the end of the row is a Check box. I would like to
be able to check the box and the information in that row automatically move
to another work sheet. Also, when the info has moved to the other worksheet,
I would like to be able to uncheck the check box an the infor move back to
the original worksheet. Can anyone help? Not sure what formula or how to
set this up.
--
grgrgr

Is the CheckBox from "Forms" or "Control Toolbox" toolbar? They look the
same but are accessed differently and have different properties. If you move
the mouse to a Forms checkbox the pointer will change to a hand and a
right-click will bring a pop-up menu. A Control Toolbox object will do
neither.

Mike F
"Sherm" wrote in message
...
I have a row of info, at the end of the row is a Check box. I would like
to
be able to check the box and the information in that row automatically
move
to another work sheet. Also, when the info has moved to the other
worksheet,
I would like to be able to uncheck the check box an the infor move back to
the original worksheet. Can anyone help? Not sure what formula or how to
set this up.
--
grgrgr

Here is the code for a Control checkbox:

Private Sub CheckBox1_Click()
Dim cbRow As Long

cbRow = Sheet1.CheckBox1.BottomRightCell.Row - 1
If Sheet1.CheckBox1.Value = True Then
Sheet1.Rows(cbRow).Copy Destination:=Sheet2.Rows(cbRow)
Sheet1.Rows(cbRow).ClearContents
ElseIf Sheet1.CheckBox1.Value = False Then
Sheet2.Rows(cbRow).Copy Destination:=Sheet1.Rows(cbRow)
Sheet2.Rows(cbRow).ClearContents
End If
End Sub


Mike F

"Mike Fogleman" wrote in message
...
Is the CheckBox from "Forms" or "Control Toolbox" toolbar? They look the
same but are accessed differently and have different properties. If you
move the mouse to a Forms checkbox the pointer will change to a hand and a
right-click will bring a pop-up menu. A Control Toolbox object will do
neither.

Mike F
"Sherm" wrote in message
...
I have a row of info, at the end of the row is a Check box. I would like
to
be able to check the box and the information in that row automatically
move
to another work sheet. Also, when the info has moved to the other
worksheet,
I would like to be able to uncheck the check box an the infor move back
to
the original worksheet. Can anyone help? Not sure what formula or how
to
set this up.
--
grgrgr

Mike, I used your code to copy a column from one sheet to another if the
checkbox (from controls toolbar) is checked. I have several checkboxes so
that various columns which represent results of various scenarios and have
made them all work by changing the number behind the BottomRightCell.Row
command from -1, -2...

Everything works great except that I do not understand how the number behing
the BottomRightCell.Row command works. If it is set to 0 it will copy the
contents of row I. Why is I = 0?

Thanks Mike

"Mike Fogleman" wrote:

Here is the code for a Control checkbox:

Private Sub CheckBox1_Click()
Dim cbRow As Long

cbRow = Sheet1.CheckBox1.BottomRightCell.Row - 1
If Sheet1.CheckBox1.Value = True Then
Sheet1.Rows(cbRow).Copy Destination:=Sheet2.Rows(cbRow)
Sheet1.Rows(cbRow).ClearContents
ElseIf Sheet1.CheckBox1.Value = False Then
Sheet2.Rows(cbRow).Copy Destination:=Sheet1.Rows(cbRow)
Sheet2.Rows(cbRow).ClearContents
End If
End Sub


Mike F

"Mike Fogleman" wrote in message
...
Is the CheckBox from "Forms" or "Control Toolbox" toolbar? They look the
same but are accessed differently and have different properties. If you
move the mouse to a Forms checkbox the pointer will change to a hand and a
right-click will bring a pop-up menu. A Control Toolbox object will do
neither.

Mike F
"Sherm" wrote in message
...
I have a row of info, at the end of the row is a Check box. I would like
to
be able to check the box and the information in that row automatically
move
to another work sheet. Also, when the info has moved to the other
worksheet,
I would like to be able to uncheck the check box an the infor move back
to
the original worksheet. Can anyone help? Not sure what formula or how
to
set this up.
--
grgrgr