Guru do Excel e Power BI

Na rotina abaixo, eu precisava que antes de IMPRIMIR fosse obrigatorio estar preenchido as celulas C41 e A30. No formato que esta ele esta imprimindo mesmo sem as celulas C41 e A30 estarem preenchidas.



Sub Imprimir()

'primeira parte

If ActiveSheet.Name = "Plan13" Then

'verifica se o Range C41 está preenchido
If Range("C41").Value = "" Then
MsgBox ("Campo Corretor esta Vazio !!"), vbCritical, "Preenchimento Obrigatorio !!!"
Cancel = True
End If

'verifica se o Range A30 está preenchido
If Range("A30").Value = "" Then
MsgBox ("Campo Frete esta Vazio !!"), vbCritical, "Preenchimento Obrigatorio !!!"
Cancel = True
End If

End If

'segunda parte

Dim W As Worksheet

Set W = Sheets("Plan13") 'Troque para o nome da sua planilha

W.Range("J4").Font.ColorIndex = 2
W.Range("A30").Font.ColorIndex = 2
W.Range("J4").Font.ColorIndex = 1
W.Range("A30").Font.ColorIndex = 1

'terceira parte ( imprimir celulas selecionadas)

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$61"
ActiveWindow.SelectedSheets.PrintOut Copies:=5



End Sub

Substitua as duas ocorrências de Cancel = True por Exit Sub

Obrigado OSVALDOMP, fiz a substituição na rotina e funcionou. Grato.