check box value
 

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

Thanks for the quick response!

I added:

With Sheets("Sheet1")
..
..
..
End With

But I still get the "Object Required" error. Could it be a library issue?
Any other suggestion would be welcomed.

"Jim Thomlinson" wrote:

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

Which line is it crashing on?. Where is your checkbox. On a form or embedded
in a sheet or...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

Thanks for the quick response!

I added:

With Sheets("Sheet1")
.
.
.
End With

But I still get the "Object Required" error. Could it be a library issue?
Any other suggestion would be welcomed.

"Jim Thomlinson" wrote:

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

It's crashing on..
If CheckBox3.Value = True Then

From the forms tool bar I selected "checkbox" and drew it on Sheet1.

I've played with that line, removing the ".Value" and found ways to force a
"True" or "False" condition in the code (always True or always False), but I
can't get that condition to change corresponding to the status of the check
box.

I appreciate your help, I'll probably be checking back on Monday.

"Jim Thomlinson" wrote:

Which line is it crashing on?. Where is your checkbox. On a form or embedded
in a sheet or...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

Thanks for the quick response!

I added:

With Sheets("Sheet1")
.
.
.
End With

But I still get the "Object Required" error. Could it be a library issue?
Any other suggestion would be welcomed.

"Jim Thomlinson" wrote:

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

The code that you have (and which I modified) is for a checkbox from the
control toolbox not the forms toolbar. Change the Checkbox and you should be
good to go...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

It's crashing on..
If CheckBox3.Value = True Then

From the forms tool bar I selected "checkbox" and drew it on Sheet1.

I've played with that line, removing the ".Value" and found ways to force a
"True" or "False" condition in the code (always True or always False), but I
can't get that condition to change corresponding to the status of the check
box.

I appreciate your help, I'll probably be checking back on Monday.

"Jim Thomlinson" wrote:

Which line is it crashing on?. Where is your checkbox. On a form or embedded
in a sheet or...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

Thanks for the quick response!

I added:

With Sheets("Sheet1")
.
.
.
End With

But I still get the "Object Required" error. Could it be a library issue?
Any other suggestion would be welcomed.

"Jim Thomlinson" wrote:

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!

check box value
 

Jim, You are the man!! I did not know there was a difference between the
control toolbox and the forms toolbar. I used the control toolbox checkbox
and it worked.

Thanks for your help!

"Jim Thomlinson" wrote:

The code that you have (and which I modified) is for a checkbox from the
control toolbox not the forms toolbar. Change the Checkbox and you should be
good to go...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

It's crashing on..
If CheckBox3.Value = True Then

From the forms tool bar I selected "checkbox" and drew it on Sheet1.

I've played with that line, removing the ".Value" and found ways to force a
"True" or "False" condition in the code (always True or always False), but I
can't get that condition to change corresponding to the status of the check
box.

I appreciate your help, I'll probably be checking back on Monday.

"Jim Thomlinson" wrote:

Which line is it crashing on?. Where is your checkbox. On a form or embedded
in a sheet or...
--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

Thanks for the quick response!

I added:

With Sheets("Sheet1")
.
.
.
End With

But I still get the "Object Required" error. Could it be a library issue?
Any other suggestion would be welcomed.

"Jim Thomlinson" wrote:

Other than being a little long winded I don't see anything desperately wrong
but it depends where this code is. Try explicitly referenceing the sheet
something like this...

Private Sub CheckBox3_Click()
with sheets("Shee1")
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
.Range("D5").Value = "check"
.Range("E5").Value = "box"
.Range("F5").Value = "testing"
.Range("D5").Select
Else
MsgBox "False", , "checkbox3"
.Range("D5").Value = ""
.Range("E5").Value = ""
.Range("F5").Value = ""
.Range("D5").Select
End If
end with
End Sub

--
HTH...

Jim Thomlinson


"Romac Rob" wrote:

I'm trying to write an "IF" statement that checks the status of a check box,
then places text in certain cells accordingly (in Excel 2002). ("ELSE" clears
them.)

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox "True", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = "check"
Range("E5").Select
ActiveCell.FormulaR1C1 = "box"
Range("F5").Select
ActiveCell.FormulaR1C1 = "testing"
Range("D5").Select
Else
MsgBox "False", , "checkbox3"
Range("D5").Select
ActiveCell.FormulaR1C1 = ""
Range("E5").Select
ActiveCell.FormulaR1C1 = ""
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("D5").Select
End If
End Sub

When I click the checkbox I get "Run-time error '424': Object required".
I've reviewed many of the "check box" posts, but can't get the info I need.
Please help!