rijen met dubbele waarden deleten

[KeveinM]

Even wat uitleg ivm het prinicpe van de excel hier toegevoegd:

In een algemene excel wordt een lijst bijgehouden met de verschillende bedrijven waaraan gefactureerd (tab Bedrijven).

Wekelijks worden er 2 verschillende nieuwe excels bezorgd , die dan in tab Afdeling A en B worden gekopieerd.
De layout van beide kan verschillen, en er kunnen ook elke nieuwe week kolommen worden bijgevoegd, maar die zijn voor deze excel niet van belang... (de kolommen ie wel nodig zijn voor tab Bedrijven gaat niet wijzigen)

We willen dus weten welke nieuwe bedrijvenaan de excels elke week worden toegevoegd

Is dit mogelijk om via een macro te kijken naar de kolom Bedrijf en dan voor elke unieke waarde van Bedrijf de volledigeregel te laten kopieren naar een ander bedrijf (of miscchien nog makkelijker de overbodige regels te deleten in de tab afdeling) ? dus tab afdeling A de gele regels zijn de unieke


Maar er mag niet gesteld worden dat er naar kolom C naar de unieke waardes moet worden gekeken, want de volgende keer kan de excel een andere opmaak hebben, en dan zou er terug naar kolom Bedrijf moeten worden gekeken, maar dan kan dit bijvoorbeeld kolom F zijn in die excell


Er moeten dan nog zaken gedaan worden, maar het is vooral om te kijken of het mogelijk is om de unieke waarden op te zoeken

De excel heeft verder geen betekenis, is puur als voorbeeld van wat er moet gebeuren.
2 excells die elke wek worden geplakt in de tabbladen A en B en daar dan moeten worden gecontroleerd op dubbele waarden voor kolom Bedrijven

 

[JEC.]

Bijvoorbeeld:

Sub jec()
 Dim sh
 For Each sh In Sheets(Array("Afdeling A", "Afdeling B"))
   With sh.Cells(1).CurrentRegion
     .RemoveDuplicates .Find("Bedrijf").Column, 1
   End With
 Next
End Sub

 

[KeveinM]

super, merci