Como criar um Botão de Comando para copiar e colar dados no Excel?
Imagine que precisa frequentemente de copiar um intervalo de células para outro local após alterar os dados; o método manual de copiar e colar rapidamente se torna entediante e demorado. Como automatizar esta tarefa? Este artigo mostra-lhe como utilizar um botão de comando para copiar e colar dados com apenas um clique.
Criar um Botão de Comando para copiar e colar dados com código VBA
Criar um Botão de Comando para copiar e colar dados com código VBA
Siga os passos abaixo para copiar e colar dados automaticamente ao clicar num Botão de Comando.
1. Insira um Botão de Comando clicando em Programador > Inserir > Botão de Comando (Controlo ActiveX). Veja a imagem:
2. Desenhe um Botão de Comando na sua folha de cálculo e clique com o botão direito do rato. Selecione Ver Código no menu de contexto.
3. Na janela Microsoft Visual Basic para Aplicações que surge, substitua o código original na janela de código pelo seguinte código VBA.
Código VBA: Utilizar um Botão de Comando para copiar e colar dados no Excel
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End SubNota: No código, CommandButton1 é o nome do seu botão de comando inserido. A1:C17 é o intervalo que pretende copiar e J1:L17 é o intervalo de destino onde os dados serão colados. Ajuste-os conforme necessário.
4. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações e desative o Modo de Estrutura no separador Programador.
5. Agora, ao clicar no Botão de Comando, todos os dados do intervalo A1:C17 serão copiados e colados no intervalo J1:L17, sem a formatação das células.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como salvar e fechar a pasta de trabalho atual sem aviso prévio através de um botão de comando no Excel?
- Como manter um Botão de Comando sempre visível na folha de cálculo do Excel?
- Como atualizar ou inserir a data e hora atuais através de um botão de comando no Excel?
- Como utilizar um Botão de Comando para alterar o valor de uma célula específica no Excel?
- Como utilizar um Botão de Comando para guardar a folha ativa como ficheiro PDF no Excel?
- Como inserir automaticamente uma nova linha em branco ao clicar num Botão de Comando 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