Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Celkleur nummer geven uit lijst  (gelezen 57391 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Celkleur nummer geven uit lijst
« Gepost op: 27 april 2019, 17:10:03 »
Goedemiddag

In bijlage is een tabblad met een schema per week,
afhankelijk van de kleur is er een aantal te nemen stalen.

Onderaan is er een lijst met kleuren en hun aantal.

Kan er in de bovenste tabel het cijfer in staan afhankelijk van de onderstaande lijst ?
zoals met vb verticaal zoeken ? of ?

Indien dit lukt is dit super :)

indien de kleur zwart is en de kleur ook zwart is dit niet leesbaar in de cel, wel in de balk,
voor mij is dit anders wel ok (is waarschijnlijk moeilijk voor een andere kleur ?


Alvast bedankt !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #1 Gepost op: 27 april 2019, 17:51:21 »
Hallo Georgyboy,

Wat ik me hierbij afvraag : hoe komen de kleuren in je bovenste tabel terecht ?
Mijn gevoel zegt me dat je ze kopieert uit de lijst eronder (?)
In dat geval zou ik er een supereenvoudige oplossing van maken, nl. de aantallen uit C30:C40 ook in B30:B40 zetten, dan kan je ook de tekstkleur voor zwart anders kiezen.
Je kan dat met absolute celverwijzing doen, maar dat is enkel nuttig als aantallen eventueel later kunnen wijzigen.

Goed genoeg, of zit er meer achter ?

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #2 Gepost op: 27 april 2019, 18:04:06 »
Hallo Pitufo,

Bedankt voor je antwoord

Inderdaad de kleur van de onderstaande lijst word gekopieerd naar de bovenste.

De bovenste lijst is om visuele weekkalender te maken wat er in die week hoeft te gebeuren van stalen.

bedoeling is om de onderstaande lijst te behouden en per jaar weer een schema met kleuren op te maken

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #3 Gepost op: 27 april 2019, 18:06:51 »
Het enige wat ik niet in je reactie terugvind : kan je verder met mijn oplossing ?
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #4 Gepost op: 27 april 2019, 18:14:31 »
Excuses,

probeer ik uit

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #5 Gepost op: 27 april 2019, 18:23:54 »
Werkt inderdaad simpel  :D

Maar dacht eigenlijk aan verticaal zoeken of ….

Té ver gezocht !

Sorry voor de vraag stelling

Bedankt voor je antwoord :)

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #6 Gepost op: 27 april 2019, 18:35:16 »
Geen enkel probleem, Georgyboy, m.a.w. sorry's volkomen overbodig.
Het belangrijkste is dat je geholpen bent.

Anderzijds : dit werkt enkel als je de juiste volgorde aanhoudt, dus eerst de getallen toevoegen in je opzoeklijst en daarna naar hartelust kopiëren naar je tabel. Mocht je al een bestand met een massa gekleurde cellen hebben die je nog wil aanpassen, dan valt er daar ook vlug iets voor te verzinnen.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #7 Gepost op: 28 april 2019, 07:52:12 »
Goedemorgen

Nog even verder zitten kijken om toch via de zoektabel de kleur en het aantal stalen in de tabel te plaatsen.

Testje met voorwaardelijke opmaak, maar kom er niet uit om het juist aantal stalen + kleur overeenkomst in de tabel te krijgen

Zo toch weer een vraag indien mogelijk  :)

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #8 Gepost op: 28 april 2019, 10:24:45 »
Hallo Georgyboy,

Je hebt nu inderdaad 'iets' werkend gekregen met voorwaardelijke opmaak, maar het is natuurlijk wel het totaal omgekeerde van wat je wou.
'Voorwaardelijke opmaak'... het woord zegt het zelf : het gaat over opmaak.
Wat jij in eerste instantie wou was een kleur invullen en dan moet er een getal bijkomen.
Wat je nu hebt bereikt : je zet een getal en dan wordt de cel gekleurd.
Simpel gezegd : dat krijg je nooit goed op deze manier.

Je kan het op 2 manieren aanpakken, je vindt ze in mijn bijlage op blad1 en blad2.
Blad 1 : onder 'kleur' staat adhv een formule het getal dat onder 'stalen' staat, en dan kan je met een lege tabel beginnen en de kleurtjes kopiëren.
Blad 2 : 'kleur' bevat hier geen getallen, en je kan beginnen met een reeds gevulde tabel. Voer daarvoor de procedure 'aantallen_invullen' uit. Die werkt momenteel op het formaat en de plaats van je tabel en je kleurtabel, dus moet eventueel aangepast worden aan je echte werkstuk.

Bemerk in beide gevallen ook de tekstkleur  ;)

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #9 Gepost op: 28 april 2019, 11:12:22 »
Helemaal TOP  :thumbsup:

Hoe mag ik je bedanken ?


Probeer hier je code te begrijpen  ;)

Sub aantallen_invullen()

Application.ScreenUpdating = False
For kolom = 2 To 13 "kolom 2 tot 13"
  For rij = 5 To 25 "rij 5 tot 25"
    For kleurrij = 30 To 40 "kleurrij 30 tot 40"
      If Cells(rij, kolom).Interior.Color = Cells(kleurrij, 2).Interior.Color Then

"als cel (rij, kolom) kleur rij 2° kolom = dan kleur"
        Cells(rij, kolom).Value = Cells(kleurrij, 3).Value

" dan is het kleur uit rij 3"
        Select Case kleurrij "indien geselecteerd kleurrij"
          Case 30, 34, 36: Cells(rij, kolom).Font.Color = RGB(255, 255, 255)

"als 30 ? 34?, 36 ? dan kleur RGB ...
        End Select
        Exit For
      End If
    Next kleurrij "lus kleurij"
  Next rij "volgende rij"
Next kolom "volgende kolom"

End Sub

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #10 Gepost op: 28 april 2019, 11:54:11 »
Hoi,

Citaat
Hoe mag ik je bedanken ?
Een aantal (dat mag een beperkt aantal zijn) smileys volstaat  :D

Ha ja, code...
Voor het grootste deel ben je mee, maar :
Citaat
"als cel (rij, kolom) kleur rij 2° kolom = dan kleur"
        Cells(rij, kolom).Value = Cells(kleurrij, 3).Value
" dan is het kleur uit rij 3"
De kleur zet je altijd zelf, dus de instructie luidt eerder : "vergelijk de kleur in de betreffende cel achtereenvolgens met de kleuren in kolom B van rij 30 tot rij 40, en als die overeenkomt zet dan in deze cel het getal dat je op dezelfde rij in kolom C vindt"

Citaat
"als 30 ? 34?, 36 ? dan kleur RGB ...
"als de overeenkomstige kleur zich op rij 30, 34 of 36 bevindt (de nogal donkere) verander dan de tekstkleur in wit"

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #11 Gepost op: 28 april 2019, 15:30:39 »
Bedankt Pitufo,  :thumbsup:

Helpt me 2 x verder

1) Het werkt wat we zoeken

2) we begrijpen ook nog eens de code (ook belangrijk :))


Groeten,

Georgyboy


Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Celkleur nummer geven uit lijst
« Reactie #12 Gepost op: 04 mei 2019, 18:25:43 »
Heb er veel plezier aan
Dank  :thumbsup:

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Celkleur nummer geven uit lijst
« Reactie #13 Gepost op: 04 mei 2019, 20:14:43 »
Dáár doen we het voor  :)
Bedankt voor je feedback !
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

 


www.combell.com