Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Identificar e excluir linhas

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



Mensagens : 2
Data de inscrição : 23/04/2013

MensagemAssunto: Identificar e excluir linhas   Ter Abr 23, 2013 2:59 pm

Olá,

Eu tenho uma planilhja de um relatório que varia em número de linhas e nomes.
Eu preciso de um comando que identifique a linha que contém o texto "Total:1" e exclua TODAS as linhas abaixo dessa.

Exemplo:

1 João R$ 10,00
2 Daniel R$ 9,00
3 Total:1 R$ 19,00
4
5 Leandro R$ 7,00
6 Thaís R$ 8,00
7 Total:2 R$ 15,00
8
9 Total: R$ 34,00

Depois de executar o que eu preciso, a tabela ficaria da seguinte forma;

1 João R$ 10,00
2 Daniel R$ 9,00
3 Total:1 R$ 19,00
4
5
6
7
8
9

Muito obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Identificar e excluir linhas   Qua Abr 24, 2013 2:05 am

Boa noite!!

Considerando que os dados estão na coluna A
Código:
Sub testAleVBA()
Dim Found As Range
Set Found = Columns("A").Find(what:="Total", lookat:=xlPart)
If Not Found Is Nothing Then Found.Resize(500).EntireRow.Delete
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
samer874



Mensagens : 2
Data de inscrição : 23/04/2013

MensagemAssunto: Re: Identificar e excluir linhas   Qua Abr 24, 2013 7:59 pm

Olá,

Primeiramente, muito obrigado!

Funcionou perfeitamente, ao menos para o relatório que eu tenho aqui em mãos, vou testar com outros depois.

Como eu sei muito pouco dos comandos de VBA, se não for pedir muito, poderia me dizer o que cada linha faz exatamente?

mais uma vez, obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Identificar e excluir linhas   Qui Abr 25, 2013 12:10 am

Boa noite!!

Veja o comentário
Código:
Sub testAleVBA()
Dim Found As Range '<-- Variável declarada do tipo range
Set Found = Columns("A").Find(what:="Total", lookat:=xlPart) '<-- Metodo Find, para encontrar a palavra "Total" na coluna A
If Not Found Is Nothing Then Found.Resize(500).EntireRow.Delete '<-- caso seja incontrado deletará as linhas
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Identificar e excluir linhas   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
Identificar e excluir linhas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Remover linhas entre mensagens
» Linhas Diagonais
» linhas na diagonal
» Aula 3 - Nossas primeiras linhas
» Não consigo excluir mensagens

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: