Assigning specific "letter" to a num.

[rapitorres]

Hi
I need some help with converting a number to a specific letter. like a secret code

T A K E F L U S H X
1 2 3 4 5 6 7 8 9 0

1 = T
2 = A
3 = K
4 = E
5 = F
6 = L
7 = U
8 = S
9 = H
0 = X

all result must be in one cell

I tried the case function. i went like this

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "T"
Case 2: GetDigit = "A"
Case 3: GetDigit = "K"
Case 4: GetDigit = "E"
Case 5: GetDigit = "F"
Case 6: GetDigit = "L"
Case 7: GetDigit = "U"
Case 8: GetDigit = "S"
Case 9: GetDigit = "H"
Case 0: GetDigit = "X"
Case Else: GetDigit = ""
End Select

 

[maabadi]

Please test this:

Function GetDigit(InputData As Range) As String
 Dim cell As Range
 Dim x As String

    For Each cell In InputData
        
            x = Replace(cell.Value, "1", "T")
            x = Replace(x, "2", "A")
            x = Replace(x, "3", "K")
            x = Replace(x, "4", "E")
            x = Replace(x, "5", "F")
            x = Replace(x, "6", "L")
            x = Replace(x, "7", "U")
            x = Replace(x, "8", "S")
            x = Replace(x, "9", "H")
            x = Replace(x, "0", "X")
       
        GetDigit = x
    Next cell
End Function

 

[rapitorres]

Hi maabadi. thank you so much its working.