code to tab to a specific cell

[tonylpcs@yahoo.co.uk]

Hi everyone,

can someone please give me a code so i can tab into a specific cell?

when im in cell c5 i want to be able to hit the tab button and go to cell k9,

can i do this?

please help

thanks

Tony

 

[ADAMC]

I am by no means an expert but this may help get you started at least

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
Range("K9").Activate
End If
End Sub

right click sheet tab choose view code and paste the code above in the vbe window which appears.
this is a change event so is triggered whenever cell C5 is edited..would work with shift key/ enter key etc as long as C5 is in edit mode.

Hope its a start!

 

[tonylpcs@yahoo.co.uk]

Hi mate,

thanks,

I with have a bit of a play about but looks like it will get me where i need to go, so thanks for your help.

tony

 

[ADAMC]

No problems any issues just post back I'm certain someone will help you.

(Everything I learnt I learnt from here)

 

[Jaafar Tribak]

Or maybe something along these lines :

Place in the worksheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        Application.OnKey "{TAB}", Me.CodeName & ".HookTabKey"
    Else
        Application.OnKey "{TAB}"
    End If
End Sub
Private Sub Worksheet_Deactivate()
    Application.OnKey "{TAB}"
End Sub

Private Sub HookTabKey()
    Me.Range("K9").Activate
End Sub

 

[taurean]

If you are really intent on doing this when you hit TAB key then try something like:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{TAB}", "[B][I]Sheet1.[/I][/B]MoveToAddress" 'Change to sheet name
End Sub
Public Sub MoveToAddress()
If ActiveCell.Address = "$C$5" Then
Range("K9").Activate
End If
End Sub