Markere linie rød eller grøn

Har du prøvet med betinget formatering? Formater > Betinget formatering.

Hvis det er A1, der skal testes, så:

1. Første felt sættes til "Formlen er"
2. Andet felt sættes til =$A$1=""
3. Under knappen Formater.... vælger du cellefarve under Mønster
4. Kopiér formattet med formatpenslen til de andre celler i rækken.

hmmm.. umiddelbart ser det ud til at kunne virke... men jeg er desværre lige blevet kaldt på arbejde så må vente med at kigge på det til senere...

Så fik jeg endelig tid til at kigge på det igen...

Desværre kan jeg ikke bruge betinget formatering, da den (i hvert fald som jeg kan se mig ud af det) kun tester på en enkelt celle.

I det jeg gerne vil, skal der faktisk testes på 2 forskellige celler.

Eks.
      A            B
1  17.01.06
2  02.01.06        X      <-------------- skal være grøn
3  30.12.05              <-------------- skal være rød

Række 2 ovenfor skal være grøn da kolonne B ER udfyldt og datoen er overskredet, hvorimod række 3 skal være rød da kolonne B IKKE er udfyldt og datoen er overskredet. Række 1 skal bare være hvid.

Håber det var mere forståeligt...

tilføjelse...

Kolonne A skal testes imod dags dato...

Så skal du nok snarere over i noget VBA-programmering - og der er jeg ikke skrap nok! :(

Håber, at nogen af de andre kan hjælpe!

Det var også lidt det jeg tænkte... ;-)

Håber der er andre kloge hoveder der har en løsning på mit problem... *S*

Hov... lige en tilføjelse mere...

Hvis kolonne B (som i eksemplet ovenfor) er udfyldt, så skal linien markeres grøn uanset hvad der står i kolonne A...

Til dette kunne man måske godt bruge betinget formatering...??

1. Marker celle A1
2. Vælg betinget formatering og vælg [Formel er] og skriv  = $B1 <> ""
3. vælg farve grøn  og tryk ok.
4. vha formatpenselen kopierer du nu dette format til alle celler der skal blive grønne hvis kol B er udfyldt
5. vælg celle A1 og betinget formatering igen
6. vælg tilføj og [Celleværdien er] [Mindre end] og =IDAG()
7. vælg farven Rød og tryk ok
8. vha formatpenslen kopierer du nu dette format hele vejen ned i kolonne A.

se evt. www.tbdl.dk/excel/farver.xls

jamen det var jo lige præcis det jeg var ude efter... ;-)

eller... det er hele linien der gerne skulle være rød... *S*

Jeps, det er ikke noget problem at gøre hele linien rød.
Marker fx. celle c3 og kopier dennes format helt ud til kolonne IV, men jo flere celler du formaterer, jo flere formler skal dit regneark arbejde med.

Sorry, så ikke lige at du ville have hele linien RØD, så kun GRØNT :-)

Det gør det kun nemmere. Nu kan du bruge samme formatering på alle celler.
Prøv at hente filen igen :-)

aaaaaaaargh... *suk*

kan godt få den til at lave linien grøn når kolonne b er udfyldt... men hvis datoen er overskredet og B ikke er udfyldt bliver den ikke rød... :S

har skrevet disse formler i betinget formatering:

grøn: =$B2<>""
rød: =$A2<IDAG()

stil dig i celle A2, når du laver formateringen, som du har skrevet.
Det er væsentlig.

Derefter bruger du formatpenslen til at kopiere den ud til alle andre celler

hmmmm... ved ikke om det mig der bare er en klaphat til det... *suk*

nu har den jo formateret alle celler til datoformat... :S:S ikke så smart... :-(

nå, så må jeg nøjes med at lave nogle af cellerne farvede...

det virker stadig ikke med den røde... :-(

Hej Pernille

Eksperterne har fat i noget her....
Jeg får det til at virke på følgende måde:

Dato i kolonne A og "felt som skal udfyldes" i kolonne B
1. Klik på 1-tallet i vestre side (markere hele rækken)
  Vælg betinget formatering:
  Betingelse 1: Formlen er    =$B$1<>""    formater... Grøn
  Betingelse 2: Formlen er     =$A$1<=IDAG()    Formater... Rød

2. Klik på 2-tallet i vestre side (markere hele rækken)
  Vælg betinget formatering:
  Betingelse 1: Formlen er    =$B$2<>""    formater... Grøn
  Betingelse 2: Formlen er     =$A$2<=IDAG()    Formater... Rød

Osv. Det virker!

A        B   
01-01-2006        Rød
01-05-2006    12    grøn
17-01-2006        Hvid
17-01-2006    12    grøn


Her har du en makro du kan køre, hvis du ikke gider og lave det manualt:

Sub autobetingetformatering()
A = Sheets("ark1").Range("A65000").End(xlUp).Row


For i = 1 To A
   
    Sheets("ark1").Rows(i).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=""""<>$B$" & i
    Selection.FormatConditions(1).Interior.ColorIndex = 4
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=IDAG()>=$A$" & i
    Selection.FormatConditions(2).Interior.ColorIndex = 3

Next i

End Sub

Vil have lukket alle mine gamle spørgsmål.

Kan dog ikke lige overskue, hvem der skal have point, så hvis du mener du bør have point her send et svar.

Ovenstående var til et projekt, jeg arbejdede med dengang, men kan huske jeg droppede det, så er ikke sikker på at jeg fik testet det sidste svar.

/Pernille

Bare smid et svar selv og luk spørgsmålet på den måde...

Taler selvfølgelig kun på egne vejne...

Ok, ingen der melder sig så smider selv et svar og lukker.