Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.

Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.

Hello Gary from Steved

Yes and I thankyou, Could you please make a modification so when it goes
back to Column A which I require it drops down a cell as for example Cell A8
to Cell A9

Thankyou for taking timeout on my issue.



"Gary''s Student" wrote:

Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.

Hello From Steved

n = Target.Row + 1

Did what I required.

Thankyou.

"Steved" wrote:

Hello Gary from Steved

Yes and I thankyou, Could you please make a modification so when it goes
back to Column A which I require it drops down a cell as for example Cell A8
to Cell A9

Thankyou for taking timeout on my issue.



"Gary''s Student" wrote:

Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.

Good Job !!
--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello From Steved

n = Target.Row + 1

Did what I required.

Thankyou.

"Steved" wrote:

Hello Gary from Steved

Yes and I thankyou, Could you please make a modification so when it goes
back to Column A which I require it drops down a cell as for example Cell A8
to Cell A9

Thankyou for taking timeout on my issue.



"Gary''s Student" wrote:

Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.

Thankyou.

"Gary''s Student" wrote:

Good Job !!
--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello From Steved

n = Target.Row + 1

Did what I required.

Thankyou.

"Steved" wrote:

Hello Gary from Steved

Yes and I thankyou, Could you please make a modification so when it goes
back to Column A which I require it drops down a cell as for example Cell A8
to Cell A9

Thankyou for taking timeout on my issue.



"Gary''s Student" wrote:

Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.