treat numbers as text

[kylefoley76]

The following code is not working:

 If Application.WorksheetFunction.VLookup(subj, sheet.Range("d1:f1048576"), 3, 0) = "indefinable" Then

I know the problem has to be because the subj is a number but I'm trying to treat it as a string. I've reformatted the cells as both text and general but that still does not work. The macro works on every other object in the d column except for those objects which are numbers. I have even tried the following code

If isnumeral(subj) Then
subj = CStr(subj)
End If

But that doesn't work either. The error message I'm getting is 1004.

 

[iggydarsa]

have you tried:

 If Application.WorksheetFunction.VLookup(format(subj, "@"), sheet.Range("d1:f1048576"), 3, 0) = "indefinable" Then

 

[Jonmo1]

Perhaps

If Application.WorksheetFunction.VLookup(subj & "", sheet.Range("d1:f1048576"), 3, 0) = "indefinable" Then

 

[kylefoley76]

Thanks for helping me out but both those solutions didn't work.

 

[kylefoley76]

Ok, I looked at some of my old drafts because I used to be able to do this and I noticed that in my old drafts I have that green triangle in the corner for the numbers. If I could get that green triangle back that might help things.

 

[kylefoley76]

problem solved.

 

[PKFillmore]

1006 error is usually caused when It can't find the data (#N/A) values in worksheet....
vlookups in vba are tricky, this is one way to get rid of the error of when the vlookup finds nothing...

subj = 2    
    On Error Resume Next
        x = Application.WorksheetFunction.VLookup(subj, Range("D1:F1048576"), 3, 0)
    
        If Err <> 0 Then
            x = "Not Found"
        End If
        
    On Error GoTo 0


    If x = "indefinable" Then
       'Your Code Here
    End If

But you would still need to convert your data to text for it to work the best.
I have found that the best way to convert data to text is to use Text to Columns to convert,
here is a tidbit of code I sometimes use to do that...

    For x = 4 To 6  '-> Column Number
    
        Columns(x).Select
        Selection.TextToColumns Destination:=Range(Selection.Address), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
    
    Next x