Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
2 Macros em um Botã...
 
Notifications
Clear all

2 Macros em um Botão

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
5 Posts
3 Usuários
0 Reactions
634 Visualizações
RSS
 ghsousa
(@ghsousa)
Posts: 2
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
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable 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.

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 : 22/06/2017 1:27 pm
 ghsousa
(@ghsousa)
Posts: 2
New Member
Topic starter
 

Não deu certo amigo. :cry:

 
Postado : 22/06/2017 1:32 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable 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ê!

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 : 22/06/2017 1:50 pm
 Osvaldomp
(@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".

Osvaldo

 
Postado : 22/06/2017 4:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico