Saberexcel - o site das macros Impedindo a impressão se célula(A1) der diferença em determinada operação matemática.
Procedimento do Aplicativo Microsoft Excel VBA bloqueia a impressão quando der uma diferença em um determinado range é só implementar o evento Workbook_BeforePrint com o procedimento abaixo, veja:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("A1").Value <> 0 Then Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros")
If Msg = vbNo Then Cancel = True End If
End If End Sub
'Código para o vba cancelar ou yes / no 'If Range("A1").Value <> 0 Then ' Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros") ' If Msg = vbNo Then ' Cancel = True ' End If 'End If
Aprenda Microsoft Excel VBA --(SaberExcel)--
|