How could I copy cells in a range but reverse its sign?

E.g To Copy Range A22 to A11
The value in A2= 15000
The value I wish then to see in A1 = -15000
Same for B22 etc
There maybe <blanks> in cells A22 if so I would still want these
blank in A11

Thanks

Are A11 blank? If so, one way:

Copy A22. Select A11. Choose Edit/Paste Special, selecting the
Subtract radio button.


In article
<6bca330c-7225-45af-8b11-(E-Mail Removed)>,
Seanie <(E-Mail Removed)> wrote:

> How could I copy cells in a range but reverse its sign?
>
> E.g To Copy Range A22 to A11
> The value in A2= 15000
> The value I wish then to see in A1 = -15000
> Same for B22 etc
> There maybe <blanks> in cells A22 if so I would still want these
> blank in A11
>
> Thanks

Hi,

Put this in a1 and drag right to d1

=IF(A2<>"",-A2,"")

Mike

"Seanie" wrote:

> How could I copy cells in a range but reverse its sign?
>
> E.g To Copy Range A22 to A11
> The value in A2= 15000
> The value I wish then to see in A1 = -15000
> Same for B22 etc
> There maybe <blanks> in cells A22 if so I would still want these
> blank in A11
>
> Thanks
>
>

Thanks guys, what I should have included is that I wanted to do this
via code, so from your suggestions, I recorded below

Sub CopyPreviousEvents()
Application.ScreenUpdating = False
Range("C59:AE60").Select
Range("C60").Activate
Selection.ClearContents
Range("C61:AE61").Select
Selection.Copy
Range("C60").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlSubtract, _
SkipBlanks:=False, Transpose:=False
Range("C61:AE61").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6").Select
End Sub