Error Indicators in Cells
 

Can the subject error indicators be accessed through VBA & how?

Error Indicators in Cells
 

in excel 97, (e.g. A1 = 0, B1 = 1/A1), in debug window:
?cverr(activesheet.range("b1"))
Error 2007

does this help?
--END

"Trevor" wrote in message ...
Can the subject error indicators be accessed through VBA & how?

Error Indicators in Cells
 

Not really.

What I was trying to access is the error indicators like "The number in
this cell if formatted as text...."

Thanks




*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Error Indicators in Cells
 

Take a look at ErrorCheckingOptions in VBA's help.

From there, you can click on "see also" and go to "Error Object" and see code
like this:


Option Explicit
Sub testme01()
Dim myCell As Range

Set myCell = ActiveSheet.Range("B3")

If myCell.Errors.Item(xlNumberAsText).Value = True Then
MsgBox "Might be an error"
Else
MsgBox "nope, not even a warning"
End If

End Sub


Trevor Fernandes wrote:

Not really.

What I was trying to access is the error indicators like "The number in
this cell if formatted as text...."

Thanks

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson

Error Indicators in Cells
 

Just note that these were added in xl2002 and would not be available in any
earlier version (if you are writing code to distribute).

--
Regards,
Tom Ogilvy

Dave Peterson wrote in message
...
Take a look at ErrorCheckingOptions in VBA's help.

From there, you can click on "see also" and go to "Error Object" and see
code
like this:


Option Explicit
Sub testme01()
Dim myCell As Range

Set myCell = ActiveSheet.Range("B3")

If myCell.Errors.Item(xlNumberAsText).Value = True Then
MsgBox "Might be an error"
Else
MsgBox "nope, not even a warning"
End If

End Sub


Trevor Fernandes wrote:

Not really.

What I was trying to access is the error indicators like "The number in
this cell if formatted as text...."

Thanks

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson

Error Indicators in Cells
 

In the KB article Q291047 it is stated:

Method 1: Use the Error Button
If the cells in which numbers are displayed as text contain an error
indicator in the upper-left corner, follow these steps:
Click the cell that contains the error indicator.
Click the error button next to the cell, and then click Convert to
Number on the shortcut menu

How can I do the same thing through VBA?

Thanks
Trevor



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Error Indicators in Cells
 

One way is to just reset the numberformat to general and plop the value back in
the

Option Explicit
Sub testme01()

With activesheet.Range("b9")
'just test data!
.NumberFormat = "@" 'make it text
.Value = 1234

'do the real work
.NumberFormat = "General"
.Value = .Value

End With

End Sub

Trevor Fernandes wrote:

In the KB article Q291047 it is stated:

Method 1: Use the Error Button
If the cells in which numbers are displayed as text contain an error
indicator in the upper-left corner, follow these steps:
Click the cell that contains the error indicator.
Click the error button next to the cell, and then click Convert to
Number on the shortcut menu

How can I do the same thing through VBA?

Thanks
Trevor

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson