Macro para invertir signo de un importe

hola, 'anonimo/a' !

Seria posible resumir en un macro la opcion de "pegado especial"
que permite multiplicar todos los valores de una seleccion de seldas por (por ejemplo) -1
para que cambie el signo (de positivo a negativo y viceversa)?
Lo verdaderamente practico seria seleccionar las celdas objetivo y ejecutar una macro para que invirtiera el signo...

si hablamos de SELECCIONAR un solo rango continuo -?- prueba con una instruccion +/- como la siguiente:

selection.value = evaluate("-" & selection.address)

si la seleccion es de rangos discontinuos -?- habria que hacer un bucle similar por cada "area" en la seleccion

saludos,
hector.

FindeO


"Héctor Miguel" wrote:

hola, 'anonimo/a' !

> Seria posible resumir en un macro la opcion de "pegado especial"
> que permite multiplicar todos los valores de una seleccion de seldas por (por ejemplo) -1
> para que cambie el signo (de positivo a negativo y viceversa)?
> Lo verdaderamente practico seria seleccionar las celdas objetivo y ejecutar una macro para que invirtiera el signo...

si hablamos de SELECCIONAR un solo rango continuo -?- prueba con una instruccion +/- como la siguiente:

selection.value = evaluate("-" & selection.address)

si la seleccion es de rangos discontinuos -?- habria que hacer un bucle similar por cada "area" en la seleccion

saludos,
hector.

Bueno, ha habido un problema en el post anterior, así que lo repito.
La macro que podrías utilizar también. Primero deberías de seleccionar el
rango sobre el que actuar y luego, mediante algún método abreviado, por
ejemplo, ejecutarla.

Sub Invertir()
Dim Celda

For Each Celda In Selection
If Left(Celda.Formula, 1) <> "=" Then
If IsNumeric(Celda.Value) Then _
Celda.Value = -1 * Celda.Value
Else
If IsNumeric(Celda.Value) Then _
Celda.Formula = Celda.Formula & "*(-1)"
End If
Next

End Sub



FindeO


"Findeo" wrote:

FindeO


"Héctor Miguel" wrote:

> hola, 'anonimo/a' !
>
> > Seria posible resumir en un macro la opcion de "pegado especial"
> > que permite multiplicar todos los valores de una seleccion de seldas por (por ejemplo) -1
> > para que cambie el signo (de positivo a negativo y viceversa)?
> > Lo verdaderamente practico seria seleccionar las celdas objetivo y ejecutar una macro para que invirtiera el signo...
>
> si hablamos de SELECCIONAR un solo rango continuo -?- prueba con una instruccion +/- como la siguiente:
>
> selection.value = evaluate("-" & selection.address)
>
> si la seleccion es de rangos discontinuos -?- habria que hacer un bucle similar por cada "area" en la seleccion
>
> saludos,
> hector.
>
>
>

Gracias a los dos, funcioan perfectamente.

Gracias por vuestra ayuda.

Saludos

"Findeo" escribió:

Bueno, ha habido un problema en el post anterior, así que lo repito.
La macro que podrías utilizar también. Primero deberías de seleccionar el
rango sobre el que actuar y luego, mediante algún método abreviado, por
ejemplo, ejecutarla.

Sub Invertir()
Dim Celda

For Each Celda In Selection
If Left(Celda.Formula, 1) <> "=" Then
If IsNumeric(Celda.Value) Then _
Celda.Value = -1 * Celda.Value
Else
If IsNumeric(Celda.Value) Then _
Celda.Formula = Celda.Formula & "*(-1)"
End If
Next

End Sub



FindeO


"Findeo" wrote:

>
> FindeO
>
>
> "Héctor Miguel" wrote:
>
> > hola, 'anonimo/a' !
> >
> > > Seria posible resumir en un macro la opcion de "pegado especial"
> > > que permite multiplicar todos los valores de una seleccion de seldas por (por ejemplo) -1
> > > para que cambie el signo (de positivo a negativo y viceversa)?
> > > Lo verdaderamente practico seria seleccionar las celdas objetivo y ejecutar una macro para que invirtiera el signo...
> >
> > si hablamos de SELECCIONAR un solo rango continuo -?- prueba con una instruccion +/- como la siguiente:
> >
> > selection.value = evaluate("-" & selection.address)
> >
> > si la seleccion es de rangos discontinuos -?- habria que hacer un bucle similar por cada "area" en la seleccion
> >
> > saludos,
> > hector.
> >
> >
> >