How to code: If active cell is B1, goto H17 when enter pressed

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

GregBeam - 26 Nov 2007 02:55 GMT

When the active cell is B1, I want the curser to move to cell H17 when press
enter. I need the VB code to do this (or a macro)

Reply to this Message

trevosef@gmail.com - 26 Nov 2007 05:51 GMT

On Nov 26, 10:55 am, GregBeam <GregB...@discussions.microsoft.com>
wrote:

> When the active cell is B1, I want the curser to move to cell H17 when press
> enter. I need the VB code to do this (or a macro)

Hi GregBeam,

The code below should be copied to the specific sheet to work. It
will automatically move to cell H17 if the active cell is B1. Don't
have to press Enter key.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$B$2" Then
Application.Goto Range("H17")
End If
End Sub

Regards
trevosef

Reply to this Message

Gary''s Student - 26 Nov 2007 10:00 GMT

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("H17").Select
Application.EnableEvents = True
End Sub

Signature

Gary''s Student - gsnu200758

> When the active cell is B1, I want the curser to move to cell H17 when press
> enter. I need the VB code to do this (or a macro)

Reply to this Message