[afdmello]

Is there a keyboard shortcut to go to the lower row when entering data in
table
the tab key moves the cursor to the next horizontal cell.

Afd

[Doug Robbins - Word MVP]

Insert the following macro into your normal.dot (or dotm) template and it
will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column before
moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count Then
Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
..Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber) + _
1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering data in
table
the tab key moves the cursor to the next horizontal cell.

Afd

[afdmello]

Thank you Robbins for the effort and I truly appreciate your time and help.
Unfortunately, I know nothing about VBA and will have to start learning it.

Afd
"Doug Robbins - Word MVP" wrote in message
...
Insert the following macro into your normal.dot (or dotm) template and it
will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column before
moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count Then
Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
.Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber) + _
1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering data in
table
the tab key moves the cursor to the next horizontal cell.

Afd

[Graham Mayor]

No learning required - see http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



afdmello wrote:
Thank you Robbins for the effort and I truly appreciate your time and
help. Unfortunately, I know nothing about VBA and will have to start
learning it.
Afd
"Doug Robbins - Word MVP" wrote in message
...
Insert the following macro into your normal.dot (or dotm) template
and it will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column
before moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count
Then Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
.Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber)
+ _ 1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering
data in table
the tab key moves the cursor to the next horizontal cell.

Afd

[Guy Lydig]

I am sorry if this is too obvious but you do know that you can use the down
arrow, right?

"afdmello" wrote:

Thank you Robbins for the effort and I truly appreciate your time and help.
Unfortunately, I know nothing about VBA and will have to start learning it.

Afd
"Doug Robbins - Word MVP" wrote in message
...
Insert the following macro into your normal.dot (or dotm) template and it
will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column before
moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count Then
Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
.Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber) + _
1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering data in
table
the tab key moves the cursor to the next horizontal cell.

Afd

[Doug Robbins - Word MVP]

But when you get to the bottom of the column, the selection will not be
moved to the top of the next column as is what happens with the macro when
the tab key is used to move the selection.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"Guy Lydig" wrote in message
...
I am sorry if this is too obvious but you do know that you can use the down
arrow, right?

"afdmello" wrote:

Thank you Robbins for the effort and I truly appreciate your time and
help.
Unfortunately, I know nothing about VBA and will have to start learning
it.

Afd
"Doug Robbins - Word MVP" wrote in message
...
Insert the following macro into your normal.dot (or dotm) template and
it
will hijack the use of the tab key in a table
so that it does what you want:

Sub NextCell()
'
' NextCell Macro
' Moves to the next table cell
' Modified by Doug Robbins to move to the next cell in the column
before
moving to
'the next column
With Selection.Tables(1)
If Selection.Information(wdEndOfRangeRowNumber) .Rows.Count
Then
Selection.MoveDown
ElseIf Selection.Information(wdEndOfRangeColumnNumber) _
.Columns.Count Then
.Cell(1, Selection.Information(wdEndOfRangeColumnNumber) + _
1).Select
Selection.Collapse wdCollapseStart
Else
MsgBox "You have reached the end of the table."
End If
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"afdmello" wrote in message
...
Is there a keyboard shortcut to go to the lower row when entering data
in
table
the tab key moves the cursor to the next horizontal cell.

Afd