need a reasonably easy UDF please

[Jeffrey Green]

I deal with VINS all the time. Example,

3FA6P0G73HR402900. i need to parse that out and bring in position 5,6,7,8 and 10 into a new cell, preceded by "VIN". I usually just enter ="VIN"&Mid(A1,5,4)&MiD(A1,10,1), to give me VINP0G7H. (The VIN isnt always in column A . . . but it will be in the column one to the left) That gets old, real quick. Any chance of getting a UDF for this? thanks a bunch . . . Jeff

<tbody>
</tbody>

 

[Jonmo1]

Try

Public Function VIN(c As Range)
VIN = "VIN" & Mid(c, 5, 4) & Mid(c, 10, 1)
End Function

 

[Scott T]

Function vin(rng As Range)
vin = "VIN" & Mid(rng, 5, 4) & Mid(rng, 10, 1)
End Function

To use where A2 has the Vin number

=vin(A2)

 

[Jeffrey Green]

Thanks . . . I get a NAME error when i run this. Thanks

 

[Jonmo1]

Make sure you put the code in a standard module (not in a sheet module)
In VBA window, click Insert - Module