Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Chamar "Private Sub" dentro de um "Sub"

2 participantes

Ir para baixo

Chamar "Private Sub" dentro de um "Sub" Empty Chamar "Private Sub" dentro de um "Sub"

Mensagem por joaoosvaldo 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

Ir para o topo Ir para baixo

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

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

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

Mensagem por joaoosvaldo 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

Ir para o topo Ir para baixo

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

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

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

Mensagem por joaoosvaldo 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

Ir para o topo Ir para baixo

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

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

Boa tarde!!

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

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos