Copy Cells Q

[Seanie]

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

 

[JE McGimpsey]

Are A11 blank? If so, one way:

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

 

[Mike H]

Hi,

Put this in a1 and drag right to d1

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

Mike

 

[Seanie]

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