Hello,
I appreciate any and all who may give this issue some consideration.
This is to change a number to a code of letters to hide info in plain site.
if my code table is 1 = C, 2 = D, 3 = E, etc thru 9 = K and 0 = P
so if my cost shows as 24.76 it returns DFIH
or " " 130.90 " " CEPKP
So I can then print this letter code on my tag, thus knowing my cost without my clients figuring it out.
Function numbertocode(mycell As Range) As String
Dim n As Integer
' 1234567890
codelist = "PCDEFGHIJK"
For n = 1 To Len(CStr(Format(mycell, "0.00")))
If Mid(mynum, n, 1) <> "." Then numbertocode = numbertocode & CStr(Mid(codeist, Val(Mid(mynum, n, 1)) + 1, 1))
Next n
End Function
To use it in a sheet, put this in a cell, where A2 is the cell containing value to convert:
