Adapte o código a seguir conforme sua necessidade:
Sub Células_Vazias()
Dim cell As Variant
Dim sEmpty As String
For Each cell In Selection
If IsEmpty(cell) Then
sEmpty = sEmpty & vbCrLf & cell.Address
End If
Next cell
MsgBox "Células vazias na seleção: " & vbCrLf & sEmpty
End Sub
O código vai listar numa msgbox o endereço das células vazias da seleção atual. Só tome cuidado para não rodar este código com uma seleção muito extensa como uma coluna inteira selecionada ou a planilha inteira selecionada, pois provavelmente você vai travar o Excel. Recomendo evoluir o código para que redimensione a seleção somente para intervalo usado.
Abraços!
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 24/06/2015 10:38 am