| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.misc, microsoft.public.excel.programming, microsoft.public.excel.worksheet.functions
|
|||
|
|||
macro ...if command, I suppose...
it works perfecly thak you DON.
Ciao Mario Don Guillett wrote: Have a look at ON ERROR (easy way is to type on error in the vbe and hit f1 key) on error goto mymsg code mymsg: "blah blah" -- Don Guillett SalesAid Software "Mario" wrote in message ... Hi everybody I recorded a macro wich finds the word "new date" and then copies the corresponding rows in another sheet... (no problem as far as here). I would like if it found no occurrence it ended e gave a message as "no occurrence found" instead of indicating a run time error. I think it need an if command, I tried but without success... I send the mail Cells.Find(What:="new date", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate. ActiveCell.Offset(0, -1).Range("A1").Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("ScadenzeClienti").Select Application.Goto Reference:="R1C1" Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub Thanks Mario |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Use Macro To Change Which Macro Assigned To Command Button | Excel Discussion (Misc queries) | |||
| If command in macro | New Users to Excel | |||
| Macro Command | Excel Discussion (Misc queries) | |||
| macro ...if command, I suppose... | Excel Discussion (Misc queries) | |||
| macro ...if command, I suppose... | Excel Worksheet Functions | |||
Threaded Mode
