Number of characters using VBA

[drjpb]

Hi,
I want to convert values in a column to 12 characters from Right.
Normally we write a formula like =Right(F8,12), i want similar results using vba so i don't have to write a formula each time in a worksheet.

I have column F starting from F8, till end, which i would like to use vba to remove extra characters from left, leaving only 12 characters from Right.

F8	Desired Results (in F8) <tbody> </tbody>
283516 <tbody> </tbody>	283516 <tbody> </tbody>
283627 <tbody> </tbody>	283627 <tbody> </tbody>
283790 <tbody> </tbody>	283790 <tbody> </tbody>
820140000001430 <tbody> </tbody>	140000001430 <tbody> </tbody>
820140000001800 <tbody> </tbody>	140000001800 <tbody> </tbody>

<tbody>
</tbody>

I need the results on same location (F column).

Many Thanks.

<tbody>
</tbody>

 

[Akuini]

Try this:

Sub a928523()
Dim r As Range
For Each r In Range("F8", Cells(Rows.count, "F").End(xlUp))
r.Value = Right(r.Value, 12)
Next
End Sub

 

[drjpb]

Thanks Akuini, it worked well, except for the number of characters in results are 11, not 12. I know it's strange behavious, i checked the column, there is no extra space or any character. I am using Office 2013.
Anyhow changing code from 12 to 13 fixed my issue.

Thanking you once again for prompt solution.