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

  1. 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
    1. 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
    2. Boule de gomme
       
      Gracias, aún no había encontrado...
      1