Chamar "Private Sub" dentro de um "Sub"

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Chamar "Private Sub" dentro de um "Sub"

Mensagem por joaoosvaldo em Ter Set 30, 2014 10:59 pm

Boas.

Tenho um "Private Sub" que é ativado pelo click num botão, ou seja, o botão faz correr a macro. Agora pretendo que este "Private Sub" seja iniciado num outro "Sub", ou seja, num outro "Sub" quero chamar para fazer correr o "Private Sub". É possível? Como? Obrigado.

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por alexandrevba em Qua Out 01, 2014 7:31 am

Bom dia!!

Isso é realmente necessário Rolling Eyes

o botão faz correr a macro
Qual controle, Controle Userform,  Controle ActiveX, Controle de formulário?
Bom deixa eu mesmo advinhar..... Laughing

Foi inserido um botão do tipo Controle de formulário, dentro desse botão foi posto uma subrotina.
Código:
Sub Botão1_Clique()
    'Botão ao ser clicado, dispara essa mensagem abaixo
    MsgBox "Olá"
End Sub


Código:

Sub AleVBAClick()
    'macro para clicar no botão
    Botão1_Clique
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por joaoosvaldo em Qua Out 01, 2014 10:17 am

O que queria dizer é mais ou menos o seguinte:

Sub Macro1()
MsgBox "Olá"
End Sub

Sub Macro2()
Macro1
End Sub

Ou seja, se for para correr a macro1 dentro da macro2 como se tratam de dois "Sub" é fácil. Mas a minha questão é que quero correr uma "Private Sub" dentro de um "Sub" e desta forma o mesmo código já não funciona. A ideia é que o "Private Sub" seja executado dentro de outro "Sub" ou quando é clicado num botão (Controle de Formulário).

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por alexandrevba em Qua Out 01, 2014 10:21 am

Bom dia!!

Não conseguiu term uma ideia ou adaptar o código baseado na minha postagem anterior?

Eu creio que tua solução talvez, seja pensar no evento click

Leia:
http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=109:excel-vba-events-event-procedures-handlers-triggering-a-vba-macro&catid=79&Itemid=475
Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por joaoosvaldo em Qua Out 01, 2014 3:28 pm

O "Private Sub" que referi está no evento click, ou seja, quando é dado o click no botão de controle de formulário este "Private Sub" é executado. Até aqui tudo bem.

A questão é que quero em outro "Sub" separado chamar a execução do "Private Sub" sem ter de dar um click adicional no botão de controle de formulário referido anteriormente. No fundo é para evitar um click, uma vez que no final do "Sub" pode ser executado logo de seguida o "Private Sub".

Não sei se me estou a explicar bem!

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por alexandrevba em Qua Out 01, 2014 3:52 pm

Boa tarde!!

Foi justamente isso, que eu postei no segundo post de sua dúvida!!!

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Chamar "Private Sub" dentro de um "Sub"

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum