EXCELer Tudo sobre EXCEL em Português
Se pretendermos apagar linhas inteiras a partir de células vazias num determinado range, incluindo uma mensagem de alerta se, nesse range, não houver nenhuma célula vazia, podemos utilizar o seguinte código:
Sub FindAndDelete()
Dim myRange As Range
On Error Resume Next
Set myRange = Range("A1:A100")
If Application.CountA(myRange) = 100 Then
MsgBox "Não existem células vazias no Range!"
Else
myRange.SpecialCells(xlBlanks).EntireRow.Delete
End If
End Sub
- Tópicos relacionados: