Como copiar o valor da Caixa de Combinação para a célula ativa no Excel?
Em alguns casos, poderá precisar de copiar o valor selecionado numa Caixa de Combinação diretamente para a célula ativa. Normalmente, isso exigiria aceder à Caixa de Combinação e copiar manualmente o valor para colá-lo na célula ativa. Este artigo apresenta um método prático que atualiza automaticamente a célula ativa sempre que seleciona um novo valor na Caixa de Combinação.
Copiar o valor da Caixa de Combinação para a célula ativa com código VBA
VBA 1: Copiar valor da caixa de combinação para a célula ativa através de um Botão de Comando
VBA 2: Copiar automaticamente o valor da caixa de combinação para a célula ativa
Copiar o valor da Caixa de Combinação para a célula ativa com código VBA
Os códigos VBA abaixo permitem copiar automaticamente o valor da caixa de combinação para a célula ativa. Basta seguir os passos indicados.
VBA 1: Copiar valor da caixa de combinação para a célula ativa através de um Botão de Comando
1. Em primeiro lugar, insira um Botão de Comando na folha de cálculo, tal como mostrado na imagem seguinte.
2. Clique com o botão direito do rato no botão de comando e, em seguida, clique em Ver Código no menu de contexto. Veja a imagem:
3. Na janela que surge, Microsoft Visual Basic for Applications, substitua o código original na janela de Código pelo seguinte código VBA.
Código VBA: Copiar valor da Caixa de Combinação para a célula ativa
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End SubNota: No código, CommandButton1 é o nome do botão de comando inserido e ComboBox1 é o nome da caixa de combinação a partir da qual irá copiar o valor. Ajuste-os conforme necessário.
4. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
A partir de agora, sempre que precisar copiar o valor da caixa de combinação para a célula ativa, basta selecionar a célula e clicar no Botão de Comando para concluir a operação.
VBA 2: Copiar automaticamente o valor da caixa de combinação para a célula ativa
O seguinte código VBA permite atualizar automaticamente a célula ativa ao selecionar valores numa Caixa de Combinação. Siga os passos abaixo.
1. Certifique-se de que o modo Design está ativado no separador Programador.
2. Clique com o botão direito do rato na Caixa de Combinação a partir da qual irá copiar o valor e, em seguida, clique em Ver Código no menu de contexto. Veja a imagem:
3. Na janela que surge, Microsoft Visual Basic for Applications, substitua o código original na janela Código pelo seguinte código VBA.
Código VBA: Copiar valor da Caixa de Combinação para a célula ativa
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End SubNota: No código, ComboBox1 é o nome da caixa de combinação a partir da qual irá copiar o valor.
4. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications e desativar o modo de estrutura no separador Programador.
A partir de agora, ao selecionar um valor na Caixa de Combinação, esse registo será exibido automaticamente na célula ativa.
Artigos relacionados:
- Como exibir o formato de data na saída da caixa de combinação no Excel?
- Como ocultar ou mostrar um botão de comando com base num valor específico de uma célula no Excel?
- Como abrir uma folha de cálculo específica com base no valor selecionado numa caixa de combinação no Excel?
- Como impedir ou desativar a escrita numa caixa de combinação no Excel?
- Como sair da caixa de combinação utilizando a tecla Tab para selecionar uma célula específica no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos