VBA code inkorten? enter in comboboxen

[markwat]

is het mogelijk om de ComboBoxen in 1 formule te plaatsen? 1 t/m 91

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox2.Activate
 End If
 End If
End Sub
Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox3.Activate
 End If
 End If
End Sub
Private Sub ComboBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox4.Activate
 End If
 End If
End Sub
Private Sub ComboBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox5.Activate
 End If
 End If
End Sub
Private Sub ComboBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox6.Activate
 End If
 End If
End Sub
Private Sub ComboBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox7.Activate
 End If
 End If
End Sub
Private Sub ComboBox7_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox8.Activate
 End If
 End If
End Sub
Private Sub ComboBox8_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If Shift = 1 Then
 Else
 If (KeyCode = 13) Or (KeyCode = 9) Then
 ComboBox9.Activate
 End If
 End If
End Sub

 

[OctaFish]

Je zult toch elke combobox apart moeten triggeren dus heel veel zal je er niet mee opschieten. Maar je kunt de acties wel een stuk simpeler maken.

Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    CheckComboBox 3
End Sub

Private Function CheckComboBox(Combo As Integer, ByVal KeyCode As Integer, ByVal Shift As Integer)
    If Not Shift = 1 Then
    If (KeyCode = 13) Or (KeyCode = 9) Then Me("ComboBox" & Combo).Activate
    End If
End Function

 

[markwat]

dat kost mij in ieder geval wat minder tijd.
Dankje wel!

 

[markwat]

Dit heb ik er uiteindelijk van gemaakt Check lukte niet helemaal.

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox2.Activate
End Sub

 

[HSV]

Zet het in een klassenmodule.
Code voor de klassenmodule genaamd "Klasse1".

Option Explicit
Public WithEvents ComboBoxEvents As MSForms.ComboBox


Private Sub ComboBoxEvents_Keyup(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If Not Shift = 1 Then
       If KeyCode = 13 Or KeyCode = 9 Then
     ComboBoxEvents.SetFocus
   End If
End If
End Sub

Code in je Userform.

Option Explicit
Public ComboCollection As New Collection


Private Sub UserForm_Initialize()
Dim ctl As Control
    For Each ctl In Controls
        If TypeOf ctl Is MSForms.ComboBox Then
            ComboCollection.Add New Klasse1, ctl.Name
            Set ComboCollection.Item(ctl.Name).ComboBoxEvents = ctl
        End If
    Next
    
End Sub


Private Sub UserForm_Terminate()
 Set ComboCollection = Nothing
End Sub

 

[markwat]

Beste Harry

Het is niet in een UserForm maar in een sheet genaamd InvoerSheet.

 

[snb]

Dan kan het ook met een klasse:

zie: http://www.snb-vba.eu/VBA_Sheet_ActiveX_controle.html

 

[markwat]

Dank je wel allemaal!!

 

[markwat]

Ik heb toch deze codes genomen maar hij springt bij elke toets aanraking naar de volgende box.. en graag wil ik dit bij enter alleen.

Private Function ComboBox(Combo As Integer, ByVal KeyCode As Integer, ByVal Shift As Integer)
    If Not Shift = 1 Then
    If (KeyCode = 13) Or (KeyCode = 9) Then Me("ComboBox" & Combo).Activate
    End If
End Function

Private Sub ComboBox91_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox1.Activate
End Sub
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox2.Activate
End Sub
Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox3.Activate
End Sub

 

[HSV]

Lijkt me vrij logisch als ik naar de onderste code kijk.
Het komt nl. niet bij de eerste code.

 

[markwat]

nee sorry de eerste code is er later bij gemaakt. en moest ik 91 geven.
maar bij elke toets aanraking springt hij over naar de volgende ComboBox.
Het zijn er 91 in het totaal.

 

[snb]

Waarom zet je in de combobox (als dropdownlist: style=2) niet alleen maar geldige waarden ?
Achteraf moeizaam checken is dan overbodig.