Extraer Caracteres

Hola Esteban:

La siguiente modificación te arregla el problema:

Sub cambiar()

Selection.SpecialCells(xlCellTypeConstants, 22).Select
For Each c In Selection
c.Replace What:="Std.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
c.NumberFormat = "0"
If Not IsEmpty(c.Value) And IsNumeric(c.Value) Then
c.Value = c.Value / 1
End If
Next
End Sub

explicación:

1º Excluimos de la selección las fórmulas
2º Para cada celda de la selección
a) Reemplazamos "Std." por ""
b) Formato numérico "0"
c) Si es numérico y no está en blanco divide entre 1

Atentamente,

Benito Merino

"Esteban" wrote:

Hola!
Tengo las siguiente celdas:

123,45Std. o
12,4Std. o
12345,654Std.

necesito extraer "Std." de cada celda, pero el procedimiento tengo que
tenerlo en una macro (se ejeculta 4 veces al dia). Tengo el siguiente
procedimiento en una macro:

Selection.Replace What:="Std.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.NumberFormat = "0"

Pero no me funciona, porque cuando lo ejecuto, el resultado de las celdas
son en formato texto y necesito sumar las celdas. Que puedo hacer?