Comments on: Tab Order of Cells

By: Jim

Jim — Tue, 07 Feb 2012 06:47:31 +0000

Thanks I will give it a try.

By: Dick Kusleika

Dick Kusleika — Mon, 06 Feb 2012 13:38:32 +0000

Jim: You may have run into a limit using the line continuation character rather than an array limit. Rewrite you code so that you’re filling the array one by one rather than using the Array function. Like this

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aTabOrd(1 To 12) As String
Dim i As Long

'Set the tab order of input cells
aTabOrd(1) = "B1": aTabOrd(2) = "B2": aTabOrd(3) = "B3": aTabOrd(4) = "H1"
aTabOrd(5) = "H2": aTabOrd(6) = "H3": aTabOrd(7) = "C6": aTabOrd(8) = "G6"
aTabOrd(9) = "B7": aTabOrd(10) = "B8": aTabOrd(11) = "B9": aTabOrd(12) = "E9"

'Loop through the array of cell address
For i = LBound(aTabOrd) To UBound(aTabOrd)
'If the cell that’s changed is in the array
If aTabOrd(i) = Target.Address(0, 0) Then
'If the cell that’s changed is the last in the array
If i = UBound(aTabOrd) Then
'Select first cell in the array
Me.Range(aTabOrd(LBound(aTabOrd))).Select
Else
'Select next cell in the array
Me.Range(aTabOrd(i + 1)).Select
End If
End If
Next i

End Sub

By: Jim

Jim — Sun, 05 Feb 2012 03:36:54 +0000

Tray do you know if there is a maximum on the cells that can be in the tab order. I have a spreadsheet with 180 cells I need to add to the tab order. I have entered 147 cells and it will not allow me to add any more. I also tried the underscore you have at the end of each row but get a code error.
Thanks

By: Tray

Tray — Tue, 31 Jan 2012 17:05:35 +0000

Seems I had some code issues. Fixed it with the help of others.
Fixed Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aTabOrd As Variant
Dim i As Long

'Set the tab order of input cells
aTabOrd = Array("B1", "B2", "B3", "H1", "H2", "H3", "C6", "G6", "B7", "B8", "B9", "E9", _
"G9", "A11", "B11", "C11", "I11", "A12", "A15", "B15", "H15", "A16", "B16", "H16", "A17", _
"B17", "H17", "A18", "B18", "H18", "A19", "B19", "H19", "A20", "B20", "H20", "A21", "B21", _
"H21", "A22", "B22", "H22", "A23", "B23", "H23", "A24", "B24", "H24", "I26", "I28", "A26")

'Loop through the array of cell address
For i = LBound(aTabOrd) To UBound(aTabOrd)
'If the cell that’s changed is in the array
If aTabOrd(i) = Target.Address(0, 0) Then
'If the cell that’s changed is the last in the array
If i = UBound(aTabOrd) Then
'Select first cell in the array
Me.Range(aTabOrd(LBound(aTabOrd))).Select
Else
'Select next cell in the array
Me.Range(aTabOrd(i + 1)).Select
End If
End If
Next i

End Sub

By: Tray

Tray — Tue, 31 Jan 2012 01:36:25 +0000

I have a simple excel invoice sheet that I am working on for a friend. He wants the tab order changed while in protected mode; I have unlocked the cells that he wants to fill in. I will be glad to email the spreadsheet out to anyone willing to look at it. I am far from a VB guy, so any help would be great.
These are the directions I followed:
On the sheet for which you want to set the tab order, right-click the sheet tab and hit View Code. This opens the Visual Basic Editor (VBE).
Paste the code into the code window that appears at right.
Edit the Array line in the code to suit your tab order.
Hit the Save diskette and close the VBE.
Save and close your Excel workbook.

Here are two of the codes I tried:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aTabOrder As Variant
Dim i As Long

‘Set the tab order of input cells
aTabOrder = Array (“B1?, “B2?, “B3?, “H1?, “H2?, “H3?, “C6?, “G6?, “B7?, “B8?, “B9?, “E9?, “G9?, “A11?, “B11?, “C11?, “I11?, “A12?, “A15?, B15?, “H15?, “A16?, “B16?, “H16?, “A17?, “B17?, “H17?, “A18?, “B18?, “H18?, “A19?, “B19?, “H19?, “A20?, “B20?, “H20?, “A21?, “B21?, “H21?, “A22?, “B22?, “H22?, “A23?, “B23?, “H23?, “A24?, “B24?, “H24?, “I26?, “I28?, “A26?)

