Notifications
Clear all

2 Macros em um Botão

5 Posts
3 Usuários
0 Reactions
626 Visualizações
(@ghsousa)
Posts: 0
New Member
Topic starter
 

Boa tarde,

Tenho um Vba de impressão, dois macros em um botão, quero o 2º só seja executado se a caixa de texto do primeiro for clicado em sim, se for clicado em não quero que interrompa.

No jeito que está, ele está imprimindo mesmo clicando em NÃO, alguém ajuda por favor.

Vba:

Private Sub Confirmacao()

Dim resultado As VbMsgBoxResult

resultado = MsgBox("Deseja Imprimir os Indicadores de Despesas Administrativas?", vbYesNo, "Confirmação")

If resultado = vbYes Then
MsgBox "Impressão CONFIRMADA!"

Else
MsgBox "Impressão CANCELADA!"

Exit Sub

End If

End Sub
Private Sub Imprimir()
Dim sh As Worksheet
Set sh = ActiveSheet
Worksheets(Array("RE02-098", "RE02-099", "RE02-100", "RE02-101", "RE02-102", "RE02-103")).PrintOut
sh.Select

End Sub

Sub confirm()

Call Confirmacao
Call Imprimir

End Sub

 
Postado : 22/06/2017 1:16 pm
(@leandroxtr)
Posts: 0
New Member
 

O código a seguir apenas chamou o código da impressão caso for clicado em Sim.

Private Sub Confirmacao()

Dim resultado As VbMsgBoxResult

resultado = MsgBox("Deseja Imprimir os Indicadores de Despesas Administrativas?", vbYesNo, "Confirmação")

If resultado = vbYes Then
MsgBox "Impressão CONFIRMADA!"
call imprimir
Else
MsgBox "Impressão CANCELADA!"

Exit Sub

End If


End Sub

Veja se te ajuda.

 
Postado : 22/06/2017 1:27 pm
(@ghsousa)
Posts: 0
New Member
Topic starter
 

Não deu certo amigo. :cry:

 
Postado : 22/06/2017 1:32 pm
(@leandroxtr)
Posts: 0
New Member
 

Crie um módulo com o nome "imprimir" e cole esse código lá e tente dessa forma.

Dim sh As Worksheet
Set sh = ActiveSheet
Worksheets(Array("RE02-098", "RE02-099", "RE02-100", "RE02-101", "RE02-102", "RE02-103")).PrintOut
sh.Select

End Sub

Se ainda assim não der, anexe o arquivo que arrumo para você!

 
Postado : 22/06/2017 1:50 pm
(@osvaldomp)
Posts: 857
Prominent Member
 

Não deu certo amigo. :cry:

Para a sugestão do Leandro funcionar, atribua ao botão a macro "Confirmacao" e pode apagar a macro "confirm".

 
Postado : 22/06/2017 4:06 pm