Identify first two digits of a number using VBA

[rollingzep]

Hi,

I need to identify the first two digits of an 8 digit number and if it is "87", then populate another column with a value "GF".
I need to use VBA and not VLookup, since I have other codes in the same module.

My code is

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        If Left(ws.Range("AI" & i), 2).Value = "87" Then
            ws.Range("BE" & i).Value = "GF"
        End If
    Next i

obviously failed at the LEFT functionality!

 

[Anthony47]

obviously failed at the LEFT functionality

Vba should not fail on that instruction, because an implicit conversion is done by Left when a number is submitted as first parametres...
Do you receive a RunTimeError, or what is the error? Which is the typical content of column WI?

 

[rollingzep]

Vba should not fail on that instruction, because an implicit conversion is done by Left when a number is submitted as first parametres...
Do you receive a RunTimeError, or what is the error? Which is the typical content of column WI?

I get the below error

 

[Anthony47]

You have to use

If Left(ws.Range("AI" & I).Value, 2) = "87" Then

(not Left(ws.Range("AI" & i), 2).Value)

 

[rollingzep]

You have to use

If Left(ws.Range("AI" & I).Value, 2) = "87" Then

(not Left(ws.Range("AI" & i), 2).Value)

That was the mistake! it works now. Thanks

 

[Anthony47]

Thank you for the feedback
(or: Sometime glasses are needed!)