Convertir número negativos a positivos con macro.

Como podríamos convertir los números de un rango de celdas que están en negativos a positivos, solo seleccionando el rango.

Generalmente en las tareas que realizamos diariamente, quizás nos toque analizar registros que hay que clasificar, según algún concepto, o simplemente que por el origen de lo registros estos tengan que ser registrados con signo negativo, sin embargo a la hora de representar la información no queremos mostrar el signo o el formato de numero negativo dado que no es muy estético, y tendremos en todo caso que convertirlos al signo positivo, realizando una formula a cada celda para cambiarlo a positivo multiplicando cada dato por -1, y eso resulte no tan eficiente al estar corriendo formula. Asi, para no dar mas vueltas al tema podemos realizar una macro para que al seleccionar las celdas o registros que están en negativos se conviertan en positivo con solo dar click en un botón con una macro asignada.

Por lo que aquí les dejo la macro que convierte la selección de un rango de celda a signo positivo, solo cópiala y pégala en un modulo para poder utilizarla.

Public Sub CambiarSigno()

    Dim rango As Range

    Set rango = Selection

    For Each i In rango

        ' si solo queremos afectar a los números que están en negativo validamos que el numero este en negativo.

        ' de lo contrario los saltamos

        ' si no quieres que haga esta validación quita la sentencia if y end if y deja solo i.Value = i.Value * -1

        If i.Value < 0 Then

            i.Value = i.Value * -1

        End If

    Next

End Sub

Lo que queda después de escribir la macro en un modulo es asignarla a un botón, y que esté disponible en todo el entorno de Excel para utilizarlo en cualquier libro.

Sino sabes cómo hacer que una macro esté disponible para todo el entorno de Excel, en la próxima publicación abordaremos el tema para mostrarte como se hace.

  

Saludos cordiales.

 JASR

Share this

AppsJasr