Existem várias maneiras, segue uma delas ...
Sub teste ()
if range("A1") = "" then
msgbox("Célula vazia")
else
msgbox("Célula com algum valor")
end if
end sub
Att,
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/07/2014 8:56 am