Makro der skifter til cellen til højre.

sæt denne i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, 1).Select
'If Target.Column = 4 Then Target.Offset(1, -1).Select' tilbage til c
End Sub

nb.  skal du ikke tilbage til C kolonnen efter D, så fjern' foran linjen

Sub Next_cell
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

sæt linjen ind efter din "Enter / Scan"

Tak for svarene, men jeg kan desværre ikke få det til at virke...
Jeg må hellere tilføje at det er i Excel 2003 det skal bruge, jeg ved ikke om det gør en forskel.

kabbak; Din makro kan jeg simpelthen ikke få til at virke hos mig... Jeg er grøn i det her, og laver måske en fejl jeg ikke ved af.

lokesa; Jeg kan få det til at virke hvis jeg går ind og afspiller makroen direkte. Jeg tror ikke jeg forstår hvad du mener med at sætte linjen ind efter mit "Enter/Scan"
Tanken er at makroen kun skal gøre det ønskede når jeg befinder mig i en af cellerne fra C5 til C25. Hvordan fortæller jeg den det samtidig?

I må meget undskylde hvis jeg er for blank, men jeg håber det er meningen med denne side ;)
Jeg er meget taknemlig for jeres hjælp.

Mvh. Arnebirger

Husk at koden skal ind i arkets modul, ikke andre steder.

højreklik på arkfanen og vælg vis progrankode, der skal den ind.

Kabbak.
Det ser faktisk ud til at jeg får det til at virke nu ;)
Jeg vil gerne give dig point, men tillader mig lige et tillægs-spørgsmål...

Jeg har nu lavet en sregkode med ordet NY.

Kan jeg tilføje i din kode at når ordet NY scannes i kolonne D, så flyttes den aktive celle en plads til venstre, altså til kolonne C, samtidig slettes ordet NY så det ikke kan ses.

Jeg kan evt oprette dette spørgsmål i en ny tråd hvis det er bedre?

Mvh. Arnebirger

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, 1).Select
If Target.Column = 4 Then
if target ="NY" then
Target = ""
Target.Offset(0, -1).Select' tilbage til c
else
Target.Offset(1, -1).Select' tilbage til c
End Sub

Hmm..
Nu har jeg sat den ind, men får så følgende fejlmeddelelse når jeg scanner noget:

Compile error:
Block If without End If

min fejl ;-))

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, 1).Select
If Target.Column = 4 Then
if target ="NY" then
Target = ""
Target.Offset(0, -1).Select' tilbage til c
else
Target.Offset(1, -1).Select' tilbage til c
end if
End Sub

Jeg får samme fejlkode igen?

prøver igen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, 1).Select
    If Target.Column = 4 Then
        If Target = "NY" Then
            Target = ""
            Target.Offset(0, -1).Select ' tilbage til c
      Else
            Target.Offset(1, -1).Select ' tilbage til c
        End If
    End If
End Sub

Sådan ja.

Lige først drillede den lidt, men så kiggede jeg lidt, og tillod mig at fjerne linien:

Else
            Target.Offset(1, -1).Select ' tilbage til c

Og så virkede det perfekt for mig.

Mange tak for hjælpen.
Arnebirger

Point til kabbak.

tak