Voorwaardelijke opmaak

[Joerii14]

Ik moet hier een opdracht maken en ik heb een landkaartje van nederland moeten maken verdeeld over 12 provincies en heb daar ook een tabel bij gemaakt.
mijn vraag nu is hoe kan ik als een cel van een province door waardelijke opmaak van kleur veranderd het deeltje van de landkaart van een provincie dan automatisch mee veranderd.

Voorbeeld : de provincie limburg is groen in de tabel maar wordt ineenkeer geel door stijging van een getal dat het " Groene " limburg op het landkaartje ook meteen geel word ?

bij voorbaat dank, Joeri van grimbergen.

 

[danny147]

Beste Joerii14

Kan je geen bestandje toevoegen aan je vraag.
Eerst zippen of rarren. ( dan beheer bijlagen)

Zo kunnen wij U beter van dienst zijn.

Groetjes Danny :thumb:

 

[Joerii14]

hier heeft u het ingepakte bestandje.
ik heb hier alleen als voorbeeld limburg bijgedaan.

 

[Joerii14]

Beste Joerii14

Kan je geen bestandje toevoegen aan je vraag.
Eerst zippen of rarren. ( dan beheer bijlagen)

Zo kunnen wij U beter van dienst zijn.

Groetjes Danny :thumb:

Kunt u mij dan helpen ?

 

[Wigi]

Hier heb je VBA voor nodig, dus er moet geprogrammeerd worden.

 

[Joerii14]

Hier heb je VBA voor nodig, dus er moet geprogrammeerd worden.

Ok bedankt voor uw hulp.

 

[Wigi]

Een mogelijkheid is om de 3 kaarten van Nederland te maken, telkens de provincie met 3 kleuren perfect over mekaar schuiven.

Vervolgens met een macro 2 van de 3 kleurtjes van een provincie verbergen, en het andere tonen, vanaf dat er iets wijzigt.

 

[Wigi]

zeer bedankt het is me gelukt bedankt !

M v g : Joeri Van grimbergen

En mogen we nog weten hoe?

Op 9 minuten steek ik zoiets niet in elkaar. Hopelijk kan ik er zelf ook wat van leren.

 

[Joerii14]

Een mogelijkheid is om de 3 kaarten van Nederland te maken, telkens de provincie met 3 kleuren perfect over mekaar schuiven.

Vervolgens met een macro 2 van de 3 kleurtjes van een provincie verbergen, en het andere tonen, vanaf dat er iets wijzigt.

Zou u hier een voorbeeldje van kunnen maken ?

 

[Joerii14]

En mogen we nog weten hoe?

Op 9 minuten steek ik zoiets niet in elkaar. Hopelijk kan ik er zelf ook wat van leren.

sorry dit was de verkeerde forum.

 

[Wigi]

sorry dit was de verkeerde forum.

Waar staat de vraag nog?

 

[Joerii14]

Waar staat de vraag nog?

nee ik had een andere vraag aan iemand gesteld ..
maarja laat maar denk ik is te moeilijk lijkt mij ik hou het wel gewoon zo is al mooi genoeg vind ik.

 

[huijb]

@Joerii14 Waarom twee keer vragen?? Nergens voor nodig, andere is dicht.

 

[Joerii14]

Probleem opgelost

ik heb mijn probleem opgelost door met VBA te programmeren.
zo heb ik een script geschreven voor dit probleem.
dank voor al uw help en tot weerziens.

 

[GiMe]

ik heb mijn probleem opgelost door met VBA te programmeren.
zo heb ik een script geschreven voor dit probleem.
dank voor al uw help en tot weerziens.

Mogen wij ook mee genieten van jou ongetwijfeld briljante oplossing ?

 

[Wigi]

Idd, dit is een open forum, waar iedereen van iedereen leert.

 

[Joerii14]

oow sorry natuurlijk.
ik heb hier erg veel van geleerd van mijn "research" op het internet naar deze opdracht toe en heb het na een paar uur uitgevonden hoe.
hier hebben jullie een voorbeeld code .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 3 And Target.Row = 3 Then
  If Target.Value > 1 And Target.Value < 5000 Then showredbra
  If Target.Value > 4999 And Target.Value < 10000 Then showorangebra
  If Target.Value > 9999 Then showgreenbra
End If
End Sub
Private Sub showredbra()
Me.Pictures("Afbeelding 1").Visible = False
Me.Pictures("Afbeelding 3").Visible = False
Me.Pictures("Picture 5").Visible = True
End Sub

Private Sub showorangebra()
Me.Pictures("Afbeelding 5").Visible = False
Me.Pictures("Afbeelding 1").Visible = False
Me.Pictures("Afbeelding 3").Visible = True
End Sub

Private Sub showgreenbra()
Me.Pictures("Afbeelding 3").Visible = False
Me.Pictures("Afbeelding 5").Visible = False
Me.Pictures("Afbeelding 1").Visible = True
End Sub

en voor een voorbeeld download het bestandje hieronder dan zien jullie hoe het werkt.

M.V.G Joeri van grimbergen.

 

[huijb]

Dat is mooi. De volgende keer wel even de spelregels van deze sectie doorlezen.

 

[Joerii14]

ok dat zal ik doen ja ik was nieuw op het forum dus en ik lees eigelijk bijna nooit de regels dus excuses daarvoor.
en btw dat is een erg lange code dat kan kleiner maar dit was het eerste programma dat ik geschreven heb dus.

Joeri van Grimbergen

 

[Wigi]

Als dit je eerste code is, dan heb je dat goed gedaan.

Als er iets beter zou kunnen, dan zouden het de IFs zijn. Probeer eens een Select case statement.

Wigi