2 Macros em um Botão

2024 - VBA & Macros

Post Recente por Osvaldomp 8 anos atrás

5 Posts

3 Usuários

0 Reactions

647 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)

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)

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