gegevens sorteren

[yeemea]

Goedendag,

 

[yeemea]

sorry

 

[VenA]

Het lijkt mij niet dat hier enige VBA voor nodig is. De gezamenlijke factor is weliswaar een getal maar dit is of het interne adresID of het zijn eindcijfers van het VGO/WOZ-nummer. Waarom de 'tabellen' van 2016 en 2017 qua lay-out verschillen mag je even uitleggen. De ingebakken functies zoals VLOOKUP() of INDEX() en MATCH() zijn denk ik voldoende om het geheel te vergelijken. Zie kolom O zonder het geheel uitgewerkt te hebben.

 

[yeemea]

xx

 

[Remlo]

Dit zou een oplossing kunnen zijn, hoewel zeker nog niet optimaal...
Ik kijk ook uit naar een oplossing van de knappere koppen hier.

 

[yeemea]

goedendag,

 

[VenA]

Waarom de 'tabellen' van 2016 en 2017 qua lay-out verschillen mag je even uitleggen

Al een antwoord bedacht?

 

[yeemea]

hoi,

 

[VenA]

Als je het verschil niet ziet lijkt mij dat een serieus probleem *knip*. De dataset komt uit hetzelfde systeem middels dezelfde query. Waarom je het perse via een macro wil hebben terwijl de oplossingen dmv formules al aangeboden zijn blijft voor mij een beetje een raadsel.

 

[HSV]

Macro?, daar draai jij je hand toch niet voor om? :d

 

[VenA]

Bij de Macro is dit weekend de Nederlandse kaas met 30% korting te koop. Alleen nog even kijken hoe ik dit dmv een macro in Excel krijg.:d

De workaround van Remlo in #5 :thumb: lijkt mij een prima oplossing.

 

[HSV]

Ik ga nog een poging wagen om te vragen of iemand mijn uitgeschreven macro kan maken en zo niet, ga ik het iig met deze oplossing proberen.
groet yeemea

Doe ik een poging.

Ps. resultaat op tabblad resultaat.

 

[VenA]

Dacht of wist ik al.:thumb: Wel even j declareren.

 

[yeemea]

Dank voor de oplossing

groet yeemea

 

[Remlo]

Dat bedoelde ik nu met die knappere koppen hier. Zelf snap ik er weinig van, helemaal niet thuis in VBA. Maar het resultaat ziet er prima uit.
Wat een beetje uitdaging al niet vermag.

 

[snb]

Lijkt me een typisch geval van Dictionary:

Sub M_snb()
   sn = Sheets("origineel").Cells(1).CurrentRegion
   sp = Sheets("origineel").Cells(1, 9).CurrentRegion
   ReDim st(0, 20)
   
   With CreateObject("scripting.dictionary")
      For j = 1 To UBound(sn)
         sr = st
         sr(0, 0) = sn(j, 7)
         For jj = 1 To 6
            sr(0, jj) = sn(j, jj)
         Next
         .Item(sn(j, 7)) = sr
      Next
      
      For j = 2 To UBound(sp)
         sr = st
         If .exists(sp(j, 1)) Then sr = .Item(sp(j, 1))
        
        sr(0, 0) = sp(j, 1)
        For jj = 2 To UBound(sp, 2)
           sr(0, jj + 7) = sp(j, jj)
        Next
        .Item(sp(j, 1)) = sr
      Next
      
      Sheets("resultaat").Cells(1).Resize(.Count, 20) = Application.Index(.items, 0, 0)
   End With

   Sheets("resultaat").Cells(1).CurrentRegion.Resize(, 20).Sort Sheets("resultaat").Cells(1), , , , , , , 1
End Sub

Dit lijkt mij eerder 'het gewenste resultaat'.

 

[yeemea]

Ook weer dank voor deze code