GOTO a specific cell, based on another cell's data

Sue_G 

Als Makro kann ich Ihnen das anbieten:

sub jump()
if Range ("A1"). value <> "Joe" then Range ("J1"). select
end sub 

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

Sue_G 

If, by chance, you want it to return to column A after keying the data in another column, then you could change this part:

If Intersect(Target.Cells(1), Me.Range("A:A")) Is Nothing Then
     Exit Sub
End If

to:

     With Target
          If Intersect(.Cells(1), Me.Range("A:A")) Is Nothing Then
               With .Cells(.Cells.Count)
                    If .Row < Me.Rows.Count Then
                         Intersect(.Offset(1, 0).EntireRow, Me.Range("A:A")).Select
                    End If
               End With
               
               Exit Sub
               
          End If
     End With

Sue_G 

You will need a macro for that. If you right click on your worksheet and copy/paste this code into the code window that appears, then I believe it should work.

You will need to add the additional names to the code (the "case" statement). But, you should be able to just copy/paste one of the other entries, then change the name and the destination column.

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim destCol As Range
     
     On Error GoTo ErrHandler
     
     If Intersect(Target.Cells(1), Me.Range("A:A")) Is Nothing Then
          Exit Sub
     End If
     
     Select Case LCase(Target.Cells(1).Value)
          Case vbNullString: Exit Sub
          Case "joe": Set destCol = Me.Range("J:J")
          Case "mary": Set destCol = Me.Range("H:H")
          
          '//  Add additional names here. Here, the names should
          '//  be in lowercase, but the user can key them in any case.
          
          Case Else: Err.Raise Number:=vbObjectError + 520, Description:="Name not recognized."
          
     End Select
          
     If Not destCol Is Nothing Then
          Intersect(Target.Cells(1).EntireRow, destCol).Select
     End If
     
ExitProc:
     Exit Sub
     
ErrHandler:
     MsgBox "Error " & Err.Number & ": " & Err.Description
     Resume ExitProc
          
End Sub