Reading a cell with a Run-time error '6'

[USAMax]

I am reading imported data that occasionally separates a conformation number into its own cell. Thus when I read it I get the dreaded, "Run-time error '6'".

If I know it is a number and the previous cell ends with, "Confirmation #:" or, "confirmation number is" then I can handle it. But I cannot test if it is numeric and IsError(Cells(CurRow + 1, 1)) returns FALSE.

How do I test for the Run-time error '6'?

Here are some of the values in the cells I am dealing with:
30872268079
30042067910
530560067953

 

[myall_blues]

The usual way to handle it would be something like this:

Sub HandleError6()
    Dim x As Long
    On Error Resume Next
    '
    ' Comment/uncomment the two lines below to test both parts of the IF statement
    x = 2000 * 365    ' Generates a type 6 error
    'x = CLng(2000) * 365    ' Does not generate a type 6 error
    '
    If Err.Number = 6 Then
        '
        ' Handle the type 6 error as appropriate
        '
        MsgBox "Type 6 error occurred"
        Err.Clear
        On Error GoTo 0
    Else
        On Error GoTo 0
        '
        ' No error - Do what you normally do for all the other numbers
        '
        MsgBox "Proceeding normally"
    End If
End Sub

 

[RoryA]

Thus when I read it I get the dreaded, "Run-time error '6'"

How are you reading it? What is the code?

 

[USAMax]

The usual way to handle it would be something like this:

Sub HandleError6()
    Dim x As Long
    On Error Resume Next
    '
    ' Comment/uncomment the two lines below to test both parts of the IF statement
    x = 2000 * 365    ' Generates a type 6 error
    'x = CLng(2000) * 365    ' Does not generate a type 6 error
    '
    If Err.Number = 6 Then
        '
        ' Handle the type 6 error as appropriate
        '
        MsgBox "Type 6 error occurred"
        Err.Clear
        On Error GoTo 0
    Else
        On Error GoTo 0
        '
        ' No error - Do what you normally do for all the other numbers
        '
        MsgBox "Proceeding normally"
    End If
End Sub

Thank you so much, I guess I did not think past the detection of the error. Now I need to append the number as a string value from the cell below the active cell to the value in the active cell. I tried...

Cells(CurRow, 1) = Cells(CurRow, 1) & " " & Cells(CurRow + 1, 1).Value

 

[myall_blues]

Hard to say really without more information - does it give an error? If yes, what is the error. If no, what's wrong with it. It works ok for me, although for the sake of form you could put

Cells(CurRow, 1).Value = Cells(CurRow, 1).Value & " " & Cells(CurRow + 1, 1).Value

As Rory indicates, we really need to know how you're reading the value and some sample data to properly tell what's going on.