Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Excel - Deletando Linhas vazias no Range - Delete Rows selected in the range

Caros,
Continuando na linha: "Revisitando As primeiras funções que desenvolvi".

Como deletar as linhas que estão vazias num range informado?

Function DelEmptyR(DeleteRange As Range)
' Deleta todas as linhas vazias no Range
' informa o range que a função analisará.

Dim rCount As Long, r As Long

    If DeleteRange Is Nothing Then Exit Sub

    If DeleteRange.Areas.Count > 1 Then Exit Sub

    With DeleteRange
        Let rCount = .Rows.Count

        For r = rCount To 1 Step -1
            If Application.CountA(.Rows(r)) = 0 Then 
                .Rows(r).EntireRow.Delete
            End If
        Next r
    End With
End Function

Tags: Bernardes, MS, Microsoft, Office, Excel, deletar, apagar, excluir, row, lines, linhas, range


André Luiz Bernardes
A&A® - Work smart, not hard.
Skype: inanyplace 

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine