title: Offset to different column after entering data in cell
body: <p>I have two tables. Both tables are the same size, located in columns I:X and AB:AQ (offset by 19 columns start-to-start).</p>
  
  <p>I want when I enter a number in a cell within the left table, to go 19 columns to the right after pressing enter. Then, once entering text into the active cell in the right table, return 19 cells to the left table.  </p>
  
  <p>I found <a href="https://stackoverflow.com/questions/15952263/go-to-a-particular-cell-after-inputting-data-in-another-cell-and-hitting-enter-o">this question/answer</a>, but I wasn't able to apply it.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo Whoa
  
      Application.EnableEvents = False
  
      If Not Target.Cells.CountLarge &gt; 1 Then
          If Not Intersect(Target, Columns(9)) Is Nothing Then
              Target.Offset(, 19).Select
          ElseIf Not Intersect(Target, Columns(10)) Is Nothing Then
              Target.Offset(, 19).Select
          ElseIf Not Intersect(Target, Columns(11)) Is Nothing Then
              Target.Offset(, 19).Select
          ElseIf Not Intersect(Target, Columns(12)) Is Nothing Then
              Target.Offset(, 19).Select
  'etc...  
          ElseIf Not Intersect(Target, Columns(42)) Is Nothing Then
              Target.Offset(, -19).Select
          ElseIf Not Intersect(Target, Columns(43)) Is Nothing Then
              Target.Offset(, -19).Select
          End If
      End If
  Letscontinue:
      Application.EnableEvents = True
      Exit Sub
  Whoa:
      MsgBox Err.Description
      Resume Letscontinue
  End Sub
  </code></pre>
  
  <p>As an alternative, if it can recognize that the cell entered is within columns I:X and just offset 19 columns after pressing enter (and then the reverse), this would be fine.</p>
  
  <p>A second alternative, if it is easier, changing the function of the <strong>Page Up</strong> and <strong>Page Down</strong> keys, I would not need to check which column I am in.</p>
  
  <p>Lastly, this should only work on a particular sheet <strong>Tracking</strong>.</p>