Checking conditions before enabling a checkbox

[Nikhil2803]

I have a checkbox at A5 place. Whenever I want to click on the checkbox, it should check if B5,B6 and B7 contains numeric value. If the conditions meet, then only checkbox should be checked, else user should get a popup that you need to fill B5, B6 and B7 first.
I am using the below code snippets, but it is not working

Function volbl_unitsof_chkbox_Click()

If IsNumeric(Range("D14").Value) > 0 And IsNumeric(Range("D15").Value) > 0 And IsNumeric(Range("D16").Value) > 0 Then
'Range("vbl_unitsof_indicator").Value = True'
volbl_unitsof_chkbox.Enabled = True

Else
Resp1 = MsgBox("Please enter the Units Of amount, maximum amount and Guarentee Issue value ")
If Resp1 = 1 Then
volbl_unitsof_chkbox.Enabled = False
End If

End If
End Function

Can some one please help how to achieve this.

 

[Nikhil2803]

I have a checkbox at A5 place. Whenever I want to click on the checkbox, it should check if B5,B6 and B7 contains numeric value. If the conditions meet, then only checkbox should be checked, else user should get a popup that you need to fill B5, B6 and B7 first.
I am using the below code snippets, but it is not working

Function volbl_unitsof_chkbox_Click()

If IsNumeric(Range("D14").Value) > 0 And IsNumeric(Range("D15").Value) > 0 And IsNumeric(Range("D16").Value) > 0 Then
'Range("vbl_unitsof_indicator").Value = True'
volbl_unitsof_chkbox.Enabled = True

Else
Resp1 = MsgBox("Please enter the Units Of amount, maximum amount and Guarentee Issue value ")
If Resp1 = 1 Then
volbl_unitsof_chkbox.Enabled = False
End If

End If
End Function

Can some one please help how to achieve this.

I have a checkbox at A5 place. Whenever I want to click on the checkbox, it should check if B5,B6 and B7 contains numeric value. If the conditions meet, then only checkbox should be checked, else user should get a popup that you need to fill B5, B6 and B7 first.
I am using the below code snippets, but it is not working

Function volbl_unitsof_chkbox_Click()

If IsNumeric(Range("D14").Value) > 0 And IsNumeric(Range("D15").Value) > 0 And IsNumeric(Range("D16").Value) > 0 Then
'Range("vbl_unitsof_indicator").Value = True'
volbl_unitsof_chkbox.Enabled = True

Else
Resp1 = MsgBox("Please enter the Units Of amount, maximum amount and Guarentee Issue value ")
If Resp1 = 1 Then
volbl_unitsof_chkbox.Enabled = False
End If

End If
End Function

Can some one please help how to achieve this.

I added the below..

Function volbl_unitsof_chkbox_Click()

If Range("vbl_unitsof_indicator").Value = True And Range("D14").Value And Range("D15").Value And Range("D16").Value Then

volbl_unitsof_chkbox.Enabled = True

ElseIf Range("vbl_unitsof_indicator").Value = False And Range("D14").Value And Range("D15").Value And Range("D16").Value Then

volbl_unitsof_chkbox.Enabled = False

Else
Resp1 = MsgBox("Please enter the Units Of amount, maximum amount and Guarentee Issue value ")
If Resp1 = 1 Then
Range("vbl_unitsof_indicator").Value = False
End If

End If

End Function

still getting Object required error

 

[Micron]

Please post code within code tags (use vba button on posting toolbar) to maintain indentation and readability. Also, always indicate which line causes an error when stating what the error is. You can use code comments to indicate that.

If you want to know if a cell is numeric, that is the only test you need. I think you are confusing .Value with what that function returns, which is True or False, which just happens to be -1 or 0. If you want to ensure that the value is a number and is greater than zero, that is two tests. That may be why it is "not working" as per your first post, or you might have meant you were getting the same error then as now. Please be clear on what "not working" means as it is of no help to anyone who would try to help you. I also suspect that it is your range reference that is the problem. Provide the full reference and see if that fixes the object error, e.g.
If Sheets("4").range("B1") Then ...

 

[Nikhil2803]

Please post code within code tags (use vba button on posting toolbar) to maintain indentation and readability. Also, always indicate which line causes an error when stating what the error is. You can use code comments to indicate that.

If you want to know if a cell is numeric, that is the only test you need. I think you are confusing .Value with what that function returns, which is True or False, which just happens to be -1 or 0. If you want to ensure that the value is a number and is greater than zero, that is two tests. That may be why it is "not working" as per your first post, or you might have meant you were getting the same error then as now. Please be clear on what "not working" means as it is of no help to anyone who would try to help you. I also suspect that it is your range reference that is the problem. Provide the full reference and see if that fixes the object error, e.g.
If Sheets("4").range("B1") Then ...

Thank you for the inputs. I have fixed the issue. The checkbox.Enabled was causing the error. It is working now.