Excluir linhas inteiras

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Excluir linhas inteiras

Mensagem por renck em Qua Mar 18, 2015 9:12 am

Bom dia,

Tenho várias planilhas que possuem uma determinada palavra na coluna "B". A palavra é "dados".
Preciso excluir linhas inteiras que antecedem a linha que possui esta palavra. Porém, a quantidade de linhas acima da 1ª vez que aparece "dados" não é fixa.
As linhas acima podem ou não conter dados.

Depois, preciso excluir todas linhas que aparecem abaixo destes dados, a partir e inclusive a linha que possui a palavra "total".
As linhas podem ou não conter dados.


Obrigado,

renck
Iniciante
Iniciante

Mensagens : 1
Data de inscrição : 18/03/2015

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Excluir linhas inteiras

Mensagem por alexandrevba em Ter Mar 24, 2015 7:52 am

Bom dia!!

Está complicado entender o que você quer!!
Código:
Sub AleVBA_194()
    Dim Lastrow As Long
    Application.ScreenUpdating = False
        Lastrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        With Range("A1:X" & Lastrow)
            .AutoFilter Field:=2, Criteria1:="<>dados"
        End With
        Range("A2:X" & Lastrow).EntireRow.Delete
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub
Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum