If a cell equals then macro
 

I have a table with letters "C" or "D" in column G starting G2 & numbers in
column H. I would like the number in a cell to be negative if cell next to it
in column G = "c"
This would apply to all numbers in column starting from H2
The macro below has to be corrected
Sub neg()
If ActiveCell.Offset(0, -1) = "c" Then
ActiveCell.Value = -ActiveCell.Value
End If
End Sub

Pls help

If a cell equals then macro
 

Look he

http://www.cpearson.com/excel/Events.aspx

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"transferxxx" wrote in message ...
|I have a table with letters "C" or "D" in column G starting G2 & numbers in
| column H. I would like the number in a cell to be negative if cell next to it
| in column G = "c"
| This would apply to all numbers in column starting from H2
| The macro below has to be corrected
| Sub neg()
| If ActiveCell.Offset(0, -1) = "c" Then
| ActiveCell.Value = -ActiveCell.Value
| End If
| End Sub
|
| Pls help

If a cell equals then macro
 

hi
try this...
Sub neg()
Dim r As Range
Dim rd As Range
Set r = Range("H2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
If r.Offset(0, -1) = "c" Then
r.Value = -r.Value
End If
Set r = rd
Loop
End Sub
regards
FSt1
"transferxxx" wrote:

I have a table with letters "C" or "D" in column G starting G2 & numbers in
column H. I would like the number in a cell to be negative if cell next to it
in column G = "c"
This would apply to all numbers in column starting from H2
The macro below has to be corrected
Sub neg()
If ActiveCell.Offset(0, -1) = "c" Then
ActiveCell.Value = -ActiveCell.Value
End If
End Sub

Pls help

If a cell equals then macro
 

Can someone pls correct my code or give me the correct macro as I'm new to
excel
thxs

"Niek Otten" wrote:

Look he

http://www.cpearson.com/excel/Events.aspx

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"transferxxx" wrote in message ...
|I have a table with letters "C" or "D" in column G starting G2 & numbers in
| column H. I would like the number in a cell to be negative if cell next to it
| in column G = "c"
| This would apply to all numbers in column starting from H2
| The macro below has to be corrected
| Sub neg()
| If ActiveCell.Offset(0, -1) = "c" Then
| ActiveCell.Value = -ActiveCell.Value
| End If
| End Sub
|
| Pls help

If a cell equals then macro
 

Perfect - thxs a lot

Do you have another macro which can move the number to the next right hand
column (i.e .Insert Shift:=xlToRight) if cell in G = "c"??
Pls help - thxs



"FSt1" wrote:

hi
try this...
Sub neg()
Dim r As Range
Dim rd As Range
Set r = Range("H2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
If r.Offset(0, -1) = "c" Then
r.Value = -r.Value
End If
Set r = rd
Loop
End Sub
regards
FSt1
"transferxxx" wrote:

I have a table with letters "C" or "D" in column G starting G2 & numbers in
column H. I would like the number in a cell to be negative if cell next to it
in column G = "c"
This would apply to all numbers in column starting from H2
The macro below has to be corrected
Sub neg()
If ActiveCell.Offset(0, -1) = "c" Then
ActiveCell.Value = -ActiveCell.Value
End If
End Sub

Pls help

If a cell equals then macro
 

Sub neg()
Dim r As Range
Dim rd As Range
Set r = Range("H2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
If r.Offset(0, -1) = "c" Then
r.Offset(0, 1) = -r.Value
r.ClearContents
End If
Set r = rd
Loop
End Sub


Mike F

"transferxxx" wrote in message
...
Perfect - thxs a lot

Do you have another macro which can move the number to the next right
hand
column (i.e .Insert Shift:=xlToRight) if cell in G = "c"??
Pls help - thxs



"FSt1" wrote:

hi
try this...
Sub neg()
Dim r As Range
Dim rd As Range
Set r = Range("H2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
If r.Offset(0, -1) = "c" Then
r.Value = -r.Value
End If
Set r = rd
Loop
End Sub
regards
FSt1
"transferxxx" wrote:

I have a table with letters "C" or "D" in column G starting G2 &
numbers in
column H. I would like the number in a cell to be negative if cell next
to it
in column G = "c"
This would apply to all numbers in column starting from H2
The macro below has to be corrected
Sub neg()
If ActiveCell.Offset(0, -1) = "c" Then
ActiveCell.Value = -ActiveCell.Value
End If
End Sub

Pls help

If a cell equals then macro
 

hi again,
add this....
r.Insert Shift:=xlToRight
after....
r.Value = -r.Value

regards
FSt1

"transferxxx" wrote:

Perfect - thxs a lot

Do you have another macro which can move the number to the next right hand
column (i.e .Insert Shift:=xlToRight) if cell in G = "c"??
Pls help - thxs



"FSt1" wrote:

hi
try this...
Sub neg()
Dim r As Range
Dim rd As Range
Set r = Range("H2")
Do While Not IsEmpty(r)
Set rd = r.Offset(1, 0)
If r.Offset(0, -1) = "c" Then
r.Value = -r.Value
End If
Set r = rd
Loop
End Sub
regards
FSt1
"transferxxx" wrote:

I have a table with letters "C" or "D" in column G starting G2 & numbers in
column H. I would like the number in a cell to be negative if cell next to it
in column G = "c"
This would apply to all numbers in column starting from H2
The macro below has to be corrected
Sub neg()
If ActiveCell.Offset(0, -1) = "c" Then
ActiveCell.Value = -ActiveCell.Value
End If
End Sub

Pls help