Macro para cambiar el punto por la "coma" como divisor de decimales

**pedrosilv** · 16/07/2009, 17:30

Hola de nuevo a todos.

Espero que me pudieran ayudar con una macro. Quisiera que al abrir un archivo, automáticamente se ejecute una macro para que el divisor de puntos decimales sea el signo "," (coma), es decir que si el divisor es un punto, al abrir el archivo, automáticamente se cambie por la ",", y al momento de cerrar dicho archivo, automáticamente sea restaurado dicho simbolo, es decir, que si antes de abrir el documento el signo de decimales era un punto, este vuelva a ser punto luego de cerrar el archivo.

En espera de su ayuda, me despido, no sin antes agradecer de antemano cualquier sugerencia que me puedan dar.

Att. Pedro Silvestre

**varela_b** · 16/07/2009, 21:48

hola

no quiero parecer mala onda, pero porque no te vaz al panel de control/configuracion regional y de idioma y selecciona por ejemplo el pais España para que cambie el punto decimal por coma y cuando termines tu trabajo lo vuelves a poner el de tu pais

suerte

**saucedap** · 07/04/2010, 18:25

Hola, mira si el problema que tienes es que la cifra se presente de la siguiente manera: 1.146,30 utiliza la siguiente macro, la cual te permitiría reemplazar el punto por la coma y la coma por el punto.

Sub QUITARCOMA()
'
' QUITARCOMA Macro
' Macro grabada el 06/04/2010 por Patricio Sauceda
'

'
Cells.Replace What:=".", Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:=" ", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

End Sub

Espero te sea útli. Saludos....

Patricio

**mjrofra** · 08/04/2010, 01:32

Hola Pedro, una opción más aparte de las que ya te han dado Varela y Patricio

Únicamente los usuarios registrados pueden visualizar esta información.

Código:

Únicamente los usuarios registrados pueden visualizar esta información.

Iniciado por pedrosilv

....y al momento de cerrar dicho archivo, automáticamente sea restaurado dicho simbolo, es decir, que si antes de abrir el documento el signo de decimales era un punto, este vuelva a ser punto luego de cerrar el archivo.

Código:

Únicamente los usuarios registrados pueden visualizar esta información.

Ambos códigos los copias en ThisWorkbook y deberán hacer lo que pides... has unas pruebas a ver cómo te va.

LinkBacks

Herramientas

Visualizar