Stop
I always seem to come across interesting things as I make up new
workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
Stop
maybe this
Sub test() If ActiveCell.Column < 1 Then ActiveCell.Offset(0, -1).Select End If end sub -- Gary "StargateFan" wrote in message ... I always seem to come across interesting things as I make up new workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
Stop
You have 2 options:
- Check where the active cell is first. If ActiveCell.Column 1 Then ActiveCell.Offset(0, -1).Select - Do it anyway and ignore the error, as (in this case) no damage is done or propagated by the error. On Error Resume Next ActiveCell.Offset(0, -1).Select On Error GoTo 0 NickHK "StargateFan" wrote in message ... I always seem to come across interesting things as I make up new workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
Stop
On Thu, 12 Apr 2007 00:21:55 -0400, "Gary Keramidas"
<GKeramidasATmsn.com wrote: maybe this Sub test() If ActiveCell.Column < 1 Then ActiveCell.Offset(0, -1).Select End If end sub Super. It seems to work perfectly. I keep going left till it stops yet no error comes up which is great. Thanks. :oD Gary "StargateFan" wrote in message .. . I always seem to come across interesting things as I make up new workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
Stop
On Thu, 12 Apr 2007 12:31:55 +0800, "NickHK"
wrote: You have 2 options: - Check where the active cell is first. If ActiveCell.Column 1 Then ActiveCell.Offset(0, -1).Select - Do it anyway and ignore the error, as (in this case) no damage is done or propagated by the error. On Error Resume Next ActiveCell.Offset(0, -1).Select On Error GoTo 0 Thanks! What is the difference, pls, between the 2nd code above and Gary's solution? Sub test() If ActiveCell.Column < 1 Then ActiveCell.Offset(0, -1).Select End If end sub Thanks. :oD NickHK "StargateFan" wrote in message .. . I always seem to come across interesting things as I make up new workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
Stop
The 2nd option executes the code anyway, but any error raised is simply
ignored and code continues. In Gary's code, the potentially error causing is not executed if it would raise an error. NickHK "StargateFan" wrote in message ... On Thu, 12 Apr 2007 12:31:55 +0800, "NickHK" wrote: You have 2 options: - Check where the active cell is first. If ActiveCell.Column 1 Then ActiveCell.Offset(0, -1).Select - Do it anyway and ignore the error, as (in this case) no damage is done or propagated by the error. On Error Resume Next ActiveCell.Offset(0, -1).Select On Error GoTo 0 Thanks! What is the difference, pls, between the 2nd code above and Gary's solution? Sub test() If ActiveCell.Column < 1 Then ActiveCell.Offset(0, -1).Select End If end sub Thanks. :oD NickHK "StargateFan" wrote in message .. . I always seem to come across interesting things as I make up new workbooks. I'm using the following code to allow user to step to the left: ActiveCell.Offset(0, -1).Select Butt when user gets to A1, if the button is pushed again by accident, an error box comes up because the first cell is reached: Run-time error '1004': Application-defined or object-defined error Is there any way to stop this error popping up? Any advice re this? Even a message saying "you can't go any further to the left", heck, whatever works <g. Thanks. :oD |
All times are GMT +1. The time now is 12:12 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com