Excel Uniek filteren

[pyrofounder]

Goedemiddag,

 

Ik heb een bestand met heel wat verschillende postcodes ( ongeveer 500 ).

deze zijn per dag  ingevuld , soms komt het voor dat er op 1 dag 5 x de zelfde postcode wordt ingevuld.

 

Ik zou graag het volgende willen hebben :

 

1:

 

Alle postcodes in het bestand in een apart tabel of iets zodat ik weet hoeveel postcodes er zijn ( alleen de unieke dus geen dubbelen)

2: van alle postcodes ( dus ook de dubbelen) hoevaak deze zijn ingevuld voor example :  postcode 4545 staat er 3x in dus komt er te staan : 4545 = 3x

 

het eerste gedeelte kan ik nergens vinden heb van alles geprobeerd qua filteren etc, dit werkt niet omdat zodra ik meerderen tabbelen/lijnen wil gebruiken om te filteren werkt het niet meer heb al dagen aan het zoeken geweest hopelijk kan iemand me hier bij helpen .

 

mvg.

 

 

20 november 2018 aangepast door iEscape
bijlage verwijder op verzoek van TS

[emielDS]

kunnen die niet in 1 kolom staan?

 

 

 

20 november 2018 aangepast door iEscape
Excel bestand verwijderd op verzoek van TS

[pyrofounder]

Uhm maar dat kan wel ma dan. Moet ik dat allemaal weer 1 kolom zetten? 

[emielDS]

 

Tk weetniet hoe die gegevens daar terecht komen maar alles in 1 kolom werkt het makkelijkst voor excel.

[bakerman]

Met een beetje VBA is dit zo opgelost.

Sub tst()
    sn = Blad1.Cells(1).CurrentRegion.Value
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(sn, 2)
            For ii = 1 To UBound(sn)
                If sn(ii, i) <> vbNullString Then
                    If Not .exists(sn(ii, i)) Then
                        .Add sn(ii, i), 1
                    Else
                        .Item(sn(ii, i)) = .Item(sn(ii, i)) + 1
                    End If
                End If
            Next
        Next
        Blad1.Cells(1, 26).CurrentRegion.ClearContents
        Blad1.Cells(1, 26).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
        Blad1.Cells(1, 26).CurrentRegion.Sort Blad1.Cells(1, 26), xlAscending
    End With
End Sub

 

 

20 november 2018 aangepast door iEscape
bijlage verwijder op verzoek van TS

[pyrofounder]

Dit is het bestand waar het zo moet worden hoe. Kan ik je code invoeren en super bedankt! Kan je dat hier ook mee doen? Haha

 

20 november 2018 aangepast door iEscape
bijlage verwijder op verzoek van TS

[pyrofounder]

Op 19/11/2018 om 02:26, bakerman zei:

Met een beetje VBA is dit zo opgelost.

Sub tst()
    sn = Blad1.Cells(1).CurrentRegion.Value
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(sn, 2)
            For ii = 1 To UBound(sn)
                If sn(ii, i) <> vbNullString Then
                    If Not .exists(sn(ii, i)) Then
                        .Add sn(ii, i), 1
                    Else
                        .Item(sn(ii, i)) = .Item(sn(ii, i)) + 1
                    End If
                End If
            Next
        Next
        Blad1.Cells(1, 26).CurrentRegion.ClearContents
        Blad1.Cells(1, 26).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
        Blad1.Cells(1, 26).CurrentRegion.Sort Blad1.Cells(1, 26), xlAscending
    End With
End Sub

 

pyrofounder.xlsm

Zie me berichtje hier onder super bedankt kan je het met origineel bestand ook? En waar kan ik dit invoeren die code 

 

20 november 2018 aangepast door iEscape
bijlage verwijder op verzoek van TS

[bakerman]

Resultaten komen op Blad3.

Met hoofdletters en kleine letters heb ik rekening gehouden in de nieuwe code.

Hou er echter rekening mee dat bv 4567 AH verschillend wordt gezien dan 467AH.

 

20 november 2018 aangepast door iEscape
bijlage verwijderd op verzoek van TS

[pyrofounder]

Op 19/11/2018 om 08:15, bakerman zei:

Resultaten komen op Blad3.

Met hoofdletters en kleine letters heb ik rekening gehouden in de nieuwe code.

Hou er echter rekening mee dat bv 4567 AH verschillend wordt gezien dan 467AH.

 

Wauw super! Zit even op me telefoon dus zie blad 3 niks staan maar z het zo op me computer bekijken hartelijk bedankt, enig idee waar ik uitleg kan vinden over waar je deze code toevoegd

? Nogmaals bedankt! 

20 november 2018 aangepast door iEscape
bijlage verwijderd op verzoek van TS

[pyrofounder]

8 uren geleden, bakerman zei:

Resultaten komen op Blad3.

Met hoofdletters en kleine letters heb ik rekening gehouden in de nieuwe code.

Hou er echter rekening mee dat bv 4567 AH verschillend wordt gezien dan 467AH.

Invulkaarten postcodes HULST herfstloterij NEW.xlsm

Ik denk dat u het verkeerde heeft geupload haha deze is nog het zelfde en de dubbelen zitten er ook nog in