Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#17204
Olá Pessoa,

Gostaria de saber como após dar "Enter" ir para células específicas.
Fiz um formulário (não userform), e gostaria de ao dar enter fosse para as células específicas, para parecer mesmo com um formulário.
Aproveitando... Como é um formulário, se tiver como já ao abrir a planilha, a célula tivesse já posicionada numa determinada célula, ex: D8. Assim, ao dar "Enter", fosse para D10, F10, J10, D15, F15, D17 e assim sucessivamente.
obrigado
Edson
#17206
Bom dia.
Primeiro selecione TODAS AS CÉLULAS que serão editadas ( ou seja, as que serão digitadas no uso da planilha).
Faça isso segurando a tecla CTRL para seleções múltiplas intercaladas.
Pressione CTRL +1.
Na guia PROTEÇÃO desmarque a opção BLOQUEADAS.
Proteja a planilha ( Guia Revisão,Grupo Alterações, Proteger planilha).
Informe uma senha (se assim desejar) e desmarque a opção "Selecionar células bloqueadas". DÊ OK
Pronto. Ao pressionar o enter, o cursor irá para a próxima célula desbloqueada.
Agora vá em arquivo -->> opções -->> avançado.
Em opções de edição selecione na opção após pressionar o enter mover para direita ( esse procedimento é porque na descrição da sua pergunta eu entendi que vc quer que o cursor se mova da esquerda pra direita e de cima para baixo).
Por fim, para abrir a pasta de trabalho diretamente em uma determinada célula, será preciso o seguinte:
ALT + F11 para abrir o vb
Á esquerda da janela, dê um botão direito em "ESTA PASTA DE TRABALHO" e selecione EXIBIR CÓDIGO".
Depois clique na palavra GERAL e selecione WORKBOOK.
Geralmente abre direto a propriedade OPEN e vai ficar assim:

Private Sub Workbook_Open()

End Sub


então vc vai escrever no meio disso o seguinte:

sheets("nome da sua planilha entre essas aspas").select
range("d8").select
Então vai ficar assim:

Private Sub Workbook_Open()
sheets("nome da sua planilha entre essas aspas").select
range("d8").select
End Sub
#17207
Nota:
A célula "D8" OBRIGATORIAMENTE tem que estar entre aquelas que estão marcadas como DESBLOQUEAR.
E o nome da planilha tem que ser escrito EXATAMENTE como é ......MAIÚSCULA E minúscula FAZ DIFERENÇA nesse caso!.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord