Skifte til ny placering med tastetryk

Jeg kan ikke sætte den på + tasten på nummeris tastatur, men jeg kan sætte den på enter tasten, den med knækket pil

ThisWorkbook modulet

Private Sub Workbook_Open()
Application.OnKey "~", "FlytCelle" ' enter tasten, den med knækket pil
End Sub

I et modul

Public Sub Flytcelle()
If ActiveSheet.Name = "Ark1" Then ' bremser koden til dette ark
R = ActiveCell.Row
Cells(R + 1, 2).Activate
End If
End Sub

Tusind tak - hvordan sætter den den ind, nu hvor der er sat en kode ind i forvejen. Såvidt jeg kan se er der desuden to koder ovenfor. Hvordan håndterer jeg det. Jeg ved absolut intet om den slags koder, men så er det jo fedt at få hjælp!

vh. Historiker

I Regnearket tastes ALT +F11
nu er du i VBA editoren
Der hvor der står ThisWorkbbook dobbeltklikker du på.
Nu får du modulet under ThisWorkbbook og i toppen af skærmen står [ThisWorkbbook (Code)].

der skal denne sættes ind:

Private Sub Workbook_Open()
Application.OnKey "~", "FlytCelle" ' enter tasten, den med knækket pil
End Sub

Hvis du har et mondul, i forvejen med kode, skal den anden sættes ind der,
ellers skal du oprette et modul, det gøres ved at vælge insert på menulinien og deri vælg module

Public Sub Flytcelle()
If ActiveSheet.Name = "Ark1" Then ' bremser koden til dette ark
R = ActiveCell.Row
Cells(R + 1, 2).Activate
End If
End Sub

Luk VBA editoren på det øverste venstre X
Gem arket
Luk Excel
Åben arket igen, så skulle det virke

Det har jeg nu gjort. Dvs. indsat de to koder to steder. Jeg bruger koderne i samme ark som du hjalp med med den anden kode forleden, så der står nu to koder under hinaden i arket.
Efter at have lukket arket ned og starten igen kører jeg test. Den kommer med fejl når jeg trykket på enter tasten: "The macro ..... flyt celle cannot be found"

Har du idé om hvad er kan være galt?

Har du sat makroen Public Sub Flytcelle()
i et rigtig modul.

Til venstre i VBA editoren, skal det hedde Modul1 eller Module1et, eller et andet nummer til sidst.

Hvis der ikke er en med dette navn oprettes den, ved at vælge insert på menulinien og deri vælg module

Den må ikke være i et ark modul eller i ThisWorkbbook modulet.