‘Loop through the array of cell address
For i = LBound(aTabOrder) To UBound(aTabOrder)
‘If the changed cell is in the array
If aTabOrder(i) = Target.Address(0, 0) Then
‘If the changed cell is the last array element
If i = UBound(aTabOrder) Then
‘Select the first cell in the array
Me.Range(aTabOrder(LBound(aTabOrder))).Select
Else
‘Select the next cell in the array
Me.Range(aTabOrder(i + 1)).Select
End If
End If
Next i

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim aTabOrd As Variant
Dim i As Long

‘Set the tab order of input cells
aTabOrd = Array(“B1″, “B2″, “B3″, “H1″, “H2″, “H3″, “C6”, “G6”, “B7”, “B8”, “B9”, “E9”, “G9”, “A11”, “B11”, “C11”, “I11”, “A12”, “A15”, B15”, “H15”, “A16”, “B16”, “H16”, “A17”, “B17”, “H17”, “A18”, “B18”, “H18”, “A19”, “B19”, “H19”, “A20”, “B20”, “H20”, “A21”, “B21”, “H21”, “A22”, “B22”, “H22”, “A23”, “B23”, “H23”, “A24”, “B24”, “H24”, “I26”, “I28”, “A26”)

‘Loop through the array of cell address
For i = LBound(aTabOrd) To UBound(aTabOrd)
‘If the cell that’s changed is in the array
If aTabOrd(i) = Target.Address(0, 0) Then
‘If the cell that’s changed is the last in the array
If i = UBound(aTabOrd) Then
‘Select first cell in the array
Me.Range(aTabOrd(LBound(aTabOrd))).Select
Else
‘Select next cell in the array
Me.Range(aTabOrd(i + 1)).Select
End If
End If
Next i

End Sub

I will be glad to email the spreadsheet out to anyone willing to look at it. I am far from a VB guy, so any help would be great.

Thanks,
Tray

By: Jim

Jim — Tue, 20 Sep 2011 20:32:00 +0000

Tabbing through doesn't seem to work for Excel 2010 like it did for Excel 2003.

When I tab through, it will only go through a few of the unprotected cells. When I move the cursor (click or arrow key) to one of the other unprotected cells, it will then proceed to the rest of them. But starting from the top it again only cycles through a few cells.

Glitch? Feature to be turned off?

By: Bob Phillips

Bob Phillips — Tue, 13 Oct 2009 09:08:00 +0000

Bruce, it is not hard event code.

Send me a copy of the workbook, I will take a crack ... bob at xldynamic dot com

By: Bruce

Bruce — Mon, 12 Oct 2009 18:54:00 +0000

This is all greek to me and maybe I am in the wrong forum. My boss is old fashioned an still does scheduling by hand (stubby pencil). I created a spreadsheet for him using four cells and a diagonal line across two of them (top right (D7)/lower left (C8)) to look like the form he is using. Begin shift time is in top left (C7) and end time in lower right (D8) and I have a bazillion on the page to make up two weeks (14 columns)worth of work and up to 30 employees (Rows). Each day for each employee is 4 cells as described above. When I Tab or Enter from C7 I would like for the next cell to be D8 and then C9 and then D10 and so on until I reach the end of the two weeks and then start over at C9 and then D10 for the next employee. Is this possible with a third grade education and having already had 7 beers? If not, will $1.40 get one of you to do it for me? I didnt think so. Help, please!

By: Wayne

Wayne — Tue, 16 Sep 2008 09:22:00 +0000

Zik, you can do that just by changing the options in excel.

When pressing the enter button it can go either down or right.

By: Zik

Zik — Sat, 18 Sep 2004 21:15:00 +0000

I am using a digital gage, with SPC Cable and connection to my computer. My application requires me to measure click a button on the gage and the measurment will be input in excel, the problem i'm having is that i want the active cell selection to move to the next horizontal cell, instead of cell below. In other words if i input data in a cell and then hit enter i want it to work as if i hit tab.

Thanks