O mesmo código para mais de um botão  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

O mesmo código para mais de um botão

Mensagempor OrlandoS » Qui Jan 18, 2018 12:15 am

.
Minha dúvida é simples.
Já pesquisei aqui e não encontrei.
É possível atribuir um mesmo código no VBAProject para mais de um botão na planilha?
A intenção é não estar repetindo (copiando e colando) no VBAProject o mesmo código
para cada CommandButton?_Click() que eu queira utilizar em diferentes páginas na planilha.

Se for possível, como devo fazer.

Grato pela atenção!
Orlando Souza

:geek:
PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir" na fonte de link informada, agradecendo ao colaborador do código/fórmula. Eu já fiz a minha parte! :] #DFDBDB
Avatar do usuário
OrlandoS
Membro
Membro
 
Mensagens: 77
Registrado em: Sáb Jan 09, 2016 4:02 pm
Has thanked: 33 times
Have thanks: 3 times

{ SO_SELECT }

Re: O mesmo código para mais de um botão

Mensagempor Reinaldo » Qui Jan 18, 2018 2:07 am

Em principio e possível, porem ser saber o que quer fazer, como onde e quando ........
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4234
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1933 times

Re: O mesmo código para mais de um botão  [Resolvido]

Mensagempor Osvaldomp » Qui Jan 18, 2018 7:12 am

É possível com Botão de Formulário (Botão 1, não CommandButton1 - ActiveX). Se esta for uma solução viável para você:

1. desenhe um Botão de Formulário na planilha, associe o botão criado a uma macro
2. em seguida basta copiar/colar o botão quantas vezes você quiser, na própria ou em outras planilhas, as cópias do botão estarão associadas à macro
Osvaldo

For this post the author Osvaldomp thanked:
OrlandoS (Qui Jan 18, 2018 6:58 pm)
Osvaldomp
Membro
Membro
 
Mensagens: 505
Registrado em: Seg Mar 26, 2012 6:33 pm
Has thanked: 99 times
Have thanks: 259 times

Re: O mesmo código para mais de um botão

Mensagempor leandroxtr » Qui Jan 18, 2018 7:19 am

Coloque o código em uma macro e chame-os nos botões com o comando Call. Exemplo:

Tenho uma macro com o código chamado "Executa". Depois basta ir nos botões, no evento click e digitar "Call Executa". Dessa forma voce vai evitar ter que copiar o mesmo código em dois botões.

Abraço!
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro
Avatar do usuário
leandroxtr
Membro
Membro
 
Mensagens: 448
Registrado em: Ter Nov 29, 2016 9:51 am
Localização: Belo Horizonte/MG
Has thanked: 40 times
Have thanks: 125 times

Re: O mesmo código para mais de um botão

Mensagempor Mauro Coutinho » Qui Jan 18, 2018 8:35 am

Se for "CommandButton" do tipo ActiveX pode-se utilizar o "WithEvents" e definir o que pretende em uma unica rotina para todos, mas como o Reinaldo já comentou, precisa ver o que realmente tem em mente.

Segue um modelinho básico:
WithEvents CommandButton_Click
Fonte: https://stackoverflow.com/questions/466 ... -code?rq=1

WithEvents CommandButton_Click.rar


[]s
Você não está autorizado a ver ou baixar esse anexo.
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3934
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1447 times

Re: O mesmo código para mais de um botão

Mensagempor OrlandoS » Qui Jan 18, 2018 5:25 pm

.
Reinaldo escreveu:Em principio e possível, porem ser saber o que quer fazer, como onde e quando ........


Mauro Coutinho escreveu:(...) como o Reinaldo já comentou, precisa ver o que realmente tem em mente. (...)


Olá, pessoal!

Segue um código-exemplo repetido para os três botões:

Código: Selecionar todos
Private Sub CommandButton11_Click()
       
        ' Imprimir somente a seleção atual
        ActiveWindow.RangeSelection.PrintOut
       
End Sub

Private Sub CommandButton12_Click()
       
        ' Imprimir somente a seleção atual
        ActiveWindow.RangeSelection.PrintOut
       
End Sub

Private Sub CommandButton13_Click()
       
        ' Imprimir somente a seleção atual
        ActiveWindow.RangeSelection.PrintOut
       
End Sub



Bem como a sua imagem no editor do VBAProject:

Repetição do código...jpg


Alguém pode até perguntar, por que não usar o recurso "Congelar Linha Superior" disponível no Excel, e inserir um botão nas linhas fixas.
Mas o que pretendo é inserir, após cada 5 páginas, botões no lado direito de uma tabela, usando o mesmo código em cada um deles, sem estar
repetindo esse código no VBAProject.

Vou estudar as sugestões respondidas neste tópico.

abçs.
Você não está autorizado a ver ou baixar esse anexo.
PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir" na fonte de link informada, agradecendo ao colaborador do código/fórmula. Eu já fiz a minha parte! :] #DFDBDB
Avatar do usuário
OrlandoS
Membro
Membro
 
Mensagens: 77
Registrado em: Sáb Jan 09, 2016 4:02 pm
Has thanked: 33 times
Have thanks: 3 times

Re: O mesmo código para mais de um botão

Mensagempor OrlandoS » Qui Jan 18, 2018 6:57 pm

Osvaldomp escreveu:É possível com Botão de Formulário (Botão 1, não CommandButton1 - ActiveX). Se esta for uma solução viável para você:

1. desenhe um Botão de Formulário na planilha, associe o botão criado a uma macro
2. em seguida basta copiar/colar o botão quantas vezes você quiser, na própria ou em outras planilhas, as cópias do botão estarão associadas à macro


Deu certo!! Muito obrigado!

Agradeço tb a atenção de todos!!

:)
PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir" na fonte de link informada, agradecendo ao colaborador do código/fórmula. Eu já fiz a minha parte! :] #DFDBDB

For this post the author OrlandoS thanked:
Osvaldomp (Qui Jan 18, 2018 7:05 pm)
Avatar do usuário
OrlandoS
Membro
Membro
 
Mensagens: 77
Registrado em: Sáb Jan 09, 2016 4:02 pm
Has thanked: 33 times
Have thanks: 3 times

Re: O mesmo código para mais de um botão

Mensagempor klarc28 » Qui Jan 18, 2018 8:14 pm

Marque como resolvido
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: fcarlosc, Google [Bot] e 4 visitantes