Avatar billede mrkr Juniormester
29. oktober 2008 - 22:18 Der er 2 kommentarer og
1 løsning

springe til næste celle ved enter

Jeg har en makro der sørger for at når jeg har indtastet en værdi i kolonne B eller C, så hopper den automatisk 2 celler mod højre.

Det virker også fint hvis jeg retter i kolonne B eller kolonne C.
Men hvis jeg blot ENTER mig forbi cellen uden at ændre/indtaste i cellen gør den ikke det ønskede.

Er der nogen der kan se hvordan koden skal skrives?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fejl

If Intersect(Target, Range("B3:B500")) Is Nothing Then exit sub
Target.Offset(0, 2).Select

If Intersect(Target, Range("C3:C500")) Is Nothing Then exit sub
Target.Offset(0, 2).Select

fejl:
End Sub
Avatar billede jkrons Professor
29. oktober 2008 - 22:23 #1
Hvis du ikke indtaster noget ændres arket ikk,e og derfor udløses hændelsen Worksheet_Change slet ikke. Jeg kender ikke umiddelbart en hændelse, som kan træde i stedet.
Avatar billede mugs Novice
29. oktober 2008 - 22:23 #2
ENTER mig forbi cellen uden at ændre/indtaste

Så er cellen jo nothing

og så siger denne linie:

If Intersect(Target, Range("B3:B500")) Is Nothing Then exit sub

At sub skal forlades. Så betingelsen for at springe 2 celler mod højre er jo ikke opfyldt.
Avatar billede mrkr Juniormester
18. januar 2009 - 12:23 #3
lukker igen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester