Notifications
Clear all

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

8 Posts
5 Usuários
0 Reactions
1,863 Visualizações
OrlandoS
(@orlandos)
Posts: 104
Estimable Member
Topic starter
 

.
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! :]

 
Postado : 17/01/2018 10:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/01/2018 12:07 am
(@osvaldomp)
Posts: 857
Prominent Member
 

É 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

 
Postado : 18/01/2018 5:12 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

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

 
Postado : 18/01/2018 5:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/01/2018 6:35 am
OrlandoS
(@orlandos)
Posts: 104
Estimable Member
Topic starter
 

.

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

(...) 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:

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:

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.

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! :]

 
Postado : 18/01/2018 3:25 pm
OrlandoS
(@orlandos)
Posts: 104
Estimable Member
Topic starter
 

É 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! :]

 
Postado : 18/01/2018 4:57 pm
(@klarc28)
Posts: 971
Prominent Member
 

Marque como resolvido

 
Postado : 18/01/2018 6:14 pm