Reemplazo de punto por coma con VBA

boggg -  
 Carlguer -
Hola,

Para aquellos que conocen VBA Excel,

he hecho una macro muy simple que selecciona la hoja y que reemplaza los puntos por comas,

cuando lo hacemos "manualmente" (Edición/Reemplazar, etc.) funciona muy bien.

Sin embargo, con la macro, que describe efectivamente la acción mencionada anteriormente, no funciona.

Por ejemplo, para números del tipo: 1.27365e+006
la macro los transforma en: 127365000000

aquí está la macro, es muy simple:

Sub pv3()

Cells.Select
Application.CutCopyMode = False
Selection.NumberFormat = "General"
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

End Sub

Les agradezco de antemano por su respuesta
Configuración: Windows XP Internet Explorer 6.0

6 respuestas

Moi
 
El tema seguramente está cerrado, pero para los siguientes que lo necesiten:

Hay que reemplazar el punto por un punto en la macro. En mi caso:

Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
50
intéressée
 
¡Gracias! ¡Ha pasado mucho tiempo desde que estoy buscando, y la respuesta no es evidente… ¡Gracias de nuevo por responder a este post, me viene de maravilla!
0
Boule de gomme
 
Gracias, aún no había encontrado...
1