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.