Remover itens duplicados

2024 - VBA & Macros

Post Recente por Fernando Fernandes 13 anos atrás

4 Posts

2 Usuários

0 Reactions

799 Visualizações

RSS

Robert

(@robert)

Posts: 561

Honorable Member

Topic starter

Pessoal,
Boa noite!

Venho mais uma vez pedir uma ajudinha dos nosso amigos feras em VBA - Visual Basic for Applications, é o seguinte eu tenho uma planilha que na qual tenho várias descrições em média tenho umas 200 linhas, na coluna "A" tenho as datas, queria saber de vocês se tem como inserir um código para excluir todas as descrições duplicadas só deixar a mais atual baseado na data.

Exemplo: Tenho.
DATA NOME Uf Descrição
10/05/2012 Robert BA Visual basic
15/05/2012 Robert BA Visual basic

O código funcionaria da seguinte forma excluiria 10/05/2012 e deicharia a última data que nesse caso é a mais atual 15/05/2012.Saliento que tenho umas 200 linha e umas 8 colunas com descrição .

Será que tem como fazer isso meus colegas ???

Abraços,

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

Postado : 30/05/2012 5:47 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Considerando os dados de A até B

Sub removerdados_AleVBA()
  
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A:A") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("A:B")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ActiveWorkbook.Worksheets("Plan1").Range("A:B").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 31/05/2012 4:25 am

Robert

(@robert)

Posts: 561

Honorable Member

Topic starter

Alexandre,
Boa noite!

É quase isso cara, estamos indo no caminho certo. Para facilitar mais o entendimento irei postar uma planilha ficticia aqui no fórum para que possamos sanar mais rápidamente.