Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
If a cell equals _, at the next row that equals _, return value fr | Excel Worksheet Functions | |||
If cell is left blank, or equals zero, then cell equals a different cell | Excel Discussion (Misc queries) | |||
How to create/run "cell A equals Cell B put Cell C info in Cell D | Excel Discussion (Misc queries) | |||
if a:a (range) equals january and c:c equals gas then add g:g ($) | Excel Worksheet Functions | |||
custom filter does not work when selecting 'equals' X AND 'equals' | Excel Discussion (Misc queries) |