kleur automatisch met getal

[mr0007]

ik zou als dat kan de cellen automatisch laten kleuren aan de hand van willekeurige getallen, zie mijn bestand
kan iemand helpen

MVG mr0007

 

[edmoor]

Als voorbeeld:
Zet dit achter het werkblad en sla hem op als .xlsm (Werkboek met macro's)

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim cl As Range
    For Each cl In Range("C7:C16")
        If Target.Value = cl.Value Then
            Target.Interior.Color = cl.Interior.Color
        End If
    Next cl
    Application.EnableEvents = True
End Sub

 

[mr0007]

nederlands versie heb ik excel 2016 ik zie wat u heeft is engels, kan het dan wel, ik heb nog niet met macro's gewerkt, ik zie in mijn excel , macro's opnemen
is het de bedoeling dat ik dan dit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim cl As Range
For Each cl In Range("C7:C16")
If Target.Value = cl.Value Then
Target.Interior.Color = cl.Interior.Color
End If
Next cl
Application.EnableEvents = True
End Sub

daar in moet zetten

MVG mr0007

 

[Hunuloeloe]

Ja engels kan gewoon. Om de macro van edmoor op te nemen in je excel open je het bestand vervolgen Alt+f11.
Hier vind je "this workbook" daar kopieer je code van edmoor in en daarna sla je het bestand op als xlsm

 

[edmoor]

Macro's zijn altijd in het Engels, ongeacht de taalversie van Office.
De code die ik je gaf zet je in de werkblad sectie van de VBE:

 

[snb]

Daarvoor hebben we toch CF ?

Wijzig de getallen maar eens in C33:C43 en zie....

 

[mr0007]

dank je wel, ik ga VBE: opzoeken en zet het er in,

MVG mr0007

 

[mr0007]

van edmoor heb ik opgeslagen met ALT+F11 VBE werkt nog niet, doe iets niet goed denk ik, weet nog niet wat,

van snb werkt beter , nog niet helemaal zo als ik het bedoelde , ik heb de formules bekeken in de voorwaardelijke opmaak, ik heb daar door wel beter inzicht gekregen
wat je met voorwaardelijke opmaak kunt doen, formule aanpassen, moet er even over nadenken, langzamerhand leer ik steeds meer met formules, ben nog lang niet zo goed als julie met
formules, maar ieder beetje is weer meegenomen en bijgeleerd,
dank u wel voor de reacties allemaal

MVG mr0007

 

[edmoor]

van edmoor heb ik opgeslagen met ALT+F11 VBE werkt nog niet, doe iets niet goed denk ik, weet nog niet wat,

Dan heb je de code niet in de juiste sectie geplaatst.

 

[mr0007]

ik heb op je plaatje gekeken pijl staat op blad1 (blad1) zelfde geprobeerd

 

[edmoor]

Dat ziet er goed uit en hier werkt het in het document dat je plaatste prima.
Plaats je .xlsm versie hier eens.

 

[VenA]

Range("C[COLOR="#FF0000"]6[/COLOR]:C16")

 

[mr0007]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim cl As Range
For Each cl In Range("C6:C16")
If Target.Value = cl.Value Then
Target.Interior.Color = cl.Interior.Color
End If
Next cl
Application.EnableEvents = True
End Sub

ok veranderen ga ik proberen

MVG mr0007

 

[edmoor]

Ook dat. Fieptoutje

 

[mr0007]

ik heb het geprobeerd met vba vbe ik krijg het niet voor elkaar, excel formules en voorwaardelijke opmaak werkt beter voor mij
dank u voor de reacties

MVG mr0007

 

[snb]

Mij is niet duidelijk wat mijn aanpak anders doet dan wat je wil/beschrijft.

 

[mr0007]

snb u heeft het heel goed gedaan, ik zie dat het voor mij beter is, een kolom B er bij te gebruiken, en 1 tm 6 te maken en daar de vaste kleur aan te koppelen
door de formule in voorwaardelijke opmaak, zie ik dat het getal 22 een kleur is aan gekoppeld, dat vast staat ( voor mij is het ook een leer proces hoe formules wel en niet kunnen werken )

zoals in het excel bestand staat geschreven ( getallen hier onder kan ik elk getal neerzetten wat ik maar wil )
ik had gedacht als ik bv van het getal 22 bv 33 maak, dan het op dat moment de kleur van 22 wordt, en op die manier elk getal dan kan neerzetten,
dat gaat niet goed lukken.

dus ik zie nu dat het beter is, een kolom B er bij te gebruiken, en 1 tm 6 te maken op cel B33 t/m B43, zodat ik daar de getallen 1 tm 6 afwisselend kan neerzetten, en in Kolom C dus naast 1 tm 6
kan ik dan elk getal neerzetten die ik maar wil, en dat gaat lukken zie ik nu

ik zet deze vraag dus ook op opgelost heel erg bedankt :thumb: :d

MVG mr0007

 

[mr0007]

ja hoor werkt perfect met 1 tm 6

MVG mr0007