Grafiekkolommen individueel opmaken

[PaulMak]

Beste specialisten,

Ik ben redelijk onwetend met het opmaken van Grafieken. Ik heb gisteren al een noodkreet geslaakt maak ik ben bang dat ik daarin zo'n rommeltje heb gemaakt waardoor de reagerende specialisten zijn afgehaakt (denk ik )

Ik wil het daarom nog eens proberen...

Mijn bedoeling is om door mijn data rapport te scrollen van onderwerp naar onderwerp.
- Het gaat om omzetcijfers van 12 maanden + het budget
- Mijn grafiek geeft 12 omzetkolommen weer + een budgetkolom

Ik krijg het niet voor elkaar om de laatste budgetkolom een afwijkende kleur te geven.
Dat wil zeggen ... voor 1 regel gaat het wel maar ik wil dat die afwijkende kleur bij elke regelkeuze hetzelfde blijft

Wie kan mij de gouden tip geven??

Ik hoop dat ik vandaag duidelijker ben dan gisteren en dat iemand mij wil helpen.

Gr.
Paul Mak

Bekijk bijlage Grafiekvoorbeeld Helpmij.xlsx

 

[gast0660]

Hoi,
EUHHHHHHHH,bedoel je nu dit????

 

[PaulMak]

Goede avond Dotchjack,

Dank je wel voor je hulp! Wat je nu gedaan hebt is het maximale wat mij ook is gelukt.
- Als je teruggaat naar mijn database en
- je klikt in de grafiek en
- verschuift de selectie in de database maar 1 regel naar boven of naar beneden te schuiven)

dan zul je zien dat de rode balk weer blauw is!!!

Wat ik voor elkaar wil krijgen is dat bij elke keuze de Budgetkolom ROOD is.

 

[popipipo]

En als je nu eens dmv een combobox door de data scrolt?

 

[PaulMak]

Wowwww

Allemachtig PopiPipo, DIT IS HET !!!

Dit is niet alleen wat ik vanavond vroeg maar ÓÓK de klus waar ik hierna aan moest gaan werken !!! Super Super bedankt !!!

Ook wil ik gast0660 en de 2 deskundigen van gisteravond bedanken voor de aandacht voor mijn probleem.

PopiPipo,

Ben je ook nog bereid om mij uit te leggen hoe je dit voor elkaar hebt gekregen. Ik ben gek op Excel en ik wil behalve het antwoord ook graag weten hoe de verbanden in elkaar steken en mijzelf blijven verbeteren.
Ik ben 2 avonden bezig geweest met proberen, proberen en nog eens proberen.

Ik hoop dat je mij verder kunt helpen,
Paul Mak

 

[PaulMak]

ehhh ... PopiPipo .........

Beste Willem, er gaat iets mis naar mate ik regel voor regel controleer.

Bijvoorbeeld vanaf productgroep X24 geeft de grafiek de cijfers van het totaal van de X2... groepen
Vervolgens gaat het weer een aantal x goed bij productgroep X31 maar daar gaat het vervolgens weer mis enz enz...

Kun je het alsjeblieft nog eens bekijken of mij laten begrijpen hoe je het hebt opgebouwd???Alsjeblieft!!

Gr.
Paul

 

[HSV]

Paul,

Sleep de grafiek eens naar rechts of naar onderen, dan zie je al het nodige.
Met een rechtermuisklik kom je in de eigenschappen van het besturingselement (Keuzelijst).

 

[VenA]

@popipipo, mooi stukje verstoppen voor de grafiekmanipulatie:thumb:

@PaulMak, even de formules aanpassen in rij 22

=INDEX($A$31:$O$163;VERGELIJKEN($A$22;$A$31:$A$163;[COLOR="#FF0000"]0[/COLOR]);KOLOM())

 

[popipipo]

Er zat een foutje in de index formule (achter de grafiek)
Zoek de verschillen in B22 en pas C22:O22 ook aan.
=INDEX($A$31:$O$163;MATCH($A$22;$A$31:$A$163;1);COLUMN())
=INDEX($A$31:$O$163;MATCH($A$22;$A$31:$A$163;0);COLUMN())

 

[PaulMak]

Heren heren ... super bedankt voor jullie tijd en moeite .. echt !! (VenA ... fijn dat je ook weer terug bent, tnx)

Dat het even duurde voordat ik regeer had te maken dat ik inmiddels ook al achter de grafiek heb gekeken (omdat ik dit zelf ook vaak doe bij om draaitabellen te verbergen achter een grafiek)
Daarna de formule van PopiPipo stap voor stap uitgeprobeert en .... ook met een kleine aanpassing ging het nog fout pfffff

Gelukkig zag ik dat jullie inmiddels ook weer hebben gereageerd waardoor ik de moed weer op kan brengen om verder te gaan testen.

