Ne visai teisingai veikia (lagina per viena Enter paspaudima), bet gali 
pabandyti pazaisti su kazkuo panasiu. Nera kada daugiau gilintis. :)

Koda reikia nukopinti i sheet'o langa VBA editoryje.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Application.MoveAfterReturnDirection = xlToRight
    Else
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub




"Name" <aaaa@bbbb.cc> wrote in message 
news:jrekrv$a4r$1@trimpas.omnitel.net...
> Sveiki,
> kaip EXCEL VBA parasyti koda, kad jei tam tikrame stulpelyje paspaudus ant 
> bet kokios celes ENTER klavisa, butu atliekamas ne standartinis veiksmas, 
> o kaip pvz. perejimas i desineje puseje esancia cele (suveiktu ARROW RIGHT 
> klaviso komanda).
>
> Aciu.
>