Avatar billede tida Juniormester
07. januar 2011 - 10:14 Der er 4 kommentarer og
1 løsning

Ændre farve via makro

Jeg har brug for hjælp til en løsning af følgende arbejdsopgave:

I et ark findes et antal kolonner med beløb som skal gennemgåes fra en ende af hver måned. Når de er checket markeres dette med en gul farve, så man bedre har styr på hvor langt man er nået.

Næste måned har man brug for at "rense" arket...fjerne gul farve og erstatte med hvid.

Skal lige sige at der findes andre farver i arket der ikke skal fjernes, ellers havde det været ret simpelt.

Kan nogen skaffe en makro der erstatter gul med hvid...jeg ved ikke helt hvordan man identificerer den gule farve...men måske den hedder noget med

RGB
Rød 255
Grøn 255
Blå 0
Avatar billede supertekst Ekspert
07. januar 2011 - 10:22 #1
Prøv at sende en "farveprøve" - @-adresse under profil
Avatar billede tida Juniormester
07. januar 2011 - 11:10 #2
Hej Supertekst

Farveprøve afsendt
Avatar billede jkrons Professor
07. januar 2011 - 11:27 #3
Denne makro erstatter alle celler i et markeret område med gul baggrundsfarve med ingen baggrundsfarve. Celelr med andre farver berøres ikke.

Sub GulTilHvidt()
    For Each c In Selection.Cells
        If c.Interior.Color = 65535 Then
            c.Interior.Color = xlNone
        End If
    Next c
End Sub
Avatar billede tida Juniormester
07. januar 2011 - 13:03 #4
Tusind tak - send svar

her er makro:


Public Sub fjernGulFarve()
Const gulFarveNr = 6
Dim antalKol As Long, antalRæk As Long, cc As Variant

    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
        For Each cc In Range(Cells(1, 1), Cells(antalRæk, antalKol))
            If cc.Interior.ColorIndex = gulFarveNr Then
                cc.Interior.ColorIndex = xlColorIndexNone
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Avatar billede supertekst Ekspert
07. januar 2011 - 13:06 #5
Selv tak - du får et svar..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester