Notifications

Clear all

Lista Exclusiva VBA

2024 - VBA & Macros

Post Recente por mestre 6 anos atrás

7 Posts

4 Usuários

0 Reactions

1,645 Visualizações

RSS

mestre

(@mestre)

Posts: 20

Eminent Member

Topic starter

Olá amigos.
Tenho uma planilha com uma lista grande de valores repetidos.
Gostaria de passar esses valores para outra planilha, montando outra lista, mas sem repetir valores.
Na verdade isso seria para fazer gráficos futuramente.
Fiz um VBA que não está rodando, e não estou achando o erro.
Vejam:

Sub ListarEquipes()
'Lista valores exclusivos da colula equipes, da planilha Lista Larga
    Sheets("ListaLarga").Activate
    Sheets("ListaLarga").Range("B5:B1005").Copy
    Sheets("Dados").Activate
    Application.CutCopyMode = False
    ActiveSheet.Range("A3").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("a1").Select
End Sub

Ele da erro na linha "ActiveSheet.Range"

O que estou fazendo de errado?

Obrigado desde já

Postado : 04/07/2018 6:07 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Você está colocando apenas uma célula "A3", mas deve ser um grupo de células.

Option Explicit

Sub teste()
Dim linha As Long
linha = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range("A1:A" & linha).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Postado : 04/07/2018 1:43 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Não sei qtas vezes vc vai fazer isso mas se for apenas para criar a lista exclusiva eu faria assim

Selecione todos os dados que precisam se excluisos.

Colocava em ordem alfabetica.

Dados > Remover Duplicados.

Pronto.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 04/07/2018 6:02 pm

mestre

(@mestre)

Posts: 20

Eminent Member

Topic starter

Na verdade funciona assim.
Tenho uma planinha com os nomes em repetição de cidades na "Planilha A"
Exemplo:
São Paulo
Rio de Janeiro
Florianópolis
Rio de Janeiro.

Somente esses dados.
Eu iria jogar eles para a "Planilha B" e lá terei que fazer um gráfico em cima destes dados. E é nisso que estou apanhando.
pensei em colocar uma rotina num botão na planilha B "atualizar gráficos". Porque a planilha A é alterada constantemente tanto nos valores, como também na quantidade de cidades. Uma hora pode ter 10 cidades, outra hora pode ter 100.
Pensei até em criar uma terceira planilha, para tentar manipular dados, mas estou com dificuldades.

Postado : 05/07/2018 6:03 am

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Bom dia.
Segue minha contribuição.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 05/07/2018 7:48 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Option Explicit

Sub teste()



Dim linha As Long
Dim linha2 As Long
Dim achou As Boolean
achou = False
Dim DLin As Long
DLin = Plan1.Range("A6").End(xlDown).Row + 1
For linha = 6 To DLin - 1
For linha2 = linha + 1 To DLin

If Plan1.Range("A" & linha).Value = Plan1.Range("A" & linha2).Value Then

Plan1.Range("A" & linha2).Value = ""

End If
Next linha2


Next linha

Plan2.Range("A:A").ClearContents
For linha = 6 To DLin


If Plan1.Range("A" & linha).Value <> "" Then
linha2 = 1
While Plan2.Range("A" & linha2).Value <> ""


linha2 = linha2 + 1

Wend

Plan2.Range("A" & linha2).Value = Plan1.Range("A" & linha).Value

End If



Next linha




End Sub

Postado : 05/07/2018 7:58 am