Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketFlyt cursor efter data er tastet
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Miltoft Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 03.Jun.2021
Land: Danmark
Status: Offline
Point: 10 		Direkte link til dette indlæg Emne: Flyt cursor efter data er tastet
    Sendt: 08.Jun.2021 kl. 15:47
Hej med Jer :)

Jeg sidder med et større excel ark, der gerne skulle optimeres. Een af optimeringerne er, at Excel selv skal flytte cursoren til næste celle der skal tastes noget i. Jeg kunne lave det for en enkelt linie, men mine evner rækker ikke til at få dem til at gælde for hele arket.

Kan I evt. hjælpe mig?



Koden der kører lige nu ser ud som følger:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "D31" Then
Range("J31").Select
End If
If Target.Address = "J31" Then
Range("O31").Select
End If
If Target.Address = "O31" Then
Range("P31").Select
End If
If Target.Address = "P31" Then
Range("V31").Select
End If
If Target.Address = "V31" Then
Range("X31").Select
End If
If Target.Address = "X31" Then
Range("AC31").Select
End If
If Target.Address = "AC31" Then
Range("D32").Select
End If

End Sub



Mvh. Daniel
Til top



Til top
Miltoft Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 03.Jun.2021
Land: Danmark
Status: Offline
Point: 10 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 14.Jun.2021 kl. 12:22
Denne er løst på anden vis :)
Til top
Mads32 Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 26.Feb.2016
Land: Danmark
Status: Offline
Point: 1317 		Direkte link til dette indlæg Sendt: 10.Jun.2021 kl. 18:21
Hej

Du kan løse det ved at ændre på Exel-indstillinger. Der kan man vælge at markren flyttes til højre når der tastes "Enter"

Vælg "Filer", "Indstillinger"; "Avanceret". I "Redigerings muligheder" sættes "V" ved "efter tryk på Enter, flyttes markøren til". I boksen kan du vælg "Højre"

m v h mads32
Til top
Miltoft Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 03.Jun.2021
Land: Danmark
Status: Offline
Point: 10 		Direkte link til dette indlæg Sendt: 10.Jun.2021 kl. 18:28
Hej Mads,

Mange tak for dit svar. Desværre er det ikke den funktion jeg er ude efter. For cursoren skal springe forskellige antal kolonner over, og den skal ramme direkte i disse celler prompte. 

Det er for at minimere antal af klik med musen, samt indstastninger.

Mvh. Daniel
Til top
Miltoft Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 03.Jun.2021
Land: Danmark
Status: Offline
Point: 10 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 14.Jun.2021 kl. 12:22
Denne er løst på anden vis :)
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76 		Direkte link til dette indlæg Sendt: 05.Aug.2021 kl. 14:42
Du kan prøve med denne kode-





Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo 100
Dim Område As Range
Dim kolonne As Long
Dim Række As Long
Set Område = Range("A2:L20")



Application.EnableEvents = False



If Not Intersect(ActiveCell, Område) Is Nothing Then

kolonne = ActiveCell.Column
Række = ActiveCell.Row

If kolonne = 12 Then

kolonne = 1
Række = Række
Else:


kolonne = kolonne + 1
Række = Række - 1
End If

If Række < 20 Then

Cells(Række, kolonne).Select



End If

End If


Application.EnableEvents = True
GoTo 150
100
Application.EnableEvents = True
150
Exit Sub
End Sub
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk