Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the cursor selects B1 and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a problem with the default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
End If
End Sub

use the sheet's change event:
Right click the sheet tab & select "View Code"
Add This:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
Target.Offset(1, 0).Select
ElseIf Target.Row = 2 Then
Target.Offset(-1, 1).Select
End If
End Sub

HTH
Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the
cursor selects B1 and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a
problem with the default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column +
1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column -
1).Select
End If
End Sub


.

IF I understand what you want, if in col A you want to goto col B and if in
col B you want to goto A one cell down. If so
Right click on the sheet tabview codeinsert thissave
As written it won't work in the 1st 3 rows

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 3 And Target.Column = 1 Then ActiveCell.Offset(0, 1).Select
If Target.Row 3 And Target.Column = 2 Then ActiveCell.Offset(1, -1).Select
End Sub



--
Don Guillett
SalesAid Software

"Bernd" wrote in message
y.telekom.at...
Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the cursor selects B1 and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a problem with the default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
End If
End Sub

Great!

Many thanks
Bernd

"Don Guillett" schrieb im Newsbeitrag
...
IF I understand what you want, if in col A you want to goto col B and if
in
col B you want to goto A one cell down. If so
Right click on the sheet tabview codeinsert thissave
As written it won't work in the 1st 3 rows

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 3 And Target.Column = 1 Then ActiveCell.Offset(0,
1).Select
If Target.Row 3 And Target.Column = 2 Then
ActiveCell.Offset(1, -1).Select
End Sub



--
Don Guillett
SalesAid Software

"Bernd" wrote in message
y.telekom.at...
Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the cursor selects B1
and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a problem with the
default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
End If
End Sub

Bernd

As an alternative to Macro solution.......

Select Columns A and B then FormatCellsProtection uncheck "locked".

ToolsProtectionProtect Sheet.

Use the TAB key when entering data in A1 to go to B1, A2, B2 etc.

Gord Dibben XL2002

On Tue, 25 Nov 2003 14:53:59 +0100, "Bernd"
wrote:

Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the cursor selects B1 and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a problem with the default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
End If
End Sub

glad to help

--
Don Guillett
SalesAid Software

"Bernd" wrote in message
y.telekom.at...
Great!

Many thanks
Bernd

"Don Guillett" schrieb im Newsbeitrag
...
IF I understand what you want, if in col A you want to goto col B and if
in
col B you want to goto A one cell down. If so
Right click on the sheet tabview codeinsert thissave
As written it won't work in the 1st 3 rows

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 3 And Target.Column = 1 Then ActiveCell.Offset(0,
1).Select
If Target.Row 3 And Target.Column = 2 Then
ActiveCell.Offset(1, -1).Select
End Sub



--
Don Guillett
SalesAid Software

"Bernd" wrote in message
y.telekom.at...
Hi!
I don´t get it although it seemd to be so simple.
I want that after I entered a word in column A1 the cursor selects B1
and
after that A2 (and so on: B2-A3-B3...)

I tried it with this code but there seems to be a problem with the
default
cursor movement. Who can help?

Many thanks
Bernd

Sub auto_open()
Application.OnEntry = "start"
End Sub

Sub start()
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Else
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
End If
End Sub