Selectie gebied om de regel een kleur geven

[bas106gti]

Hoi,

Ik wil graag in een vast bepaald selectie gebied, de regel kleur laten veanderen.
Omdat we nog al met grote lijsten werken, is het voor de leesbaarheid makkelijk om de ene regel wit en de ander bijvoorbeeld donker grijs te hebben.

ik wel wat geprobeerd via het opnemen van een macro, maar hier heb ik geen onafhankelijkheid, de code doet elke dezelfde stappen.

gr. Sebastiaan Meijer

 

[Wigi]

Post je code dan en ook aangeven om welke cellen het juist gaat.

 

[Maglor]

Dit zou het moeten doen...

Tabel selecteren en dan de macro laten lopen

Sub kleuren()
    Dim i As Integer
    
    For i = 1 To Selection.Rows.Count
        If i Mod 2 = 0 Then
            Selection.Rows(i).Interior.ColorIndex = 16
        Else
            Selection.Rows(i).Interior.ColorIndex = xlNone
        End If
    Next i
End Sub

 

[bas106gti]

Post je code dan en ook aangeven om welke cellen het juist gaat.

<div style="margin:20px; margin-top:5px">
<div class="smallfont" style="margin-bottom:2px">Code:</div>
<pre class="alt2" style="margin:0px; padding:6px; border:1px inset; width:640px; height:260px; overflow:auto"><div dir="ltr" style="text-align:left;">Sub OMENOMGRIJS()
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
End With
End Sub
</div></pre>
</div></div>

Dit het gene wat ik heb opgenomen met de macro.
Dit werkt voor een aangesloten lijst (wat ook altijd het geval is)

gr.

 

[Wigi]

Ik zou dit doen:

Sub kleuren()
Dim i As Long
For i = 1 To Selection.Rows.Count
Selection.Rows(i).Interior.ColorIndex = IIf(i Mod 2, 48, xlNone)
Next i
End Sub

Code gebaseerd op die van Maglor, met een aantal wijzigingen toch.

Wigi