Notifications
Clear all

RETORNA COM MSGBOX A CELULA VAZIA

2 Posts
2 Usuários
0 Reactions
1,092 Visualizações
(@edsonruaro)
Posts: 28
Eminent Member
Topic starter
 

Pessoal boa noite,

vejam se me ajudam,

Tenho valores na celula A1 E A3 a celula A2 esta vazia, como que eu faço para retornar num msgbox a celula que esta vazia neste caso a celula A2.

Mas posso ter varias celulas vazias na mesma planilha, como fazer ?

 
Postado : 23/06/2015 6:57 pm
Issamu
(@issamu)
Posts: 605
Honorable Member
 

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