ontdubbel

[kibus]

Goedemiddag kenners,

Kan iemand mij helpen, ben op zoek naar een macro die bij dubbele waarde de linkse gegevens verwijderd behalve bij de eerst gevonden waarde, zie bijlage

alvast bedankt

Edwin

 

[kibus]

Ik heb het probleem al opgelost

 

[danny147]

Beste kibus

Kan je dan ook even de oplossing hier zetten voor alle andere topic kijkers, zodat zij er ook iets aan hebben of iets van kan leren ?

Groetjes Danny. :thumb:

 

[kibus]

Met de volgende macro heb ik het opgelost zou waarschijnlijk wel sneller kunnen maar dit volstaat bij mij... ben terslotte ook maar een hobbiest die hier veel oppikt ! echt een top site dit !



Sub Edwin()


Range("d2").Select
ActiveCell.FormulaR1C1 = "=RC[-3]=R[-1]C[-3]"
Range("C65333").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 1).Select
ActiveCell = "."
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Range("D2").Select
Start:

If ActiveCell = "" Then
GoTo verder

Else
If ActiveCell = True Then
Range(ActiveCell, ActiveCell.Offset(0, -1)).Select
Selection.ClearContents
ActiveCell.Offset(1, 1).Select
GoTo Start
Else
ActiveCell.Offset(1, 0).Select
GoTo Start
End If
End If
verder:

Columns("D").Select
Selection.ClearContents
Range("a1").Select


End Sub

 

[Wigi]

Als je dan toch dat "stapje verder" wil zetten:

Range("d2").Select
ActiveCell.FormulaR1C1 = "=RC[-3]=R[-1]C[-3]"

kan je vervangen door:

Range("D2").Formula = "=RC[-3]=R[-1]C[-3]"

met hetzelfde resultaat.

Wigi