Nao entendi entao... ja que ia sugerir justamente o que vc disse. Seja mais especifico do pq nao atende.

No final do código cole a linha abaixo.

ActiveCell.Offset(0, 1).Activate

No final do código cole a linha abaixo.

ActiveCell.Offset(0, 1).Activate

Nao acho que seja isso que ele queira.

Confesso que também não entendi...

Boa tarde ,
Senhores , vou tentar exemplificar melhor .

DESCRIÇÃO VALOR DATA OBSERVAÇÃO

FRUTARIA 10 03/11/2015 NAO CONSTA
SUPERMERCADO 10 03/11/2015 NAO CONSTA
AÇOUGUE 10 03/11/2015 NAO CONSTA
PADARIA 10 03/11/2015 NAO CONSTA
PAPELARIA 10 03/11/2015 NAO CONSTA

Esse exemplo acima é um modelo simples , mais o que eu uso são mais 10 colunas de preenchimento,entao pensei numa macro para fazer isso , quando eu preencher a descriçaõ e dar enter , ja selecionasse a coluna do lado , que no caso é o valor .em vez de dar enter e selecionar a linha de baixo que no caso é o padrao do excel.

Mas no caso teria de ser uma macro mesmo , pois a configuração avancada do excel não daria , pois se eu ativar essa funcao na minha maquina aqui MAQUINA 1, E eu for em outra maquina , mesmo sendo na rede , e se o excel dessa maquina não tiver configurado para a seta ser a direita o mesmo não funciona .

Obrigado .
Att,

Whats ?

Uma macro ?
Se vai digitar, porque não aperta TAB ? Oo

clique na guia arquivo
clique em opções
clique em avançado
vá em opções de edição
a primeira opção

Depois de pressionar Enter,mover seleção

o padrão está para baixo, é só mudar para esquerda
conforme a imagem abaixo

Clique em agradecer

Senhores , muito obrigado ...
tem hora que a gente imagina que uma coisa dê certo . pensei que a macro iria funcionar , mais o nosso amigo deu uma dica muito importante e certa, 'TAB " , infelizmente não lembrava . Obrigado a todos . vlew

marciobin,

Boa Tarde!

Como você (ou outro usuário qualquer)poderá utilizar o seu mesmo arquivo em outra máquina (que não está configurada para após o ENTER mover o cursor para a Direita, você configura o Workbook_Open do seu arquivo para qua ao iniciar o arquivo (seja em que máquina for), automaticamente ele configure o cursor para ir para a direita após o ENTER, como no código abaixo.

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

No arquivo anexo, já está feito dessa forma. Para testar, configure seu Excel aí na sua máquina para ficar na forma padrão de fábrica. Ou seja: Cursor se deslocando para baixo quando se tecla ENTER. Em seguida, abra o arquivo anexe e teste. Verá que agora o cursor se deslocará para a direita.

Veja se assim lhe atende.