Selecionar Célula específica depois de teclar ENTER

Question

Bom dia!

Preciso selecionar/ir para uma célula específica depois de teclar enter.

Ex.:

Após o preenchimento e teclar ENTER da célula "i22", a próxima célula a ser preenchida será a "K10".

Desde já agradeço a ajuda!

Abs,

RA

Answer 1

Boa noite, meu caro.

Vamos fazer o seguinte, vou dar uma resposta rápida para os itens que puder neste tópico e aí damos continuidade por email: usuariosdoexcel[arroba]gmail.com.

1. criar um botão que limpe/apague um intervalo de células. Ex.: A1:D20

Sub ClearRange()

Dim rngToClean As Range

Set rngToClean = [A1:A20]

rngToClean.ClearContents

End Sub

2. Criar um campo de busca onde a palavra/valor, seja localizado em toda pasta de trabalho.

Veja se esse código te atende: Link

3. Preencher uma célula automaticamente com o nome da ABA.  Ex.: "C10" com o nome da aba "CL0001"

Sub WriteSheetName()

Dim rngToWrite As Range

Dim wksToWrite As Worksheet

Set wksToWrite = Sheets("CL0001")

Set rngToWrite = wksToWrite.[C10]

rngToWrite = wksToWrite.Name

End Sub

4. Criar um botão que verifique se a célula L59 está em branco em todas as planilhas/abas "CL000N"

Esse demora um pouco mais por que tenho algumas dúvidas a esclarecer contigo...

5. Lembra do código que enviou que criar planilhas em ordem cronológica por cópia da planilha MODELO?

O jeito mais simples é colocar como primeira linha do código:

Sheets("MODELO").Visible = True

E como última linha:

Sheets("MODELO").Visible = False

6 e 7.

Também precisarei de mais informações...

Ufa! Acho que consegui responder bastante coisas aqui.

Então, por favor, marque o tópico como respondido e vamos continuar a conversa por email.

[ ]s

Answer 2

Fala meu Guru! rs... boa tarde!

Sempre tem amigo.. sempre tem! rs

Enfim, até esclarecendo um pouco o que estou criando, com sua ajuda é claro, trata-se de uma planilha para cadastro de clientes. Algo que seja de fácil utilização (meio q aprova de imbecil rs), e que consiga registrar todas as informações pertinentes ao negócio. Sei que o Excel tem sua limitações, mas para um trabalho inicial é suficiente.

Vamos lá! Para enfim finalizar esta planilha, pelo menos é o que espero (rs), preciso incluir estas funções:

1. criar um botão que limpe/apague um intervalo de células. Ex.: A1:D20
2. Criar um campo de busca onde a palavra/valor, seja localizado em toda pasta de trabalho. Não sei ao certo como isso se comportaria, tipo: Um vez o valor localizado, o código vai para a célula com o valor? No caso de mais de uma célula com este valor, o excel irá percorrer uma a uma?

Este seria o campo e a pesquisa seria ativada depois do ENTER.

3. Preencher uma célula automaticamente com o nome da ABA.  Ex.: "C10" com o nome da aba "CL0001"
4. Criar um botão que verifique se a célula L59 está em branco em todas as planilhas/abas "CL000N", e caso afirmativo, retorne o valor da célula K34 (preenchida com end de email) de cada aba/planilha "CL000N", coloque-os um abaixo do outro (iniciado na célula A4 da planilha/aba ativa), e através desta relação, envie um email com o assunto e texto (corpo do email), pré definidos (PS. não sei se é possível de ser feito por excel. Sei que é necessário configurar um servidor de SMTP para isso). Uma opção também seria abrir o outlook e incluir todos estes endereços como destinatários.

Ex.:

End.: ******@hotmail.com; assunto: Entrar em contato; Corpo do email: Favor entrar em contato com urgência.

5. Lembra do código que enviou que criar planilhas em ordem cronológica por cópia da planilha MODELO? Então, tem como alterar esse código para que copie a planilha MODELO estando oculta? Quando oculto a planilha, o código cria uma nova planilha oculta (ex.: MOLDELO 1), e renomeia a última planilha da pasta de trabalho.

Sub New_Cliente()

'Declarar variável

Dim intCount As Integer

'Copiar o valor da célula A1 da planilha Oculta

intCount = Sheets("Oculta").[A1]

'Criar uma cópia da planilha MODELO

Sheets("MODELO").Copy After:=Sheets(ThisWorkbook.Sheets.Count)

'Renomear a cópia com CL + Sequencial numérico

ActiveSheet.Name = "CL" & Format(intCount + 1, "0000")

'Adicionar uma unidade à célula A1 da planilha Oculta

Sheets("Oculta").[A1] = intCount + 1

End Sub

6. Inserir nesse código acima, a criação uma pasta no computador (C:\Cadastro), onde esta pasta seja nomeada com o nome da ABA (CL0001, etc).
7. Criar um botão, que abra esse local/pasta criada (C:\Cadastro\CL0001). Lembrando que esse botão será incluído na planilha MODELO, então ele deverá seguir também a ordem cronológica.

Ex.:

• ABA/Planilha CL0001, botão deve abrir a pasta C:\Cadastro\CL0001;
• ABA/Planilha CL0002, botão deve abrir a pasta C:\Cadastro\CL0002;

etc...

Bem... acho que é isso rsrs..

Sei que é bastante coisa.. mas se tiver um tempo e poder ajudar, agradeço muito!

Abs,

RA

Answer 3

Boa tarde, Rafael.

Atendendo à demanda pontual, o código (evento de planilha) a seguir deve bastar:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$I$22" Then [K20].Select

End Sub

Mas suspeito que haja mais detalhes..... rsrsrs.

Se houver, pode enviá-los que providencio as adaptações

Abraços!