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 

Ahhh ik snap het dank u wel!

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

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! 

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 

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

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

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.