Página 1 de 1
Botão para acrescentar um nome na próx. cel. vazia de coluna
Enviado: 09 Set 2019 às 19:54
por andrebrandao
Olá
Criei uma aba com botões com vários nomes. A ideia é, ao clicar num desses botões, acrescentar o respetivo nome na próxima célula vazia de uma coluna na aba seguinte.
Julgo que tenho que associar uma macro a cada botão para que o nome seja acrescentado na próxima célula vazia da coluna.
Alguém pode ajudar?
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 09 Set 2019 às 22:02
por fcarlosc2018
Boa noite
Segue exemplo...!
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 09 Set 2019 às 23:26
por Jimmy
Olá Andre,
Teste a planilha abaixo, e veja se te atende.
Eu fiquei na dúvida de qual a coluna que deveria receber o nome, e achei que era a "A". Caso seja outra, entre no editor do VBA, entre em MODULO 1, e altere o "A" em vermelho, abaixo, pela coluna.
Sheets("Dados").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Nome
pergunta: Na coluna B você quer o dia de hoje, sempre, ou quer que a data fique congelada no dia em que o nome foi incluido? Da forma que está a fórmula, sempre que abrir a planilha, a data será sempre atualizada para o dia atual.
Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.
Jimmy San Juan
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 10 Set 2019 às 05:49
por andrebrandao
fcarlosc2018 escreveu:Boa noite
Segue exemplo...!
Obrigado! Vou testar.
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 10 Set 2019 às 05:53
por andrebrandao
Jimmy escreveu:Olá Andre,
Teste a planilha abaixo, e veja se te atende.
Obrigado pela resposta. Penso que se esqueceu do anexo.
Eu fiquei na dúvida de qual a coluna que deveria receber o nome, e achei que era a "A". Caso seja outra, entre no editor do VBA, entre em MODULO 1, e altere o "A" em vermelho, abaixo, pela coluna.
Era mesmo a coluna A.
Sheets("Dados").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Nome
pergunta: Na coluna B você quer o dia de hoje, sempre, ou quer que a data fique congelada no dia em que o nome foi incluido? Da forma que está a fórmula, sempre que abrir a planilha, a data será sempre atualizada para o dia atual.
Tem razão! A ideia é a data ficar congelada no dia em que o nome foi incluído...
Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.
Jimmy San Juan
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 10 Set 2019 às 10:41
por Jimmy
Olá André,
Desculpe!! Esqueci mesmo.
Segue.
Jimmy San Juan
Botão para acrescentar um nome na próx. cel. vazia de coluna
Enviado: 10 Set 2019 às 11:12
por Jimmy
Agora de tarde vou colocar outra versão, que fixa a data.
O que acha de dar um Beep quando cada botão for teclado. Acho estranho clicar em um botão e não ver nada acontecer. Vou colocar o beep pra você ver como fica.
Jimmy San Juan
Botão para acrescentar um nome na próx. cel. vazia de coluna
Enviado: 10 Set 2019 às 19:23
por andrebrandao
Não me tinha lembrado, mas o beep é boa ideia!
Obrigado!
Re: Botão para acrescentar um nome na próx. cel. vazia de co
Enviado: 10 Set 2019 às 21:03
por Jimmy
Olá,
Segue a nova versão, com data fixa e beep. O beep ficou um pouco irritante, mas não sei qual será a frequência de cliques nos botões, logo, é melhor você avaliar.
Alterei a macro, que agora está bem mais simples. Todos os botões acionam a mesma macro, e o texto do botão que a acionou, irá para a outra planilha. Veja se isso te atende, ou se necessitará que o nome a ser colocado na outra planilha não necessariamente será o mesmo que o título do botão. Se for o caso, mudamos.
Jimmy San Juan