Custom Tabs

[neilsinc]

Is there a way of selecting a custom tab order on a worksheet?

I want to create a tab order of C12 - H12 - M12 - R12 - W12 - C13 - H13 - M13 etc

I found a solution of sorts, but it only seemed to create the tab order for a certain number of cells. Is there a way of doing it any number of cells?

 

[royUK]

- Select each cell that you want the users to be able to tab to and unlock it by:
-Format Cells. Select the protection tab and uncheck the locked check box.
- Protect the sheet and this should enable the tab key to jump to the next unprotected cell.

 

[neilsinc]

- Select each cell that you want the users to be able to tab to and unlock it by:
-Format Cells. Select the protection tab and uncheck the locked check box.
- Protect the sheet and this should enable the tab key to jump to the next unprotected cell.

Sorry, should've said, that won't work as I have cells inbetween that need to be unlocked.

To give you an idea of what i have, it is a golf scorecard and player one has his first 9 scores in cells c12-c20 and his second 9 scores in e12-e20. Player 2 has his first 9 scores in h12-h20 and his second 9 scores in j12-j20.

I would need the tabbing to go from c12-h12-c13-h13 etc. When they get to the second 9 holes, the tabbing would continue as e12-j12-e13-j13.

Does that make sense?

 

[AlphaFrog]

Try something like this. You will probably have to modify it further to suit your needs.

[COLOR=darkblue]Sub[/COLOR] Assign_Tab_Key()
    Application.OnKey "{TAB}", "Custom_Tab_Order"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
[COLOR=darkblue]Sub[/COLOR] Restore_Tab_Key()
    Application.OnKey "{TAB}"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
Sub Custom_Tab_Order()
    [COLOR=darkblue]Select[/COLOR] [COLOR=darkblue]Case[/COLOR] ActiveCell.Column
        [COLOR=darkblue]Case[/COLOR] 3, 8, 13, 18: ActiveCell.Offset(, 5).Select    [COLOR=green]'Next tab order column number C H M R[/COLOR]
        [COLOR=darkblue]Case[/COLOR] 23: Range("C" & ActiveCell.Row + 1).Select     [COLOR=green]'Last Tab order column wrap around to frist column  W-->C[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Select[/COLOR]
[COLOR=darkblue]End[/COLOR] Sub

Assign_Tab_Key traps the tab key press and runs the macro Custom_Tab_Order

Restore_Tab_Key restores the tab key press to normal use.

Custom_Tab_Order defines the column select order when the tab key is pressed.

 

[neilsinc]

Try something like this. You will probably have to modify it further to suit your needs.

[COLOR=darkblue]Sub[/COLOR] Assign_Tab_Key()
    Application.OnKey "{TAB}", "Custom_Tab_Order"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
[COLOR=darkblue]Sub[/COLOR] Restore_Tab_Key()
    Application.OnKey "{TAB}"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
Sub Custom_Tab_Order()
    [COLOR=darkblue]Select[/COLOR] [COLOR=darkblue]Case[/COLOR] ActiveCell.Column
        [COLOR=darkblue]Case[/COLOR] 3, 8, 13, 18: ActiveCell.Offset(, 5).Select    [COLOR=green]'Next tab order column number C H M R[/COLOR]
        [COLOR=darkblue]Case[/COLOR] 23: Range("C" & ActiveCell.Row + 1).Select     [COLOR=green]'Last Tab order column wrap around to frist column  W-->C[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Select[/COLOR]
[COLOR=darkblue]End[/COLOR] Sub

Assign_Tab_Key traps the tab key press and runs the macro Custom_Tab_Order

Restore_Tab_Key restores the tab key press to normal use.

Custom_Tab_Order defines the column select order when the tab key is pressed.

That doesn't seem to work. Unless I'm adding it into the wrong place

 

[AlphaFrog]

Put all of it in a standard code module e.g.; Module1

Run Assign_Tab_Key once to initiate it.

Then select any cell in one of these columns (C H M R W) and press the tab key