Veja se a macro abaixo atende. Só funciona se a última célula for a última com dados. Para mais informações, sobre a última célula da planilha, veja o seguinte link: https://support.office.com/pt-br/articl ... c1d86e99e9
Sub teste()
Dim lin, col, i As Long
lin = Application.ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Identifica qual a última linha da planilha
col = Application.ActiveCell.SpecialCells(xlCellTypeLastCell).Column 'Identifica qual a última linha da planilha
For i = 1 To col
Cells(1, i).Select
If Application.WorksheetFunction.CountA(Cells(1, i).EntireColumn) < lin Then
MsgBox "A linha " & i & " está incompleta."
Exit Sub
End If
Next
MsgBox "Todas as colunas estão completas"
End Sub
Não se esqueça de marcar o tópico como resolvido se a resposta for satisfatória.
Postado : 09/11/2015 8:06 pm