remove everything but the last three characters at the end of the cell?

Can anyone help me out?

NBVC: no problem, thanks for your reply and the code works like a charm! However, upon running the code I realized the original condition will need to be replaced due to information I had not anticipated.

Condition needed: If the cell of column E has "@", "/" and or no numbers at all, then insert a single space in the cell of column F.

Thanks again in advance!

Originally Posted by NBVC

Sorry, your thread got lost in the shuffle since yesterday...

Try:

=RIGHT(RIGHT(E2,3),3-MIN(FIND(0,SUBSTITUTE(RIGHT(E2,3),{1,2,3,4,5,6,7,8,9},0)&0))+1)+0

Yes that's correct because I'm getting "#VALUE" errors in the cells that meet the conditions mentioned in previous post. I need these cells to be blank, that's why I said insert space unless there is a better solution-I'm all for it! Thanks again!

hrmmm.... I seem to be getting a "#NAME?" error now.

One more question, I'm trying to create a macro to copy and paste this code for the entire column without any luck, would you happen to know how to do this?

Hi, Rabbitstew
if your formula located in cell B2, and you want to copy formula in cells B3:B100, than the code will be:
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B100")

Thanks for your response but how do I paste the following code into the script?

This is what I have so far:

' Macro2 Macro
' Macro recorded 6/20/2012 by Paul Wong
'

'
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F2").Select
ActiveSheet.Paste
ActiveSheet.Paste
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F349"), Type:=xlFillDefault
Range("F2:F349").Select
ActiveWindow.SmallScroll Down:=-90
ActiveWindow.LargeScroll Down:=-1
Range("F215").Select
ActiveWindow.LargeScroll Down:=-1
Range("F183").Select
ActiveWindow.LargeScroll Down:=-1
Range("F151").Select
ActiveWindow.LargeScroll Down:=-1
Range("F119").Select
ActiveWindow.LargeScroll Down:=-1
Range("F87").Select
ActiveWindow.LargeScroll Down:=-1
Range("F55").Select
ActiveWindow.LargeScroll Down:=-1
Range("F23").Select
ActiveWindow.LargeScroll Down:=-1
Range("F23").Select
End Sub

and where it says "ActiveSheet.Paste" I want to paste the following code in there:

=IF(OR(ISNUMBER(SEARCH({"@","/"},E2))),"",IF(ISERROR(RIGHT(RIGHT(E2,3),3-MIN(FIND(0,SUBSTITUTE(RIGHT(E2,3),{1,2,3,4,5,6,7,8,9},0)&0))+1)+0),"",RIGHT(RIGHT(E2,3),3-MIN(FIND(0,SUBSTITUTE(RIGHT(E2,3),{1,2,3,4,5,6,7,8,9},0)&0))+1)+0))

I tried inserting it as text but I get a script error. Any help would be appreciated.

ThePower,

But how do I create a macro that will automatically paste the formula into B2, have it be recognized as a formula and then paste itself down the entire column?