Excel 2010 - Enter text into cell, meet 1 of 4 possible conditions, and upon TAB or ENTER, skip to another column in same row automatically.

[Rognab]

Excel 2010 - Enter text into cell, meet 1 of 4 possible conditions, and upon TAB or ENTER, skip to another column in same row automatically.

Example:
Enter data "abc" into cell C28, and upon TAB or ENTER send cursor automatically to G28.
OR if "def" had been entered, then jump to H28. Etc.
There are 4 dropdown values in C28 to select from.

 

[NoSparks]

Try right clicking the sheet tab, selecting View Code and pasting this into the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address = "$C$28" Then
        Select Case Target.Value
            Case "abc"
                Cells(Target.Row, "G").Select
            Case "def"
                Cells(Target.Row, "H").Select
            Case "ghi"
                Cells(Target.Row, "I").Select
            Case "jkl"
                Cells(Target.Row, "J").Select
        End Select
    End If

End Sub

 

[Rognab]

Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Address = "$C$28" Then Select Case Target.Value Case "abc" Cells(Target.Row, "G").Select Case "def" Cells(Target.Row, "H").Select Case "ghi" Cells(Target.Row, "I").Select Case "jkl" Cells(Target.Row, "J").Select End Select End If End Sub

This worked perfectly.

I noticed that the range was specified at the beginning.
Do I need to redifine the the range to be sure all rows are included or just pull the handles down?
This code needs to apply to every row.

And you have my most appreciative thanks.

 

[NoSparks]

I hope the comments in this code explains use of this event macro, you only need one of the three

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.CountLarge > 1 Then Exit Sub
    
    ' for single cell use like
    'If Target.Column = "C$28" Then
    
    ' for entire column use like
    'If Target.Column = 3 Then
    
    ' for a specific range use like
    If Not Intersect(Target, Range("C10:C30")) Is Nothing Then
    
        Select Case Target.Value
            Case "abc"
                Cells(Target.Row, "G").Select
            Case "def"
                Cells(Target.Row, "H").Select
            Case "ghi"
                Cells(Target.Row, "I").Select
            Case "jkl"
                Cells(Target.Row, "J").Select
        End Select
    End If

End Sub

Hope that helps

 

[Rognab]

I hope the comments in this code explains use of this event macro, you only need one of the three

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.CountLarge > 1 Then Exit Sub
   
    ' for single cell use like
    'If Target.Column = "C$28" Then
   
    ' for entire column use like
    'If Target.Column = 3 Then
   
    ' for a specific range use like
    If Not Intersect(Target, Range("C10:C30")) Is Nothing Then
   
        Select Case Target.Value
            Case "abc"
                Cells(Target.Row, "G").Select
            Case "def"
                Cells(Target.Row, "H").Select
            Case "ghi"
                Cells(Target.Row, "I").Select
            Case "jkl"
                Cells(Target.Row, "J").Select
        End Select
    End If

End Sub

Hope that helps

Yes, All is working well. Your solution was spot on.
I am most appreciative.

 

[NoSparks]

You're welcome, glad to have helped.