negative number to positive number

F

Frank Kabel

Hi
- put -1 in an empty cell
- copy this cell
- select your negative numbers
- use 'Edit - Paste Special - Multiply'
 
M

Mike Casey

Frank Kabel said:
Hi
- put -1 in an empty cell
- copy this cell
- select your negative numbers
- use 'Edit - Paste Special - Multiply'

Copy and paste the following macro into your personal macro workbook. All
you have to do is select what you want to negate and run the macro. I
assigned a custom button with the picture "(-)" and name "Negate Selection".
Take notes Microsoft.

'Copy Below Here:

Sub Negate()
'
' Negate Macro
' Macro recorded 4/25/2006 by mcasey

Dim h, w, hctr, wctr As Integer
Dim selectionRange() As Variant

h = Selection.Rows.Count
w = Selection.Columns.Count
selectionRange = Selection.Value
hctr = 1
wctr = 1

While hctr <= h
While wctr <= w
selectionRange(hctr, wctr) = selectionRange(hctr, wctr) * -1
wctr = wctr + 1
Wend
wctr = 1
hctr = hctr + 1
Wend

Selection.Value = selectionRange

End Sub
 
M

Mike Casey

I was looking for an easy way to negate numbers and this was the first thread
on the list when I searched for "negative" so once I made my own method I
thought I'd share it with anyone else searching.

-Mike
 
Top