Willem, ik ga je laatste aanpassing toepassen in mijn sheet. Ik laat het weten als het werkt.

Laterzzzz
Paul

 

[PaulMak]

:thumb::thumb::thumb::thumb::thumb::thumb:

Willem & VenA, heel erg bedankt !

Mijn geknutsel thuis in Excel is beetje voor beetje uitgegroeid tot een KPI op mijn werk. Het viel mij op dat mijn leidinggevenden zoveel tijd kwijt waren met het uitwerken van diverse rapportages.
Tot overmaat van ramp werd mij destijds gevraagd om tijdens de vakanties de rapportages bij te werken. Om dat goed te doen kreeg ik een aantal A4tjes mee met posities die ik in de gaten moest houden en wanneer nodig hierin de formules moest aanpassen bij bijvoorbeeld maandwisselingen !!!!

Ik was er van overtuigd dat dat een stuk makkelijk moest kunnen en daardoor ook een stuk veiliger dus betrouwbaarder.

Na 1 voor 1 in diverse rapportages de formules te hebben aangepast door zichtbare variabelen en het toepassen van macro's ben ik steeds meer de centrale persoon geworden voor rapportages voor het management en de directie.
Hierdoor is ongewild en ongepland de verwachting torenhoog geworden en wordt het duidelijker dat ik nog heel veel te leren heb.

Jullie kunnen je wellicht voorstellen hoe dankbaar ik ben voor alle hulp die ik vanavond en alle andere keren van jullie heb gekregen.

DANK JULLIE WEL !!!

Ps. de komende dagen ga ik onderzoeken hoe jullie Willem de link heeft gelegd tussen de index formule/de database en de grafiek :d

 

[Gijsbert1]

Hoi PaulMak,

