Cell validations

[Nikhil2803]

I have a written a script in VBA. while checking a CheckBox, it should check if respective cells(D26,D27,D28) have numerical value or not. The below code is working if I am writing values under/or 10000. If I am giving some larger values, its not working. Please help me how to achieve this.

Function ab_chkbox_Click()
If Range("ab_indicator").Value = True And Range("D26").Value And Range("D27").Value And Range("D28").Value Then

Range("ab0indicator").Value = True

 

[Joe4]

Try changing this part:

Range("D26").Value And Range("D27").Value And Range("D28").Value

to this:

IsNumeric(Range("D26")) And IsNumeric(Range("D27")) And IsNumeric(Range("D28"))

If that does not work, that tells me that at least one of those three values is actually entered as text and not as a valid number.

 

[Nikhil2803]

Try changing this part:

Range("D26").Value And Range("D27").Value And Range("D28").Value

to this:

IsNumeric(Range("D26")) And IsNumeric(Range("D27")) And IsNumeric(Range("D28"))

If that does not work, that tells me that at least one of those three values is actually entered as text and not as a valid number.

Thanks for the input. This is working if any of the filed mentioned contains text value. It is not working if the cell is empty.

 

[Nikhil2803]

Thanks for the input. This is working if any of the filed mentioned contains text value. It is not working if the cell is empty.

I added And Not IsEmpty(Range("D44")), its working now