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.