Asignación valor negativo a celda

Question

Buenos días

¿Es posible asignar un valor negativo a una celda?, es decir, que cuando el usuario introduzca el dato numérico, automáticamente se vuelva sea negativo.

Gracias de antemano.

Answer 1

Hola!

puedes evaluar (con intersect) si la celda que ha cambiado es la que tu quieres y multiplicarla por -1 (controlando que no sea negativa ya), un ejemplo para la celda C3

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("C3")) Is Nothing Then

Application.EnableEvents = False

ActiveSheet.Range("C3") = Abs(ActiveSheet.Range("C3")) * -1

Application.EnableEvents = True

End If

End Sub

Answer 2

Muchas gracias Emilio

La opción es perfecta, pero ¿existe una alternativa más sencilla?, te lo comento ya que la hoja tendría que guardarla con formato macro y los usuarios no están acostumbrados.

Un saludo y de nuevo muchas gracias.

Answer 3

Hola!

pides que la celda cambie de signo por si misma, eso no es posible sin código, ahora viene Hector Miguel y te dice que sí ;-)

Si quieres hacerlo con formulas deberás utilizar una segunda celda para que se cambie el signo.

Answer 4

no "invoques al diablo" 😁

se puede usar un formato personalizado que anteponga el signo "-"

el detalle es como se piensa "operar" (aritméticamente hablando) con el valor ingresado (?)

Answer 5

Muchas gracias a ambos

La opción de segunda celda la había valorado pero quería saber si era posible sin segunda celda, ya veo que no =-(

Modificar e, formato personalizado ya le he efectuado con -# pero no realiza correctamente la función que quiero, es decir, no resta correctamente. Por lo que creo que el formato no afecta al valor algebraico de la celda ;¿no?