Cel kleur
Ric Meeuwisse
in een cel staat "ROOD"
afhankelijk van deze cel inhoud zou de rijkleur ook rood
moeten worden.
Wie heeft daar een macro voor ?
Ric
Pieter Kuyck
Met voorwaardelijk opmaak kan dit ook.
Stel in kolom A staat ROOD
Selecteer de rij, bijvoorbeeld rij 1
Activeer Voorwaardelijk Opmaak (menu Opmaak > Voorwaardelijk Opmaak)
Kies Formule Is
en type =$A1="ROOD"
$A1 als je rij 1 hebt geselecteerd, als je een andere rij selecteert dan dit rijnummer gebruiken
Kies via de knop Opmaak een patroon, bijvoorbeeld een rode kleur.
en klaar
De opmaak kan je naar de andere rijen kopieren, het zal dan daar werken.
Kopieren > Plakken Speciaal > Opmaak
Pieter
"Ric Meeuwisse" <r.mee...@westernseed.nl> wrote in message news:09c701c366f7$72fd1610$a401...@phx.gbl...
Ric Meeuwisse
echter de data die we ophalen naar excel heeft deze cel
info bv 'ROOD' of een andere kleur.
het ophalen van de data gebeurt dmv een macro.
de bewerking van de data, het toevoegen van de rij kleur
o.a. zou automatisch moeten gebeuren en niet handmatig.
ik denk aan een macro die afhankelijk van de celinhoud de
rij automatisch kleurt.
Ric
>.
>
Pieter Kuyck
Als je over drie verschillende kleuren hebt dan werkt het nog steeds uitstekende met een voorwaardelijk opmaak, ook als
de gegevens via een macro in de cellen worden geplaatst. Dit had je kunnen ontdekken als je het had geprobeerd.
Als je meer dan 3 kleuren hebt dan zul je een macro moeten gebruiken. Nu het volgende probleem, Excel kent geen commando
waarmee je de tekst ROOD kunt vertalen naar een achtergrondkleur. Dus je moet zelf de link leggen met de tekst en de
achtergrondkleur.
In het werkblad event Change plaats je de volgende code (ik ga ervanuit dat je weet wat een werkblad event is, anders
even opzoeken via Google hoe je de code moet plaatsen)
'--------Start code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case UCase(Target.EntireRow.Range("a1").Text)
Case "ZWART"
Target.EntireRow.Interior.ColorIndex = 1 'tekstkleur niet leesbaar!!
Case "WIT"
Target.EntireRow.Interior.ColorIndex = 2
Case "ROOD"
Target.EntireRow.Interior.ColorIndex = 3
Case "GROEN"
Target.EntireRow.Interior.ColorIndex = 4
Case "BLAUW"
Target.EntireRow.Interior.ColorIndex = 5
Case "GEEL"
Target.EntireRow.Interior.ColorIndex = 6
Case Else
Target.EntireRow.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
'--------Einde code
Pieter
"Ric Meeuwisse" <r.mee...@westernseed.nl> wrote in message news:0cac01c3671b$ce9f4c30$a601...@phx.gbl...
ddh <ddenhooglander
Ik breek even in in de discussie, Ik zit namelijk ook te tobben met
voorwaardelijk opmaak. Ik wil over een fors deel van een werkblad
meerdere voorwaardelijk opmaken (ik weet niet of dit wel goed
Nederlands is) toepassen. Ik ben niet bekend met VBA maar als ik de
code van Pieter lees geldt deze alleen voor rijen. Ik wil cellen apart
kleuren niet een gehele rij.
Pieter , kun jij mij wellicht helpen.
On Wed, 20 Aug 2003 16:41:24 +0200, "Pieter Kuyck" <ln.ollehc@kcyuk>
wrote:
DeeJee
>code van Pieter lees geldt deze alleen voor rijen. Ik wil cellen apart
>kleuren niet een gehele rij.
Achtergrondkleur van een cel in VBA: ActiveCell.Interior.ColorIndex = 2
Voorgrondkleur van een cel in VBA: ActiveCell.Font.ColorIndex = 1 en
ColorIndex = 1 tot 56 zodat je een gans kleurengamma ter beschikking hebt.
1 = zwart, 2 = wit, 3 = rood enz.
Eventueel met de color eigenschap en RGB() functie,
dan heb je nog veel meer kleuren.
Dit zet je in een change event van een sheet met nog de voorwaarden
in de code wanneer de kleur mag of moet veranderen van een cel.
Maar als je VBA niet kunt gebruiken heb je er waarschijnlijk niet veel aan?
ddh <ddenhooglander
Bedankt (en sorry dat ik je mailbox inmiddels heb "misbruikt" , ik
moet nog leren om met nieuwsgroepen om te gaan)
Ik heb dit geprobeert en het werkt , je voelt wel aan dat ik nog meer
wil proberen. Ik heb dan ook het volgende in elkaar gezet:
Sub KleurMaken ()
If ActiveCell.Value="training8uur" Then
ActiveCell.Interior.ColorIndex = Blue
End If
End Sub
Hierbij wordt ik getracteerd op een foutmelding , waarna Excel niets
meer doet. ik moet via taakbeheer excel eerst afsluiten. Kortom ik doe
iets goed fout. Kan jij zien wat ik fout doe?
Ingrid Baplue
of
ActiveCell.Interior.Color = RGB(0, 0, 255)
Ingrid
DeeJee
Reeds opgelost door Ingrid.
Voer deze code eens uit dan heb je alle ColorIndexen in kolom A
met het kleur in kolom B.
Private Sub KleurCel()
Dim T As Integer
Range("A1").Activate
For T = 1 To 56
ActiveCell.Value = "ColorIndex = " & T
ActiveCell.Offset(0, 1).Activate
ActiveCell.Interior.ColorIndex = T
ActiveCell.Offset(1, -1).Activate
Next T
Range("A1").Activate
ActiveCell.Range("A1:A56").Columns.AutoFit
End Sub
ddh <ddenhooglander
Ik begin hier pret in te krijgen en heb de euvele moed om nog wat te
vragen.
Ik heb getracht om meer mogelijkheden te laten verkleuren. ik krijg
echter een syntaxis fout.De code is als volgt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Sub KleurMaken()
If ActiveCell.Value = "tr";"tr8" Then
ActiveCell.Interior.ColorIndex = 8
ActiveCell.Offset(-1, 0).Activate
End If
End Sub
Bij het tr en tr8 gaat het mis (ik dacht eerst dat de tekst te lang
was tr staat voor training en tr8 voor training8uur) , ik heb het ook
met haakjes geprobeert (n.a.v. een stukje in het Excel helpbestand) en
met Accent tekens.
Kortom , hoe kan ik meerdere mogelijkheden achter elkaar zetten?
Ik beloof dat ik u beiden hierna met rust zal laten en nogmaals
hartelijk dank.
Ingrid Baplue
geval dus Or. Je krijgt dan het volgende:
If ActiveCell = "tr" Or ActiveCell = "tr8" Then ...
Als je echter veel verschillende codes moet testen kan je misschien beter
gebruik maken van de Case-instructie:
Select Case ActiveCell
Case "tr", "tr8"
...
Case ...
End Select
Ingrid
Luc.Heyndrickx
Een punt-komma wordt hiervoor niet gebruikt.
Luc
"ddh @hotmail.com>" <ddenhooglander<zonderdit> schreef in bericht
news:4u99kv8knprkfpjsn...@4ax.com...