Localizar e mostrar as células vazias de uma tabela.

Neste tutorial criaremos uma macro para localizar e mostrar em uma caixa de mensagem a localização da célula ou células vazias de uma tabela.

Observe na imagem da tabela abaixo que algumas células estão vazias. Criaremos o código para localizar quais células estão vazias com base na ideia de que uma célula vazia consiste em uma marca de parágrafo seguida por Chr (7).

Abra o Editor do Visual Basic acionando a Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou use o atalho ALT+F11.

No editor do Visual Basic clique no menu Inserir e depois em Módulo.

Adicione o código abaixo:

Sub localizacelvazias()
Dim sCel As Cell
Dim sCol As Row
For Each sCol In Selection.Tables(1).Rows
For Each sCel In sCol.Cells
If sCel.Range.Text = Chr(13) & Chr(7) Then
MsgBox "A Célula" &" " & sCel.RowIndex & " " & "daColuna" & " " & sCel.ColumnIndex & " está vazia."
End If
Next sCel
Next sCol
End Sub

Deverá ficar como na imagem abaixo:

Feche o Editor do Visual Basic para voltar ao Word clicando no menu Arquivo e depois em Fechar e voltar para Microsoft Word.

Agora vamos testar a nossa macro pra vê-la em funcionamento.

Na Guia Desenvolvedor, no Grupo Código, clique em Macros.

Selecione a macro localizacelvazias e clique no botão Executar.

Como podemos ver na imagem acima a macro exibe o número da célula e em qual coluna se encontra a primeira célula vazia da tabela e ao clicar em OK será exibido a localização da próxima célula vazia e assim sucessivamente.