hop 7 kolonner i samme række

Du kan bruge ActiveCell.Offset(0, 57).Range("A1").Select

Eller hvis det er kolonnen som du skriver: ActiveCell.Offset(0, 57).EntireColumn.Select

Eller ActiveCell.Range("G1").EntireColumn.Select (for at hoppe eksempelvis 7 kolonner).

Eller ActiveCell.Cells(1, 7).EntireColumn.Select

Flere?

Ja, det er lidt mere simple end mit.
virkemåden skal være: Hop fra en vilkålig celle, 7 celler tilbage.

jeg har brugt koden:

ActiveCell.Offset(0, -7).Select

men det går galt når man kommer "under" kolonne "A", f.eks hop fra "C4" her skal man så ende på "A4", så kommer den debug fejl

Det skulle også flettes ind i din eksisterende kode. Det var blot en erstatning af Range(Chr(ActiveCell.Column + 64 - 7) & ActiveCell.Row).Select

Hvad skal der ske hvis ikke der er plads?

hvad mener du?, hvis der ikke er plads?

Blot om hvad der skal ske hvis der ikke kan springes 7 trin tilbage. Jeg kan i din oprindelige kode se, at du så blot vælger kolonne A.

Så koden skal blot se sådan ud:

If (ActiveCell.Column - 7 < 1) Then
    Range("A" & ActiveCell.Row).Select
Else
    ActiveCell.Offset(0, -7).Select
End If

Ja, det har jeg også lavet, men jeg har jo også en der skal hoppe 10 celler op, og her går det også galt ved kolonne "AA"

kode:
  If (ActiveCell.Row - 10 < 1) Then
      ???
  Else
      ActiveCell.Offset(-10, 0).Select
  End If
End Sub

Skal du hoppe op og ned skal du bruge .column og ikke .row

Sludder...

Jo du skal. Blev lige lidt forvirret.

  If (ActiveCell.Row - 10 < 1) Then
    Cells(1, ActiveCell.Column).Select
  Else
      ActiveCell.Offset(-10, 0).Select
  End If

ja, selvfølgelig, tak for hjælpen

Den endelig kode ser således ud:
Sub shortup()
'
' shortup Macro
' Macro recorded 04-07-2007 by JML
' jump 10 rows up
' Keyboard Shortup: Ctrl+w
'
  If (ActiveCell.Row - 10 < 1) Then
    Cells(1, ActiveCell.Column).Select
  Else
      ActiveCell.Offset(-10, 0).Select
  End If
End Sub
Sub shortdown()
'
' shortdown Macro
' Macro recorded 04-07-2007 by JML
' jump 10 rows down
' Keyboard Shortcut: Ctrl+s
'
  ActiveCell.Offset(10, 0).Select

End Sub
Sub shortLeft()
'
' shortLeft Macro
' Macro recorded 04-07-2007 by JML
' jump 7 columns left
' Keyboard Shortup: Ctrl+q
'
  If (ActiveCell.Column - 7 < 1) Then
    Range("A" & ActiveCell.Row).Select
  Else
      ActiveCell.Offset(0, -7).Select
  End If
End Sub
Sub shortRight()
'
' shortRight Macro
' Macro recorded 04-07-2007 by JML
' jump 7 culomns right
' Keyboard Shortcut: Ctrl+e
'
  ActiveCell.Offset(0, 7).Select
   
End Sub

Tak for point :-)