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.

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]F8[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129"]Desired Results (in F8)[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 206"]
<tbody>[TR]
[TD="class: xl65, width: 206"]283516[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129, align: left"]283516[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 206"]
<tbody>[TR]
[TD="class: xl65, width: 206"]283627[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129, align: left"]283627[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 206"]
<tbody>[TR]
[TD="class: xl65, width: 206"]283790[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129, align: left"]283790[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 206"]
<tbody>[TR]
[TD="class: xl65, width: 206"]820140000001430[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129, align: left"]140000001430[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 206"]
<tbody>[TR]
[TD="class: xl65, width: 206"]820140000001800[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 129"]
<tbody>[TR]
[TD="class: xl65, width: 129, align: left"]140000001800[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

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

Many Thanks.
[TABLE="width: 335"]
<tbody>[TR]
[TD="align: left"][/TD]
[/TR]
</tbody>[/TABLE]

 

[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.