macro eliminar duplicados y dejar el de fecha mas reciente de cada duplicado
Publicado por victor (1 intervención) el 21/12/2016 15:45:14
Tengo una tabla, en la cual debo eliminar los duplicados de RUT pero solo los que tienen fecha mas antigua ; debo dejar los que tienen fecha mas reciente , tengo una macro pero me hace lo contrario
Alguien que me ayude ???
F (RUT)
J (FECHA)
Alguien que me ayude ???
F (RUT)
J (FECHA)
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ultimo_registro()
Dim base As String, JCol As Integerbase = Range([F2], [F150000].End(xlUp)).Address
JCol = Cells.Find("*", [A1], xlValues, xlWhole, xlByColumns, xlPrevious).Column
Cells(2, JCol + 2).Formula = "=countif($F$2:F2,F2)<countif(" & base & ",F2)"
With Range([F1], [F150000].End(xlUp))
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Cells(1, JCol + 2).Resize(2)
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
End With
ActiveSheet.ShowAllDataCells(2, JCol + 2).ClearContents
ActiveSheet.UsedRangeEnd Sub
Valora esta pregunta
0