View Single Post
  #11   Report Post  
Posted to microsoft.public.excel.programming
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default MACRO QUESTION ????

Steven

It is sheet event code and runs when data is entered into the cells in the
aTabOrd Array

Right-click on the sheet tab and "View Code"

Copy/paste the code into that sheet module.

Adjust ranges to suit then Alt + q to return to the Excel window.


Gord


On Thu, 14 Aug 2008 11:38:14 -0700 (PDT), wrote:

On Aug 14, 12:29*pm, Gord Dibben <gorddibbATshawDOTca wrote:
Private Sub Worksheet_Change(ByVal Target As Range)
'Anne Troy's taborder event code
* * Dim aTabOrd As Variant
* * Dim i As Long

* * *'Set the tab order of input cells
* * aTabOrd = Array("A5", "B2", "C5", "A10", "B3", "C10")

* * *'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

Gord Dibben *MS Excel MVP

On Thu, 14 Aug 2008 07:14:16 -0700, JAYC099

wrote:
No, it was an example, I have several cells on my document that I need to
jump from left to right and top to bottom...
Thx


"Tim" wrote:


if it is always just those two, you could lock all the other cells (ie,
without using VBA)


"JAYC099" wrote in message
...
HI, I NEED TO KNOW HOW TO MOVE FROM : C5 TO D8 BY PRESSING TAB A SINGLE
TIME


Gord:

How do you run this code? I can't seem to activate it.


Steven