How to change negative numbers into positive if the puse f

[davekim1000]

Can someone help me create a macro that will change a number value into a negative if an identifier for that number falls within a range of identifiers that indicate the number needs to be negative?

Example:

A1 B1
1234 blue
2352 red
4569 green
7452 yellow

if the identifier is red or yellow...then the value in the same row as that identifier should be negative.

A1 B1
1234 blue
-2352 red
4569 green
-7452 yellow

thanks in advance for your help

david

 

[Cbrine]

Private Sub CommandButton1_Click()

Dim r As Range

For Each r In Range("A1", Range("A65535").End(xlUp))
If r.Offset(0, 1).Value = "red" Or r.Offset(0, 1).Value = "yellow" Then
r.Value = r.Value * -1
End If
Next
End Sub


HTH
Cal

 

[davekim1000]

thanks so much Calvin

worked like a charm. thanks very much Cal

david