Anónimo
Macro concatenar
Buenos dias, necesito una macro que me convierta un codigo a numeros, el codigo es el siguiente M = 1, A=2, N=3, U=4, E=5, L=6, I=7, T=8, O=9, S=0, "-"="."
Por ejemplo en una celda tengo NA-MS y quiero que en otra celda de otra fila me aparezca 32.10
Gracias
Por ejemplo en una celda tengo NA-MS y quiero que en otra celda de otra fila me aparezca 32.10
Gracias
1 Respuesta
Respuesta de jrgces
1
Prueba con:
Const sLetras As String = "MANUELITO"
Public Function Convertir(sCad As String) As Double
Dim n As Integer, sValor As String
For n = 1 To Len(sCad)
Select Case Mid(sCad, n, 1)
Case "-"
sValor = sValor & Application.International(xlDecimalSeparator)
Case "S"
sValor = sValor & "0"
Case Else
sValor = sValor & WorksheetFunction.Search(Mid(sCad, n, 1), sLetras)
End Select
Next n
Convertir = CDbl(sValor)
End Function
La sintaxis es:
=Convertir(celda ó cadena de texto)
Const sLetras As String = "MANUELITO"
Public Function Convertir(sCad As String) As Double
Dim n As Integer, sValor As String
For n = 1 To Len(sCad)
Select Case Mid(sCad, n, 1)
Case "-"
sValor = sValor & Application.International(xlDecimalSeparator)
Case "S"
sValor = sValor & "0"
Case Else
sValor = sValor & WorksheetFunction.Search(Mid(sCad, n, 1), sLetras)
End Select
Next n
Convertir = CDbl(sValor)
End Function
La sintaxis es:
=Convertir(celda ó cadena de texto)