offset naar nieuwe regel als column verborgen is

[Samsung6713]

Goedeavond,

Ik heb een stukje code van internet geplukt om met vba een comboboxdropdown te activeren bij gegegevensvalidatie.

Nu is dit een stukje code die daarvan onderdeel is om met tab naar de volgende cell te gaan.

Private Sub TempCombo_KeyDown(ByVal _
        KeyCode As MSForms.ReturnInteger, _
        ByVal Shift As Integer)
    Select Case KeyCode
        Case 9 'Tab
            ActiveCell.Offset(0, 1).Activate
        Case 13 'Enter
            ActiveCell.Offset(1, 0).Activate
        Case Else
            'do nothing
    End Select
End Sub

Hoe kan ik het zo maken zodra er een kolom verborgen is de offset naar de volgende rij gaat?
Ik hoop dat iemand mij kan helpen.

 

[edmoor]

En welke kolom heb je het dan over?
De kolom waar de Tab naar toe zal gaan?

Zoiets dan:

Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9 [COLOR="#008000"]'Tab[/COLOR]
            If Columns(ActiveCell.Offset(0, 1).Column).Hidden Then
                ActiveCell.Offset(1, 0).Activate
            Else
                ActiveCell.Offset(0, 1).Activate
            End If
        Case 13 [COLOR="#008000"]'Enter[/COLOR]
            ActiveCell.Offset(1, 0).Activate
        Case Else
            'do nothing
    End Select
End Sub

 

[Samsung6713]

Ja, dit werkt.
Bedankt weer Edmoor!