Dubbele waardes verwijderen inclusief andere kolommen

[Euro010]

Beste ForumLeden,

Ik heb een vraag m.b.t. het verwijderen van dubbele data.
Wekelijks draai ik een rapportage om te kijken welke bestellingen binnen het bedrijf gedaan zijn.
Nu wordt deze rapportage gedraaid op basis van Bestelnummer/positie, een bestelling kan immers uit verschillende posities bestaan.
Nu wil ik een macrotje hebben die dubbelingen haalt uit kolom D, waarbij alleen het bestelnummer van belang is. De posities zijn hierin niet van belang.
In het voorbeeld wil ik dus dat bestelling 450033/11 en 450033/12 verwijderd wordt, maar dat 450033/10 blijft staan. Ik wil immers maar 1x de bestelling zien.
Dit geldt ook voor bestelling 450001.
De informatie in de overige kolommen is bij iedere positie gelijk, dus bij zowel posities 10, 11 en 12 zijn de informatie in de overige kolommen gelijk.
Uiteraard moet de informatie in de overige kolommen mee verwijderd worden.

Kort gezegd: De macro moet ervoor zorgen dat rijen 10, 11, 14 en 15 verwijderd worden.

Alvast dank voor jullie hulp.

Met vriendelijke groet,

Joost

 

[VenA]

Als het bestelnummer altijd 6 posities is bv zo.

Sub VenA()
With Sheets(1)
    For Each cl In .Columns(4).SpecialCells(2).Offset(1)
        cl.Value = Left(cl, 6)
    Next cl
    .Cells.CurrentRegion.RemoveDuplicates Columns:=4, Header:=xlYes
End With
End Sub

 

[HSV]

Het bestelnummer intact gelaten.

Sub hsv()
Dim sn, i As Long
    With Sheets(1).Cells(1).CurrentRegion
      .Sort .cells(1,4), , , , , , , 1
    sn = .Value
      For i = UBound(sn) To 2 Step -1
        If Left(sn(i, 4), 6) = Left(sn(i - 1, 4), 6) Then .Rows(i).EntireRow.Delete
      Next i
    End With
End Sub

 

[VenA]

@HSV, wat is de toegevoegde waarde van .Parent? Zonder gaat volgens mij ook goed.

Zelf zou ik het denk ik met een extra kolom en tekst naar kolommen en een draaitabel oplossen. Maar dit geheel terzijde.

 

[HSV]

Heeft in deze context geen toegevoegde waarde, en mag er uit gehaald worden.
Ik zal het aanpassen.

 

[Euro010]

Bedankt!! Ik zal eens kijken of wellicht een draaitabel handiger kan zijn!

 

[VenA]

Voor een draaitabel heb je een extra kolom nodig maar kan wel.