Notifications
Clear all

Ao clicar na célula

4 Posts
2 Usuários
0 Reactions
890 Visualizações
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Pessoal, boa tarde!

Preciso de uma ajuda:

Tenho uma planilha (anexo) e gostaria que ao selecionar (clicar) em determinada célula, ela leve o valor desta célula para outra planilha.

Exemplo:

Ao clicar na célula B11 da aba SUGESTÃO PARA UM HIPERLINK, leve o valor que estiver nela para a aba Tabela na célula F8.
Esse procedimento tem que ocorrer ao clicar em qualquer uma das células já preenchidas na aba.

Alguém pode me ajudar?

 
Postado : 06/11/2017 2:44 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Celri_33,

Boa tarde!

Bom... como você não especificou se o valor de qualquer das células da aba SUGESTÃO PARA UM HIPERLINK se for clicada (selecionada) também deveria ir para a célula F8 da aba Tabela, fiz apenas referente a célula B11. Todavia, isso é facilmente adaptável.

Veja aí e qualquer coisa é só falar.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/11/2017 3:40 pm
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Ola Wagner, bom dia!

É isso mesmo, como posso adaptar paras as células preenchidas da aba SUGESTÃO PARA UM HIPERLINK, para fazer a mesma coisa?

Eu copiei essa parte do código e fui alterando a célula, era isso mesmo ou tem um caminho mais fácil?

If Target.Address = "$B$11" Then
Sheets("Tabela").Range("F8").Value = Target.Value
End If
Application.EnableEvents = True

 
Postado : 07/11/2017 5:27 am
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Pessoal, como não obtive retorno de um modo mais facil de executar a tarefa acima mencionado, estarei fechando o tópico porque a resposta do Wagner foi satisfatória e consegui adaptar.

Wagner, obrigado!

 
Postado : 08/11/2017 6:22 am