Ga naar inhoud

Excel Uniek filteren


pyrofounder

Aanbevolen berichten

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.

Link naar reactie
Delen op andere sites

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

 

aangepast door bakerman
Link naar reactie
Delen op andere sites

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 

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.