Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Remover itens dupli...
 
Notifications
Clear all

Remover itens duplicados

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
781 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,

 
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
 
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.

:D

 
Postado : 01/06/2012 7:24 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

OK, fico no aguardo.... ;)

 
Postado : 03/06/2012 6:28 am
Forum Jump:
  Tópico Anterior
Próximo Tópico