Este fórum está sendo desativado

[ljrbrasil]

Pessoal
Boa noite!

Tenho uma planilha com 50072 linhas e cada uma dela tem um código e preciso excluir vários códigos exceto 49 códigos

Então achei a macro a baixo e preciso saber como faço para sinalizar os 49 códigos como critérios desta macro.

este 49 códigos encontra-se em um aba chamada itens. (celula A2 a A50)

Código: Selecionar todos

Sub DelUFVz()

FinalRow = Range("A65536").End(xlUp).Row
i = 2

Do While i <= FinalRow
If (Cells(i, 1) <> "MG" And Cells(i, 1) <> "PB" And Cells(i, 1) <> "PI") Or Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete
FinalRow = FinalRow - 1
Else
i = i + 1
End If
Loop

End Sub

[DJunqueira]

Uma solução fácil sem macro seria filtrar estes 49 códigos, a não ser q vc vá fazer isso com frequência.

[ljrbrasil]

Preciso fazer isso com frequência.

Obs estes 49 códigos tem que focar preciso excluir as demais linhas.

[DJunqueira]

Esse código q vc arranjou vai apagar uma linha por vez de 50.072 linhas, tá doido!
Monta uma coluna auxiliar, procura o código q vc quer na tabela de 49 códigos (PROCV) e se encontrar retorna 1, senão 0, depois ordena e apaga todo o resto de uma única vez.
Dependendo da sua versão do Excel é possível fazer isso com Nova Consulta / Power Query.

[ljrbrasil]

Então pensei algum deste tipo o fato que os 49 codigos eles se repente (pois são vendas).

[ljrbrasil]

Desculpe cara, realmente você me passou uma solução! E que as vezes temos uma planilha com tanta linhas e precisamos de soluções com curto prazo que esquecemos de soluções simples.

Agradeço muito pela ajuda.

[alexandrevba]

Bom dia!!

Sua dúvida já foi resolvida?

Se sim, eu posso marcar o tópico como resolvido?

se não, você pretende remover as linhas que tenha valores iguais ou diferentes a determinado critério?

Att

[ljrbrasil]

Bom o que o nosso amigo Dj sugeriu, mas se puder colocar a sugestão também e interessante.

posteriomente poderemos fechar o topico.


mas agradeço a todos desde já.

[alexandrevba]

Bom dia!!

se não, você pretende remover as linhas que tenha valores iguais ou diferentes a determinado critério?

Você não respondeu a ultima pergunta.
Os filtros em VBA no geral, são mais rápidos do que Loop's.
Caso pretende deletar valores iguais, veja no link abaixo.
http://www.rondebruin.nl/win/winfiles/M ... teCode.txt

Att