Problemer med farvning ag rækker

Jeg kommer med et godt bud om lidt.

Prøv det her :-)

Public Sub Color()
    Dim lCount As Long
    Dim rRow As Range

    For Each rRow In ActiveSheet.Rows("1:100")
        If Not (rRow.Row Mod 2 = 0) Then
            DoTheColorJob rRow, 15
        Else
            DoTheColorJob rRow, 48
        End If
    Next rRow

    Set rRow = Nothing
End Sub

Public Sub DoTheColorJob(ByRef rRow As Range, ByRef iColor As Integer)
    With rRow
        With .Interior
            .ColorIndex = iColor
            .Pattern = xlSolid
        End With
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End With
End Sub

Farver, og "border" perfekt. Men der er stadigvæk det problem at når jeg tilføjer en ny række og kører makroen igen, så bliver de 2 nederste linier samme farve, hvordan slipper jeg for det?

Det kan have noget at gøre med, at du nu har 101 linie, og makro kun håndterer 100 linier  (  ActiveSheet.Rows("1:100")  )
Hvis du f.eks. har noget i alle celler i kolonne A, så kan du skifte ActiveSheet.Rows("1:100") ud med ActiveSheet.Range("A1").CurrentRegion.Rows

Du kunne indsætte følgende linier i starten af
Sub Color()

----------
Cells.Select
Selection.Interior.ColorIndex = xlNone
----------

Makroen vil så "viske tavlen ren" inden den farvelægger igen.

flemmingdahl -> hvis nu man tilføjer en linie på f.eks linie 61 så får den samme farve som linie 60, så derfor kører man makroen igen, men så vil linie 100 og 101 have samme farve, så linie 101 skal være hvid (ikke farven hvid, men ingen farve (no fill))

Ville det være muligt at lave den så det kun er et makeret område at den farver og laver borders i?? Så man selv bestemmer hvilke områder??
Jeg sætter point op til 100 hvis der kommer en løsning til det!

x.Font.ColorIndex = 0
            x.Interior.ColorIndex = 0

Disse to liner sætter textfarve og cellefarve som normalt når du åbner et nyt ark.

Jeg har lavet et Excel tilføjelsesprogram for et stykke tid siden  der farvelægger rækker. Man vælger startrække, slutrække, farve og mellemrum. Du må gerne se om du kan bruge den til noget. Jeg skal bare vide om du bruger dansk eller engelsk Excel.

blackadder -> jeg bruger engeæsk excel.

engeæsk = engelsk

Hvad er din e-mail adresse ?

bgj@bgjensen.dk

sendt

jeg har installeret den, men hvordan bruger jeg den?

Hvis den er installeret korrekt burde den ligge under 'Tools' menuen.

Never mind, jeg har fundet ud af det!

Men du må gerne ændre den så den også laver borders i de ønskede rækker (hvis det ikke er for svært)

Kan den ikke også ændres til andre farver jeg vil gerne bruge den grå som er der nu og så en grå som er lidt mørkere (farverne 15 og 48)

Jeg kigger på det :-)

Takker

Ny version sendt.

blackadder -> kan du ikke lige lave et svar, så du kan få nogle point, for din udmærkede add-in!

OK