Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
deletar 3 em 3 linhas
deletar 3 em 3 linhas
Olá pessoal, cá estou eu outra vez a precisar muita da vossa. É assim, estou a trabalhar no base de dados com 450 mil linhas, e numa determinado coluna eu queria apresentar os valores de 4 em 4. Vou exemplicar:
a base de dados está assim:
Anos Divida
2008 1
2007 2
2006 3
2005 4
2008 5
2007 6
2006 7
2005 8
Eu queria deletar (não excluir as linhas) os valores apresentados nos anos 2007, 2006 e 2005, apenas me interessa os valores do ano 2008 e ficando um espaçamento de 3 linhas, ou seja:
Anos Divida
2008 1
2007
2006
2005
2008 5
2007
2006
2005
.....
Alguém me pode ajudar são muitas linhas, fornecendo uma macro, ou uma forma de fazer no excel, agradeço muito, obrigado
a base de dados está assim:
Anos Divida
2008 1
2007 2
2006 3
2005 4
2008 5
2007 6
2006 7
2005 8
Eu queria deletar (não excluir as linhas) os valores apresentados nos anos 2007, 2006 e 2005, apenas me interessa os valores do ano 2008 e ficando um espaçamento de 3 linhas, ou seja:
Anos Divida
2008 1
2007
2006
2005
2008 5
2007
2006
2005
.....
Alguém me pode ajudar são muitas linhas, fornecendo uma macro, ou uma forma de fazer no excel, agradeço muito, obrigado
Re: deletar 3 em 3 linhas
Coelhoman,
Autofiltro não resolve? Se todos os dados que interessam estão no ano de 2008, filtre por este valor e exclua todos os outros.
Abraços
Autofiltro não resolve? Se todos os dados que interessam estão no ano de 2008, filtre por este valor e exclua todos os outros.
Abraços
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: deletar 3 em 3 linhas
Se adica do AutoFiltro não resolver , voce pode usar a rotina abaixo, coloque em um modulo e execute na planilha que quer limpar:
Resumindo procura na Planilha Ativa a partir da Linha 2 coluna A todos os valores diferentes de 2008 e apaga o correspondente na coluna B, mantendo os valores em A.
Editando: Se a intenção for apagar todo o conteúdo a partir da col. B (C,D,.....) troque:
Cells(consulta, 2).ClearContents 'Apaga somente o valor na coluna B
por
Cells(consulta, 2).EntireRow.ClearContents 'Apaga a Linha Inteira mantendo o Valor da Col. A
abraços
Código: Selecionar todos
Sub Apaga_Valor_Col_B_Dif_2008()
Dim consulta As Integer
Dim FimBase
'Conta a qde de itens na Coluna A
FimBase = Range("a60000").End(xlUp).Row
'Começa na Linha 2(A2)
For consulta = 2 To FimBase
With ActiveSheet
'Se valor diferente de 2008
If Cells(consulta, 1).Value <> "2008" Then
'limpa a celula na coluna B
Cells(consulta, 2).ClearContents
End If
End With
Next
End Sub
Editando: Se a intenção for apagar todo o conteúdo a partir da col. B (C,D,.....) troque:
Cells(consulta, 2).ClearContents 'Apaga somente o valor na coluna B
por
Cells(consulta, 2).EntireRow.ClearContents 'Apaga a Linha Inteira mantendo o Valor da Col. A
abraços
Re: deletar 3 em 3 linhas
Amigo ja tentei com Autofiltro e nada, acho que fiz bem. Tentei agora esta opção com os codigos da macro e não fez nada, ajuda-me por favor, abraço
Re: deletar 3 em 3 linhas
Já consegui!!!!
Mauro aproveitei o teu raciocinio dos codigos macros, e fiz um comando "se" mesmo dentro do excel e funcionou, valeu um forte abraçõ e obrigado
Mauro aproveitei o teu raciocinio dos codigos macros, e fiz um comando "se" mesmo dentro do excel e funcionou, valeu um forte abraçõ e obrigado
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: deletar 3 em 3 linhas
Coelho, só para constar, apesar que já resolveu, provavelmente a rotina não funcionou como deveria, pois fiz comparação como sendo Valor somente "2008" e não como Data, que é como acredito que deve estar na sua coluna, se for isso altere na rotina que postei a linha :Tentei agora esta opção com os codigos da macro e não fez nada
If Cells(consulta, 1).Value <> "2008" Then
por:
If Year(Cells(consulta, 1).Value) <> "2008" Then
Se possível refaça os testes e poste o resultado qui.
Você diz comando "SE", ou seja você usou formula ? ou Formatação Condicional ?Mauro aproveitei o teu raciocinio dos codigos macros, e fiz um comando "se" mesmo dentro do excel e funcionou
Por favor poste como fez para servir de referência no sistema de Busca do site a outros que procurem por soluções parecidas.
abraços