Originally Posted by Auric__

Moideen wrote:

Auric__ Wrote:
Moideen wrote:
-
We are Maintaining cost in English Letters, Kindly Help to get COST
on Coloumn2

Examples,

A : 1
B : 2
C : 3
D : 4
F : 5

If I Entered 242 on Coloumn1 Need Automatic Shown BDB on Coloumn2-

Put this in the sheet's object in the VBA editor:
[snip]
Edit the 'costs' array to fit. (The hashes are there to indicate data
entry errors. If you don't want them, don't delete them -- change them
to "".)

If this is meant to apply to the entire workbook, put this in the
ThisWorkbook object instead:
[snip]
Thank you very much, This function working is smoothly but one problem,
If i entered 12.3 , Need Letter : AB.C or AB/C Please Help me.

I looked through the functions, and found the SUBSTITUTE spreadsheet
function. It should be faster than my code, and should also be easier to
understand. Paste this into B1 and then copy down (one line, watch the word
wrap):

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBST ITUTE
(A1,1,"A"),2,"B"),3,"C"),4,"D"),5,"F")

This can be extended by adding on more levels of SUBSTITUTE if necessary.

If you'd rather stick with VBA, this works similarly:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell.Column = 1 Then cell.Offset(0, 1).Value = Replace(Replace( _
Replace(Replace(Replace(cell.Value, 1, "A"), 2, "B"), 3, "C"), _
4, "D"), 5, "F")
Next
End Sub

(Forget about what I posted before. Wasted effort on my part, mostly.)

--
I don't believe in *lots* of invisible things
that are supposed to make me happy.