Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Then Help!!!!
Hi!
I'm stuck. I have a working macro but it needs a small tweek. The macro executes a find statement and performs calculations from the find to the end of the column. The problem is when nothing is found. I need an if statement or suggestion on how to tell it to skip the calculations if there is nothing found. This is what I have so far(with no if's): Cells.Find(What:="RIM", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, 1).Select ActiveSheet.Paste ActiveCell.Offset(0, 1).Select Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1)) _ .FormulaR1C1 = "=RC[-1]*RC[6]/12" Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, -2).Select ActiveSheet.Paste Thanks in advance for all your help. -- A Waller |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Then Help!!!!
set rng = Cells.Find(What:="RIM", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) if not rng is nothing then rng.select Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, 1).Select ActiveSheet.Paste ActiveCell.Offset(0, 1).Select Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1)) _ .FormulaR1C1 = "=RC[-1]*RC[6]/12" Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, -2).Select ActiveSheet.Paste end if -- rEgards, Tom Ogilvy "A Waller" wrote in message ... Hi! I'm stuck. I have a working macro but it needs a small tweek. The macro executes a find statement and performs calculations from the find to the end of the column. The problem is when nothing is found. I need an if statement or suggestion on how to tell it to skip the calculations if there is nothing found. This is what I have so far(with no if's): Cells.Find(What:="RIM", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, 1).Select ActiveSheet.Paste ActiveCell.Offset(0, 1).Select Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1)) _ .FormulaR1C1 = "=RC[-1]*RC[6]/12" Range(Selection, Selection.End(xlDown)).Select Selection.Cut ActiveCell.Offset(0, -2).Select ActiveSheet.Paste Thanks in advance for all your help. -- A Waller |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|