Model automatisch vullen door middel van VBA

Status
Niet open voor verdere reacties.
M

marka

Gebruiker
Lid geworden
14 jul 2009
Berichten
333
Goedemiddag,

Ik ben bezig om een model op te bouwen om voor onze projecten een duidelijk overzicht te creëren.

Ik heb een voorbeeld toegevoegd, dat legt het wat gemakkelijker uit. UIteraard is het originele bestand groter, maar ik denk dat als ik de basis zie het wel begrijp.

Bekijk bijlage Voorbeeld Helpmij.xlsx

Groet,

Mark
 
En hoe wil je dat er in de overview moe uitzien, je data heeft 2 verschillende opbouw
 
Ik snap je vraag niet. Mijn data komt uit 2 verschillende bronnen vanuit data1 en data 2 moet hij de overview opbouwen. Zoals ook benoemd staat in het overview blad.
 
Vul de overview eens handmatig in zoals je gewenst resultaat
 
Kijk eens naar mijn oplossing
 

Bijlagen

  • Kopie van Voorbeeld Helpmij 2.xlsm
    23,7 KB · Weergaven: 27
Afhankelijk van de gebruikte versie kan je ook Power Pivot gebruiken.

@JeanPaul28, het gebruik van inspringpunten zou jouw code leesbaar maken.
 

Bijlagen

  • Kopie van Voorbeeld Helpmij 2.xlsm
    206 KB · Weergaven: 39
Ik ga naar beide oplossingen eens goed kijken. Power Pivot moet ik me nog eens meer in verdiepen.
 
Of met een Dictionary:

Code: 
Sub M_snb()
    sn = Blad2.Cells().CurrentRegion
    sp = Blad3.Cells().CurrentRegion
    
    With CreateObject("scripting.dictionary")
        For j = 1 To UBound(sn)
        ReDim st(0, 5)
           If .exists(sn(j, 1)) Then st = .Item(sn(j, 1))
           st(0, 1) = sn(j, 1)
           st(0, 2) = st(0, 2) + sn(j, 2)
           st(0, 3) = st(0, 3) + sn(j, 3)
           .Item(sn(j, 1)) = st
        Next
        For j = 2 To UBound(sp)
           If .exists(sp(j, 1)) Then st = .Item(sp(j, 1))
           st(0, 0) = sp(j, 2)
           st(0, 4) = sp(j, 3) * 1
           st(0, 5) = sp(j, 4) * 1
           .Item(sp(j, 1)) = st
        Next
        Blad1.Cells(10, 1).Resize(.Count, 6) = Application.Index(.items, 0, 0)
    End With
End Sub
 
Ik ben voor PowerQuery en PowerPivot gegaan. Ik vind het makkelijker om zo een geheel dasboard te bouwen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan