Jump to content

Reemplazar coma a punto y Vicerversa


Recommended Posts

Mil gracias por contestar, pero no deberia de cambiarlo a un numero??, cuando uno hace esto manual con el teclado, Ctrl + B lo convierte a numero sin problema pero la idea es es automatizarlo pero nada, ademas ya he intetado con VBA.Cint en codigo pero nada tampoco, que otro metodo me puede servir...??, MIL GRACIAS..

Link to comment
Share on other sites

Hola! @kai7as

 

Espero sea lo que buscas, como ya te lo han indicado @Janlui hay que cambiar el separador del equipo que usas .

Cambiamos el separador( ,) por el (.)

Private Sub Workbook_Open()

With Application
CurrentDecimalSeparator = .DecimalSeparator
.DecimalSeparator = "."
.UseSystemSeparators = False
End With
End Sub

Para restablecer utiliza(recuerda eliminar el evento open para ver los cambios):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Application
.DecimalSeparator = CurrentDecimalSeparator
.UseSystemSeparators = True
End With
End Sub

 

Saludos

Link to comment
Share on other sites

Por cierto dejo algo parecido a lo del Ctrl + B

Sub cambiarJB_Foro()
Worksheets("Hoja4").range("A2:L46").Select
Selection.Replace what:=",", replacement:=";", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

MsgBox "Realizado"
End Sub

 

Link to comment
Share on other sites

En 20/9/2021 at 20:09 , Janlui dijo:

el punto separa a los decimales y cuando lo cambias por coma, pierde el valor y lo convierte en cadena de caracteres o Texto.

A esto se refiere @Janlui con la opción anterior que te compartí.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy