Saltar al contenido

Reemplazar coma a punto y Vicerversa


kai7as

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..

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.