Unieke waarde weergeven

[peter16]

Het volgende probleem:

Op blad 1 staan in kolom A initialen van collega’s in willekeurige volgorde en meerdere keren dezelfde initialen. Nu wil ik dat op blad 2 in een rij onder elkaar weergegeven wordt welke verschillende initialen voorkomen in kolom A van blad 1. Wie weet welke formule ik hiervoor moet gebruiken?

Peter

 

[Jan van Asseldonk]

Welke formule daarvoor nodig weet ik niet, als die er al een is. Met onderstaande macro gaat het wel. Er mogen geen lege cellen voorkomen in kolom A.

Sub Uniek()
'
' Uniek Macro
'

'
Sheets("Blad1").Select
Columns("A:A").Copy
Sheets("Blad2").Select
Columns("A:A").Select
Range("A1").Select

ActiveSheet.Paste
Worksheets("Blad2").Range("A1").Sort Key1:=Worksheets("Blad2").Range("A1")
Set currentCell = Worksheets("Blad2").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
' currentCell.EntireRow.Interior.ColorIndex = 3 'kleurt de dubbele in
currentCell.EntireRow.Delete 'verwijdert de dubbele
End If
Set currentCell = nextCell
Loop
End Sub

 

[bbb]

Dag Peter

Je probleem is perfect op te lossen met een eenvoudige draaitabel. Ik zet de te volgen stappen even op een rijtje :
- Zorg dat de kolom met initialen een naam krijgt. Dit doe je door in cel A1 bvb. "Initiaal" in te tikken.
- Ga naar Blad 2
- Kies hier voor Data / Draaitabel
- De draaitabelwizard zal opstarten
- In stap 1 kies je gewoon voor "volgende"
- In stap 2 selecteer je het ganse bereik van de cellen waarin de initialen staan (incl. de cel A1 !!)
- In stap 3 klik je op de cel waar in Blad2 de gegevens moeten verschijnen (bvb. A1) en klik op "Beëindigen.
- Nu heb je een vreemd object en een extra werkbalk in je Blad
In die werkbalk zie je het kolomlobel "Initiaal" staan.
-Sleep dit eerst naar het linker in blauw omrande gebied.
- Sleep "Initiaal" nogmaals vanuit de werkbalk naar het grootste blauw omrande gebied.

Het resultaat zou nu zichtbaar moeten zijn.


Groeten

BBB

 

[Jan van Asseldonk]

Inderdaad een prima oplossing zonder macro.
Daar had ik even niet aan gedacht.
De keus is nu aan Peter

 

[Withaar]

3e mogelijkheid, laat even dit tooltje down.
Selecteer de kolom waar je alle dubbele waarden wilt verwijderen kies onder Range voor Empty dublicates in Selection en alle dubbele worden verwijderd,
Nog even een sorteer actie van a-z en klaar.