Macros para manipular números en MS Excel.

Obed

24/03/10

Facil y rapido

Haz tu trabajo con mucha rapidez y de manera más sencilla.

Ponte en contacto.

Soporte

Resuelve todas tus dudas y recibe la mejor asesoría en en los proyectos que desarrolles.

¡Contáctanos!

Reportes

Desempéñate mejor en tus tareas con nuestros reportes en Excel.

¡Te decimos como lograrlo!

En muchas ocasiones cuando trabajo con bases de datos en Excel, la fuente en la mayorías de las veces es importada desde un ERP. En ocasiones al importar estos datos tengo que trabajar con los signos de los números porque tengo números positivos cuando quiero negativos y viceversa ó que los números estén como texto.
Para esto utilizo algunas macros que me hacen más sencilla la tarea que a continuación se las comparto para quien se encuentre en una situación similar a la mía tal vez esto le ayude un poco.

Para utilizar estos códigos, en tu aplicación de Excel deben estar habilitadas las macros. Presiona Alt-F11 y aparecerá el editor de Visual Basic, ve a la barra de herramientas Insertar>Modulo y  pegas el código. Para ejecutar la macro selecciona el rango de datos que deseas trabajar y presiona Alt-F8 > Ejecutar.

Código para cambiar los signos de los números

Sub CambiarSigno()
 Dim Celdas As Range
    For Each Celdas In Selection.Cells
     If Not (IsEmpty(Celdas.Value)) And IsNumeric(Celdas.Value) Then
        Celdas.Value = Celdas.Value * (-1)
    End If
   Next
End Sub

Código para convertir los valores numéricos a texto

Sub Numeros_Texto()
 Dim Celdas As Range

   For Each Celdas In Selection.Cells
      If IsNumeric(Celdas.Value) Then
        Celdas.Value = Str(Celdas.Value)
        Celdas.NumberFormat = «@»

      End If
   Next
End Sub

Código para convertir los números (texto) a valores numéricos

Sub Texto_Valores()
  Dim Celdas As Range
     For Each Celdas In Selection.Cells
        Celdas.NumberFormat = «0»
        Celdas.Value = Val(Trim(Celdas.Value))
     Next
End Sub

Que les sea de utilidad.

 

Copyright © 2022 Exceltrabajaporti.com - Todos los derechos reservados.