Ved Enter i kolonne K flyt markering til kolonne A række()+1

noget i denne stil, men den skifter altid hvis du kommer længere end K kolonnen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 11 Then
        Cells(Target.Row + 1, 1).Activate
    End If
End Sub

Den kan desværre ikke bruges i mit tilfælde, da der ikke er mulighed for at komme længere end til kolonne 11 (K). Resten af kolonnerne er skjult og låst (i beskyttelse).

Årsagen til at den ikke automatisk flytter ned er, at jeg har en celle K1 som jeg ikke har låst og som anvendes til et input fra en makro.

Hvis din sub kunne tilpasses så den ved Enter i kolonne 11 aktivere:

      Cells(Target.Row + 1, 1).Activate

Hilsen

TVC

Jeg kan tilpasse til den med knækket pil på, men ikke den Enter ved det numeriske tastatur.
Koderne skal i et modul.

kør makroen test, og prøv så at bruge den Enter, med knækket pil.


Public Sub test()
Application.OnKey "~", "Flyt"
End Sub

Public Sub Flyt()
ActiveCell.Offset(0, 1).Activate
    If ActiveCell.Column >= 11 Then
        Cells(ActiveCell.Row + 1, 1).Activate
    End If
End Sub

Den driller desværre. Funktionen giver ikke mulighed for at redigere i kolonne K inden den flytter.

Det virker fint med knækpil, men funktionen flyt skal først aktiveres når man står i kolonne K og trykker på knækpil.

fjern = i denne linje
  If ActiveCell.Column >= 11 Then

så den ser sådan ud
  If ActiveCell.Column > 11 Then

Super nu virker den!

Jeg har lagt Application.OnKey "~", "Flyt" ind i ThisWorkbook under Workbook_WindowActivate og det virker fint.

Der er nu blot et lille problem - hvordan får jeg annuleret Application.OnKey "~", "Flyt" så knækpil igen virker normalt. Vil sætte denne ind under Workbook_WindowDeactivate?

Lægger du et svar samtidig med?

Fandt løsningen:

Application.OnKey "~"

lægger du et svar og i øvrigt mange tak for hjælpen!

;-))