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