Macro x convertir de letras a numero
quiero un tipo macros en excel para convertir de letras a numero por ejemplo
R A M O N Z E B U S X = 1 2 3 4 5 6 7 8 9 0 cada letra le pertenece un numero y cuando yo digite en la hoja de cálculos y ponga cualquier letra me en una casilla me la convierta a numero en la otra casilla que yo determine.anticipadas gracias...
1 Respuesta
Creo haberte entendido, sigue mi ejemplo:
-En una celda cualquier, por ejemplo la B3 escribimos el texto que desees
-Posiciónate en dicha celda (la que tiene el texto) y ejecuta esta macro:
Sub prueba() 'por luismondelo tope = Len(ActiveCell) For x = 1 To tope lista = lista & "," & x Next lista = Mid(lista, 2, Len(lista) - 1) ActiveCell.Offset(0, 1).Value = lista End Sub
recuerda finalizar la consulta
Perdona luis pero no soy muy bueno en macros y he tratado de hacer lo que me aconsejas pero no me sale nada o no lo estoy haciendo bien o en realidad no tengo una p idea de lo que hago, si me pudieras dar mas detalles paso de como hacerlo te lo agradecería. disculpas las molestias...
CColon
Te mando este vídeo que he preparado para que lo veas mejor
Un saludo
Recuerda finalizar y puntuar
Perdona nuevamente luis tu ayuda ha sido de maravilla y con el video logre hacerlo, pero en realidad lo que quiero es que si yo pongo las letras: RZBUS me aparezca los números 1689O es decir que cada letra tiene un valor abajo descrito:
R A M O N Z E B U S X
1 2 3 4 5 6 7 8 9 0 ?
no te quito mas tiempo me imagino que ya debes de estar impaciente con mis declaraciones deficientes en el manejo de excel, gracias miles....
En ese caso la macro sería así:
-Escribe esas letras en la celda que tu quieras.
-Ahora posiciónate encima de dicha celda y ejecuta la macro siguiente:
Sub prueba() 'por luismondelo tope = Len(ActiveCell) For x = 1 To tope extrae = Mid(ActiveCell, x, 1) 'R A M O N Z E B U S X If extrae = "R" Then lista = lista & "," & 1 If extrae = "A" Then lista = lista & "," & 2 If extrae = "M" Then lista = lista & "," & 3 If extrae = "O" Then lista = lista & "," & 4 If extrae = "N" Then lista = lista & "," & 5 If extrae = "Z" Then lista = lista & "," & 6 If extrae = "E" Then lista = lista & "," & 7 If extrae = "B" Then lista = lista & "," & 8 If extrae = "U" Then lista = lista & "," & 9 If extrae = "S" Then lista = lista & "," & 0 If extrae = "X" Then lista = lista & "," & "x" Next lista = Mid(lista, 2, Len(lista) - 1) ActiveCell.Offset(0, 1).Value = lista End Sub
Mi querido ya amigo Luis me costo trabajo hacer lo que quería...pero lo he logrado gracias a tu ayuda, falta un detallito pero puedo vivir sin el y no quiero molestarte mas y ya sabes que cuando quieras venir al caribe tienes un amigo para mostrarte las cosas bellas de este país. GRACIAS MIL NUEVA VEZ.
