Basic IsNumeric Function help

seventy9mph · August 22nd, 2010, 01:28 AM

I have made this custom function to check cells B4-B8 to see that they are Numeric. My goal is to use this function in worksheet formulas.
I would like to access this function in my formula via an "if then" statement, i.e. "=if(VCDataNumeric=true,"Do this", "Do that")"

That is my ultimate goal, and not sure how to get it to work correctly. Any pointers would be great!

Code:

Function VCDataNumeric() As Boolean
'   Determines if all entered data in VC boxes are NUMERIC
'   Returns TRUE if all inputs are NUMERIC

Dim PVIstation As Double: PVIstation = Range("B4").Value
Dim PVIelevation As Double: PVIelevation = Range("B5").Value
Dim VClength As Double: VClength = Range("B6").Value
Dim g1 As Double: g1 = Range("B7").Value
Dim g2 As Double: g2 = Range("B8").Value
    If IsNumeric(PVIstation) And IsNumeric(PVIelevation) And IsNumeric(VClength) And IsNumeric(g1) And IsNumeric(g2) Then VCDataNumeric = True
    Else
        VCDataNumeric = False
    End If
End Function

Shasur · August 22nd, 2010, 02:02 AM

Hi

Can you check if data validation (Data-->Validation) cna solve your problem

Cheers
Shasur

seventy9mph · August 22nd, 2010, 02:41 AM

Yes, Data validation would help, however, I have other cells that have formulas that are dependant upon B4-B8 beinge Numeric.
Right now, in those "other" cells with formulas, I have an if-then statement, with isnumber function. I am just trying to make my other cell formulas a bit more readable and shorter.

Also, when I get the function to work, What would be the syntax for the cell formula?

Shasur · August 22nd, 2010, 10:46 AM

I thibk you can then try with Worksheet_Change event. This event gets fired when something gets changed in the cells. You can check for numeric here and can take appropriate action