macro para formatear números

[civer25]

en las celdas desde la V2 a la V50 tengo en formato general los siguientes números:

V2=510.941,44

V3=300,150.19

V4=156169,84

V5= 110023,59

 quisiera una macro  vba que en el caso de encontrar un separador de miles como en v5 lo elimine sea este un punto o una coma y si no tiene separador de miles como en v3 que no haga nada

debería quedar

V2=510941.44

V3=300150.19

V4=156169.84

V5= 110023.59

 

Es decir que los números finales deben quedar sin millares y con un punto para separar los centavos

además el resultado debe pegarse en el rango que va de BA2 A BA50

 

Desde ya muchas gracias por la respuesta

 

[Israel Cassales]

De acuerdo a la descripción participo con esta propuesta esperando sea de utilidad, use los rangos descritos si es necesario personalice un poco.

Sub LimpiarYCopiar()
    Dim srcRange As Range
    Dim destRange As Range
    Dim cell As Range
    Dim cleanedValue As String
    Dim i As Integer
       
    Set srcRange = ThisWorkbook.Sheets("Hoja1").Range("V2:V5")
    Set destRange = ThisWorkbook.Sheets("Hoja1").Range("BA2")
    
    i = 0
       
    For Each cell In srcRange
    
        cleanedValue = Replace(cell.Value, ",", "")
        cleanedValue = Replace(cleanedValue, ".", "")
        cleanedValue = Left(cleanedValue, Len(cleanedValue) - 2) & "." & Right(cleanedValue, 2)
      
    
        destRange.Offset(i, 0).Value = Val(cleanedValue)
        destRange.Offset(i, 0).NumberFormat = "0000.00"
        
        i = i + 1
    Next cell
End Sub

 

[Israel Cassales]

 

AYUDA EXCEL.xlsb

[civer25]

Hola buenas noches, gracias por responder pero me parece que sería mejor con una fórmula. Me pasaron las siguientes pero no sé cuál sería mejor en este caso además quisiera una condicional para que solo se formateen los números en el caso de que él mismo no se un número entero es decir en el caso de que él número en cuestión sea como uno de los descritos.

=VALOR(SUSTITUIR(SUSTITUIR(G2 ; "." ; "" ; 1) ; "," ; "" ; 1))/100

 

1

=VALOR(SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR(G2;".";"";1);",";"";1);".";"";1);",";"";1))/SI(O(EXTRAE(G2;LARGO(G2)-1;1)=",";EXTRAE(G2;LARGO(G2)-1;1)=".");10;100)

[Antoni]

Cita

quisiera una macro  vba que en el caso de encontrar un separador de miles como en v5 lo elimine sea este un punto o una coma y si no tiene separador de miles como en v3 que no haga nada

A ver si te aclaras. publicas la consulta en el foro de macros, pides una macro, te dan una macro y ahora pides una fórmula.

No hagas perder el tiempo a la gente, y de paso, sube un archivo con un ejemplo de lo que pides y del resultado final.?

[Israel Cassales]

hace 16 horas, civer25 dijo:

me parece que sería mejor con una fórmula

¿Qué opinas si creas un tema en la sección de fórmulas? Esto con el fin de cuidar un poco el orden del foro y sea de ayuda para posibles lectores. Además que hay Maestros en funciones y participantes muy creativos que podrían aportar más opciones.

Porque por otro lado leyendo la función que te pasaron, en ese caso podrías usar "Buscar y Reemplazar" y te daría (considero) el mismo resultado.

Saludines

[Israel Cassales]

Maestro @Antoni un gusto encontrarlo y saludarlo en este tema.

[civer25]

En 19/8/2023 at 7:15 , Antoni dijo:

A ver si te aclaras. publicas la consulta en el foro de macros, pides una macro, te dan una macro y ahora pides una fórmula.

No hagas perder el tiempo a la gente, y de paso, sube un archivo con un ejemplo de lo que pides y del resultado final.?

hola, disculpas la verdad no me dí cuenta. así lo haré