Flytte til anden celle

Hej

Jeg har nu søgt flere gange på Goggle og her fået
at vide det ikke kan lade sig gøre.

Jeg gik derefter i tænkeboks og kom frem til
følgende løsning.

I ThisWorkBook lægges denne kode:

Private Sub Workbook_Open()
    Application.OnKey "{DOWN}", "FlytAutomatiskVedPilNed"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{DOWN}", ""
End Sub

Koden ændrer betydningen af at trykke på pil ned.

"FlytAutomatiskVedPilNed" ser således ud:

Sub FlytAutomatiskVedPilNed()
    If ((ActiveSheet.Name = "Ark1") Or _
        (ActiveSheet.Name = "Ark2")) Then
      If ((ActiveCell.Row = 17) Then
        If ((ActiveCell.Column > 1) And _
            (ActiveCell.Column < 10)) Then
          ActiveCell.Offset(-4, 1).Activate
        Else
'         Flyt selv 1 celle ned
          ActiveCell.Offset(1, 0).Activate
        End If
      Else
'       Flyt selv 1 celle ned
        ActiveCell.Offset(1, 0).Activate
      End If
    Else
'     Flyt selv 1 celle ned
      ActiveCell.Offset(1, 0).Activate
    End If
End Sub

Koden virken på den måde at hvis man er på Ark1
eller Ark2, i Row 17 og i Column 1 til 9 og derefter
trykker pil ned flyttes markeringen 1 celle til
højre og 4 celler op.
Det er vigtigt at man husker koden for 'Flyt selv
1 celle ned' for ellers virker pil ned IKKE som
normalt på andre ark.