markering efter enter

mener du at den skal vælge cellen til højre, efter at du har tastet ind ??.

Så sæt denne i modulet ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.Offset(0, 1).Activate ' går til højre efter indtastning,men kun hvis du har ændret i cellen
'Target.Offset(1, 0).Activate ' går nedad efter indtastning, men kun hvis du har ændret i cellen
End Sub

Hej Jan Vestergaard

Prøv med følgende VBA kode under hændelsen SheetChange i ThisWorkbook:
Udskift selv "EnterBehavior.xls" med navnet på den workbook, hvori du ønsker, at markeringen skal hoppe til højre efter ENTER.

-------


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'Hvis Workbook´en hedder "mit eget filnavn", så skal følgende gælde ..
If ThisWorkbook.Name = "EnterBehavior.xls" Then
   
    ThisWorkbook.Application.OnKey "{ENTER}", Target.Offset(0, 1).Activate
   
 
End If

End Sub


---------


Med venlig hilsen, Nicolai

Hej Jan

Jeg har også lige lært noget ;o) ... Så Kabbak skal ha´ pointene.


Go´  weekend, Nicolai

Indsæt følgende 2 koder i ThisWorkbook modulet i aktuel fil

Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
End Sub

Mange mange tak


jeg bruger excelent svar. da kabbak's ikke rigtig kan med de låset celler jeg har i arket

hvorfor kan jeg ikke give excelent point?
det er kun lalocin jeg kan "accepter dette svar"

Jan

Hej Jan

Når man hjælper herinde kan man vælge, at skrive et indlæg, som en "kommentar" eller et "svar" .... og det er kun "svar" indlæggende der kan honoreres med point.

Excelent mangler at give et "svar" indlæg ... men det kommer sikkert.
Når det sker, accepterer du blot ... og så er spørgsmålet lukket.

Med venlig hilsen, Nicolai

ok