combobox - default value

[Guest]

ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value

this value is unaceptable if "23.000456782" or such. If something like this
then reject and default to Sheet1.Range("N43"). If like "Msjdh-dgets" OK

If ComboBox1.Value = "what do I put here" Then ComboBox1.Value =
Sheet1.Range("N43")

 

[Rick Rothstein \(MVP - VB\)]

ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value

this value is unaceptable if "23.000456782" or such. If something like
this
then reject and default to Sheet1.Range("N43"). If like "Msjdh-dgets" OK

If ComboBox1.Value = "what do I put here" Then ComboBox1.Value =
Sheet1.Range("N43")

Your example is not complete enough. Are you rejecting ALL numbers? Only
numbers of certain type or shape? Is there anything besides numbers that are
to be rejected?

Rick

 

[Guest]

ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value
If IsNumeric(ComboBox1.Value) Then ComboBox1.Value = Sheet1.Range("N43")

Thanks Rick, for your interest. Took about a hour, I knew it was there
somewhere.