Misschien ook leuk:
Bekijk bijlage Grafiekvoorbeeld Helpmij Gijs.xlsm (bestand met Macro's, dus deze wel eerst inschakelen)
selecteer bijvoorbeeld Cel C36 en dan pijltje naar rechts en naar beneden. De grafiek balken kleuren mee met de selectie.
Houd je selectie wel in het tabel.(Boven rij 32 staan er geen waardes meer in je grafiek)

Uitgangspunt was het documentje van Popipo maar nu weer zonder combobox


Groet Gijs:thumb:

 

[PaulMak]

Hoi Gijs

Hoi Gijs, dit is inderdaad ook een geweldige optie. Ik word helemaal enthousiast als ik met zulke pareltjes van mechanismes kan 'spelen.'

Ik kan gelijk al een aantal rapportages bedenken waar ik dit kan toepassen echter .... zonder de macro te kunnen analyseren kan ik hier niet verder mee. Je zegt macro's te hebben gebruikt maar ik kan je macro niet terugvinden in het document.

Wil je mij svp ook de macro toesturen?

Alvast hartelijk bedankt joh!

Groetjes
Paul

 

[Gijsbert1]

Hoi Paul,

Dat je de Macro niet kon vinden komt waarschijnlijk dat je alleen in "VBA module" hebt gekeken.
Je moet in VBA, Blad1(Rapport) openen.
De code staat in de selection change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set ActieveSelectie = Selection                                      'Slaat je actieve selectie op in geheugen
Dim PMC As String
PMC = ActiveSheet _
.Cells(ActiveCell.Row, 1).Text                                       'PMC = PMC omschrijving, de tekst uit de 1e kolom van geselecteerde rij
Range("A22") = PMC
[Kolom] = Target.Column                                              '[Kolom] = cel B3, deze is hernoemd en wordt gevuld met kolomnummer van geselecteerde rij
ActiveSheet.ChartObjects("Grafiek 1").Activate                       'selecteerd alle balken in grafiek
ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Fill
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1           'maakt alle balken blauw
    End With
ActiveChart.SeriesCollection(1).Points(13).Select                    'selecteerd 13e balk(de laatste)in grafiek
    With Selection.Format.Fill
        .ForeColor.RGB = RGB(255, 0, 0)                              'maakt 13e balk rood
    End With
If [BarChart].Value > 0 And [BarChart].Value < 14 Then               '[BarChart] = cel B5 deze is hernoemd en er staat een formule in!
ActiveChart.SeriesCollection(1).Points([BarChart]).Select            'selecteerd Balknummer die gelijk is aan cel B5
    With Selection.Format.Fill
        .ForeColor.RGB = RGB(146, 208, 80)                           'maakt Balknummer die gelijk is aan cel B5 groen
    End With
End If
ActieveSelectie.Select                                               'keert terug naar je actieve selectie
End Sub

PS. Wellicht kan de code compacter aangezien het merendeel van de code bestaat uit opnames van macro's!

Groet Gijs.

 

[PaulMak]

Moguhhh

Goedemorgen Gijs,

Dank je wel voor je antwoord / bijbehorende macro.

Deze week heb ik ineens wel heel veel ingewikkelde hulp gekregen van jullie allemaal. De index oplossing van PopiPipo was al een terrein waar ik me nog nooit in had begeven en nu kom jij ook weer met een macro variant die ik nog niet kende.

Ik ga met jullie input dit weekend aan de slag om te begrijpen welke code wat doet. En daarna stap voor stap een nieuw rapport maken en kijken of ik zelf zoiets kan bouwen.

Nogmaals ... super bedank!
Hopelijk zijn jullie nog te bereiken als ik vragen heb over jouw soort macro toepassing en vragen of Index toepassingen.

By the way ... kennen jullie een opleidingsinstituut in de buurt van Rotterdam waar ik eventueel een opleiding kan volgen voor het bouwen van complexe rapporten?

Groetjes
Paul Mak

 

[snb]

Die macro kan nog wel wat compacter.
Het lijkt me een mijl op 7 om bij iedere cursorpositiewijziging de grafiek opnieuw te laten opmaken.
Het lijkt alleen maar zinvol als er een wijziging plaatsvindt in het gegevensgebied.
Daarvan heb ik dan maar gemakheidshalve een tabel (in VBA: listobject) gemaakt.

De code wordt nu:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect([table1], Target) Is Nothing Then
      Cells(22, 1) = Cells(Target.Row, 1)
      
      With ChartObjects("Grafiek 1").chart.SeriesCollection(1)
        .Format.Fill.ForeColor.ObjectThemeColor = 5 ' blauw
        .Points(13).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' rood
        If [BarChart].Value > 0 And [BarChart].Value < 14 Then .Points([BarChart]).Format.Fill.ForeColor.RGB = RGB(146, 208, 80) 'groen
      End With
    End If
End Sub

PS. puntjes op de i:
- voortschrijdend
- X2 consumentenventilatie ipv constumentenventilatie

 

[VenA]

Nog even

If [BarChart].Value > 0 And [BarChart].Value < 14 Then .Points([BarChart]).Format.Fill.ForeColor.RGB = RGB(146, 208, 80) 'groen

aanpassen in

If Target.Column > 2 And Target.Column < 16 Then .Points(Target.Column - 2).Format.Fill.ForeColor.RGB = RGB(146, 208, 80) 'groen

 

[PaulMak]

Baas bovenbaas ....

Goedemorgen snb,

Dank je wel!
Dank je wel voor je hulp mbt de grafiek
Dank je wel voor je taalles hahahaha

Het is wel duidelijk waarom je de titel Mega Honourable Senior Member hebt!

Ik ga de laatste 3 versies met elkaar vergelijken en hopelijk heb ik voldoende hersencapaciteit om te begrijpen welk onderdeel van de macro wát doet.

Over het algemeen is het analyseren geen probleem maar wordt het lastiger als ik het zelf wil opbouwen.
Gelukkig voor mij ben ik redelijk in staat om een kopie van jullie macro's en formules toe te passen op nieuwe rapporten.

Ik blijf me verbazen over de enorme kennis die Senior members hebben in Excel. Daarom is een bijscholing of persoonlijke steun de volgende stap die ik met mijn werkgever moet gaan bespreken.

Nogmaals ..... dank !!

Gr.
Paul Mak

 

[snb]

Nu we toch het aalgladde pad van VBA hebben betreden kunnen we dat het beste maar meteen goed doen.
Ergo: alle formules kunnen uit het werkblad verwijderd worden.
Alle named ranges (behalve die van de gegevenstabel) kunnen verwijderd worden.
De enige code die we nodig hebben is dan:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect([table1], Target) Is Nothing Then
      With ChartObjects("Grafiek 1").chart.SeriesCollection(1)
        .Formula = "=series(Rapport!" & Cells(Target.Row, 1).Address & ",Rapport!$C$32:$O$32,Rapport!" & Cells(Target.Row, 3).Resize(, 13).Address & ",1)"

        .Format.Fill.ForeColor.ObjectThemeColor = 5 ' blauw
        .Points(13).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' rood
        if target.column>2 Then .Points(Target.Column - 2).Format.Fill.ForeColor.RGB = RGB(146, 208, 80) 'groen
      End With
    End If
End Sub

 

[PaulMak]

Beste Snb ... ik beloof .... ik neem de laatste versie mee maarrrrr .... be gentle with me !!!
Als jullie nóg verder gaan dan weet ik 1 ding... dan zit ik straks horendol thuis hahahahaha

Jullie zijn, naar mijn niveau gezien, bezig om mij uit te leggen hoe ik een raket moet bouwen terwijl ik het vouwen van een papieren vliegtuig nog moet oefenen.

Voor de goede orde ... ik ben wel heel blij met jullie input :thumb::thumb:

Gr.
Paul