Makro som farver celle/row udfra dato

Du behøber ikke en makro. Betinget formatering kan gøre det.

Marker de relevante celler og vælg formater - Betinger formatering.

Vælg Celleværdien er Mindre end og indsæt denne formel: =IDAG()-30
Vælg så den farve din celle skal have og klik OK.

Rettelse. Du skal nok vælge Celleværdien er Større end, og så indsætte formlen.

Ok! Tak men jeg vil gerne have en makro som gør det automatiskt. Alt hentes fra en database og der bliver flere og flere hver gang.

Datoen som ikke længere går ind under ovenstående kriterie skal jo farves normal igen.

Betinget formatering, gør det automatisk, og der er hurtigere end makro.

Så følg jkrons råd.

Hvis du meget gerne vil have en makro, så kan følgende bruges, men husk at makroen skal afspilles hver gang. Den er baseret på at cellerbne med datoerne markeres først.

Sub FarvHvis()
    For Each c In Selection.Cells
        If c.Value >= Date - 30 Then
            c.Interior.ColorIndex = 3
        End If
    Next c
End Sub

jkrons > husk lige at du også skal fjerne farverne igen, når kriteriet ikke længere er opfyldt.

kabbak-> Du har ret. Og hvis det skal ske automatisk skal vi over i noget hændelsesprogrammering og så er vi nødt til at vide hvilke celler, der skal undersøges.

Der er den med "affarvning"

Sub FarvHvis()
    For Each c In Selection.Cells
        If c.Value >= Date - 30 Then
            c.Interior.ColorIndex = 3
        Else
            c.Interior.ColorIndex = xlNone
        End If
    Next c
End Sub

c.Interior.ColorIndex = xlNone

Hi! Det er noget i den stil som jeg leder efter. Betinget formatering virker også men der er allerede et makro i arket så det er perfekt at få det som et makro.

Jeg når ikke at teste den nu men skal nok gøre det så snart jeg har tid.
Kanon gutter! :)

Det virker bare perfekt! Tak fo hjælpen gutter!

--> Ikrons: Svar for dine velfortjente points.

Ps. Kan du forresten også lige forklare hvordan jeg sætter ett mellemrum ind i en msgbox?

Streng = MsgBox("Gul 100 aktive sager!, Grøn - 10 aktive sager!, Orange - 0 aktive sager")

Ikrons! Hvis du svarer får du dine points :-)

Stadig ikke noget svar - lukker! Skriv igen hvis du vil have dine points :-)

Her goes.

Hvor er det i øvrigt at du vil have mellemrummet i msgboxen?