Página 1 de 1
Macro para copiar uma célula conforme o valor digitado
Enviado: 07 Dez 2016 às 18:25
por Waltricke
Boa tarde amigos!
Preciso de um macro que me permita o seguinte:
Estou anexando uma planilha de teste, apenas como exemplo. Nela, eu vou inserir manualmente valores na célula D4 (destacada). Os valores que vou colocar nessa célula serão números de 1 a 9.
O que eu preciso é que, toda vez que eu digitar um número nesta célula, ele se torne o caractere especial correspondente, conforme relacionados na coluna B.
Se esta pergunta já tiver sido respondida em algum outro tópico peço desculpas, pois sou iniciante aqui no fórum.
Agradeço muito qualquer ajuda.
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 07 Dez 2016 às 20:46
por Niltoncsp
Não entendi.
Se eu digitar, por exemplo, o número 7, o que deseja que ocorra?
Niltoncsp
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 07 Dez 2016 às 20:57
por gfranco
Boa noite.
Veja se o anexo ajuda.
At
gfranco.
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 08 Dez 2016 às 05:40
por DJunqueira
Solução alternativa.
Macro para copiar uma célula conforme o valor digitado
Enviado: 08 Dez 2016 às 09:38
por Waltricke
Amigos gfranco e Djunqueira, muito obrigado! É exatamente isso o que eu queria. Mas, visto que esta planilha se trata de um simples EXEMPLO, eu preciso que me mostrem como fizeram, pois vou aplicar isso na planilha definitiva que estou desenvolvendo.. Quando eu tento visualizar a macro na planilha de vocês, não aparece nada...
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 08 Dez 2016 às 09:47
por gfranco
Bom dia.
Para visualizar o procedimento clique com o botão direito no nome da planilha e selecione EXIBIR CÓDIGO.
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 08 Dez 2016 às 11:09
por DJunqueira
Waltricke escreveu:Amigos gfranco e Djunqueira, muito obrigado! É exatamente isso o que eu queria. Mas, visto que esta planilha se trata de um simples EXEMPLO, eu preciso que me mostrem como fizeram, pois vou aplicar isso na planilha definitiva que estou desenvolvendo.. Quando eu tento visualizar a macro na planilha de vocês, não aparece nada...
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Plan1.Range("D4")) Is Nothing Then
Target.Value = Plan1.Range("B" & Target.Value + 3).Value
End If
End Sub
Re: Macro para copiar uma célula conforme o valor digitado
Enviado: 13 Fev 2019 às 10:55
por Waltricke
A todos os amigos que responderam este tópico, gostaria de agradecê-los! Vcs são feras!
Obrigado de verdade pela boa disposição de vcs em ajudar.
Peço desculpas por não ter respondido ou encerrado o tópico quando ele foi resolvido. Eu estava aprendendo ainda a usar o site aqui e foi erro meu em não ter finalizado. Desculpem, não foi ingratidão.
Um grande abraço amigos!