Tabbing through list boxes

[RedJames]

Hello,

I am creating a form in Excel 2007/XP. I have a series of list boxes that I would like users to be able to tab and type to make selections. Right now when I hit tab (or an arrow key) while in the list box it does nothing. Anyone know if it is possible to tab from one list box to the next?

Thanks!

 

[RedJames]

Sorry, one more question. How would I change that code if I wanted to tab from a list box to a cell?

 

[Rick Rothstein]

Sorry, one more question. How would I change that code if I wanted to tab from a list box to a cell?

Change the If..Then block for the "last" ListBox to this...

  If KeyCode = vbKeyTab Then
    ActiveCell.Select
  End If

The above code reactivates the cell that was active when the fist ListBox was entered. If you have a particular cell you want activated instead, for example A1, then change ActiveCell to a reference to that cell...

Range("A1").Select

 

[RedJames]

Thank you so much Rick. You are a lifesaver.

 

[RedJames]

I am trying to invert this code to go from a cell to a list box. I have tried this, but it doesn't work. It is wanting me to change something about the ("B14") Any thoughts?

Private Sub Range("B14")_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
    Me.ListBox5.Activate
  End If
End Sub

 

[RedJames]

The error message I am getting is Compile error: Expected: identifier if that helps

 

[RedJames]

I would also love to be able to take this code:

Private Sub ListBox5_Click()
Dim IsYes As Boolean
IsYes = Me.ListBox5.Value = "Yes"
Me.ListBox6.Enabled = IsYes
Me.ListBox7.Enabled = IsYes
End Sub

and if yes, tab into list box 6, If no tab to List Box 9.


I know I'm asking a lot, but I do REALLY appreciate all the help!

 

[RedJames]

It keeps highlighting the "B14" in this code and giving the compile error "expected: identifier" I'm really confused at why this is not a valid identifier.

Private Sub Range("B14")_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
    Me.ListBox5.Activate
  End If
End Sub