Excel Uniek filteren

[bakerman]

Neen, dit is een invoer probleem van jouw zijde.

 

Net zoals jij postcodes invoert met hoofd- en kleine letters door elkaar voer jij ook postcodes in met en zonder spatie.

 

Voor jou lijken deze postcodes allemaal dezelfde maar voor Excel zijn deze eigenlijk allemaal uniek.

 

4536 AH is niet hetzelfde als 4536AH net zoals 4561rj niet hetzelfde is als 4561RJ.

 

Waar jij dus voor moet zorgen is dat alle postcodes op dezeflde manier ingevoerd worden.

[bakerman]

OK, ik heb het je makkelijk gemaakt.

 

Onderstaande code zet alles om in hoofdletters en voegt een spatie toe als er een postcode tussen staat zonder spatie.

 

Daarna wordt de samenvatting op Blad3 gezet.

 

Sub Uniform_Samenvatten()
    sn = Blad1.Cells(1).CurrentRegion.Value
    Set dic = CreateObject("scripting.dictionary")
    With CreateObject("VBScript.RegExp")
        For i = 2 To UBound(sn, 2)
            For ii = 2 To UBound(sn)
                If sn(ii, i) <> vbNullString Then
                    sn(ii, i) = UCase(sn(ii, i))
                    .Pattern = "\d{4}[A-Z]{2}"
                    .Global = True
                    If .test(sn(ii, i)) Then sn(ii, i) = Left(sn(ii, i), 4) & " " & Right(sn(ii, i), 2)
                    If Not dic.exists(sn(ii, i)) Then
                        dic.Add sn(ii, i), 1
                    Else
                        dic.Item(sn(ii, i)) = dic.Item(sn(ii, i)) + 1
                    End If
                End If
            Next
        Next
    End With
    With Blad3
        .Cells(1).CurrentRegion.ClearContents
        .Cells(1).Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))
        .Cells(1).CurrentRegion.Sort .Cells(1), xlAscending
    End With
    Blad1.Cells(1).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

 

20 november 2018 aangepast door bakerman

[pyrofounder]

Ahhh ik snap het dank u wel!

[pyrofounder]

16 uren geleden, bakerman zei:

OK, ik heb het je makkelijk gemaakt.

 

Onderstaande code zet alles om in hoofdletters en voegt een spatie toe als er een postcode tussen staat zonder spatie.

 

Daarna wordt de samenvatting op Blad3 gezet.

 

Sub Uniform_Samenvatten()
    sn = Blad1.Cells(1).CurrentRegion.Value
    Set dic = CreateObject("scripting.dictionary")
    With CreateObject("VBScript.RegExp")
        For i = 2 To UBound(sn, 2)
            For ii = 2 To UBound(sn)
                If sn(ii, i) <> vbNullString Then
                    sn(ii, i) = UCase(sn(ii, i))
                    .Pattern = "\d{4}[A-Z]{2}"
                    .Global = True
                    If .test(sn(ii, i)) Then sn(ii, i) = Left(sn(ii, i), 4) & " " & Right(sn(ii, i), 2)
                    If Not dic.exists(sn(ii, i)) Then
                        dic.Add sn(ii, i), 1
                    Else
                        dic.Item(sn(ii, i)) = dic.Item(sn(ii, i)) + 1
                    End If
                End If
            Next
        Next
    End With
    With Blad3
        .Cells(1).CurrentRegion.ClearContents
        .Cells(1).Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))
        .Cells(1).CurrentRegion.Sort .Cells(1), xlAscending
    End With
    Blad1.Cells(1).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

 

Snap er niks meer van als ik je vorige bestand pak is het idd op blad 3 netjes onderelkaar en per postcode de hoeveelheid.

maar deze code hierboven staat er nog niet in toch ? Ik heb ook geen idee waar ik deze code kan invoegen..

kan ik dit ergens opzoeken ? ben u zeer dankbaar voor u hulp :) het blad 3 is echt super handig maar alleen qua postcode snap ikdat we ze gewoon netjes moeten invoeren zodat het niet zo raar is :) ! nog laatse vraagje,

hoe kan ik blad 3 op blad 4 als tabel zetten of is dit niet mogelijk /grafiek