none
Macro- deleta topdas linhas em branco em uma tabela RRS feed

  • Pergunta

  • Pessoal, estou com uma dúvida.Eu tenho o código que analiza se na celula A de detrminada linha estiver nada escrito, ela deleta a linha.O problema é que ela não faz para toda ao mesmo tempo (exemplo:  se eu  tenho cinco linhas em branco eu tenho que mandar executar a macro 5 vezes).
    Eu precisava executar somente uma vez e excluir todas as linhas cuja célula A estiver em branco.

    Segue o meu código:

    Sub Deleta_linha()

    Dim MyCell As Range

    For Each MyCell In Sheets(1).Range("A:A").SpecialCells(xlCellTypeBlanks)

    If MyCell.Row > 4 Then
    MyCell.EntireRow.Delete Shift:=xlUp
    End If

    Next MyCell

    End Sub

    Obrigado!  

    sexta-feira, 22 de junho de 2012 14:36

Respostas

  • Sub DeletaLinhas()
        Dim l As Long
    
        Application.ScreenUpdating = False
        For l = Cells(Rows.Count, "A").End(xlUp).Row To 5 Step -1
            If Cells(l, "A") = "" Then
                Rows(l).Delete
            End If
        Next l
        Application.ScreenUpdating = True
    
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 22 de junho de 2012 22:30
    Moderador