Substituir letras por numeros

hola, Mario !

... tabla grande... substituir una letra por un numero de una tabla de conversion que tengo
... despues... volverlo negativo... ej:
col1 col2 col3 col4
24u 25 35p 40
23q 20u 30q 50
la tabla deberia quedar asi:
col1 col2 col3 col4
-245 25 -354 40
-236 -205 -306 50

suponiendo 'la tabla' donde tienes las ['equivalencias' en] letras [solo las tres del ejemplo]...
en 'G2:G4' [y obviamente sus correspondencias numericas en 'E2:E4']
-> selecciona el rango donde se van a sustituir letras a numeros y a convertir a negativos y...
corre la siguiente macro en un modulo de codigo 'normal' ==Sub Reemplazar_Negativo()
Dim Celda As Range, Puente As Range
With Selection
For Each Celda In Range("g2:g4")
.Replace Celda, Celda.Offset(, 1)
Next
Set Puente = Cells.Find(Empty)
Puente = -1: Puente.Copy
.PasteSpecial _
xlPasteValues, _
xlPasteSpecialOperationMultiply
End With
Application.CutCopyMode = False
Puente.ClearContents
Set Puente = Nothing
End Sub

saludos,
hector.

Muchas gracias Héctor, creo que por ese camino va mi solución, pero no se si
no comprendi bien pero hice el macro pero lo que hizo fue convertirme todos
los numeros a negativos, y los numeros que tienen letras no los toco (ej.
25p), lo que yo deseo es que busque todos los numeros que tengan una letra,
como el del ejemplo y que haga lo siguiente: que cambie esa letra por su
correspondencia en números (segun una tabla de conversión) y que seguidamente
lo convierta a negativo. Si me podes ayudar con esto te lo agradeceria un
monton. Muchas gracias.

"Héctor Miguel" wrote:

hola, Mario !

> ... tabla grande... substituir una letra por un numero de una tabla de conversion que tengo
> ... despues... volverlo negativo... ej:
> col1 col2 col3 col4
> 24u 25 35p 40
> 23q 20u 30q 50
> la tabla deberia quedar asi:
> col1 col2 col3 col4
> -245 25 -354 40
> -236 -205 -306 50

suponiendo 'la tabla' donde tienes las ['equivalencias' en] letras [solo las tres del ejemplo]...
en 'G2:G4' [y obviamente sus correspondencias numericas en 'E2:E4']
-> selecciona el rango donde se van a sustituir letras a numeros y a convertir a negativos y...
corre la siguiente macro en un modulo de codigo 'normal' ==> Sub Reemplazar_Negativo()
Dim Celda As Range, Puente As Range
With Selection
For Each Celda In Range("g2:g4")
.Replace Celda, Celda.Offset(, 1)
Next
Set Puente = Cells.Find(Empty)
Puente = -1: Puente.Copy
.PasteSpecial _
xlPasteValues, _
xlPasteSpecialOperationMultiply
End With
Application.CutCopyMode = False
Puente.ClearContents
Set Puente = Nothing
End Sub

saludos,
hector.