oneven rijen geel en even rijen bruin binnen selectie

[wwwout]

Dag Allemaal,

Ik wil graag het volgende in Excel laten uitvoeren.
Als ik een selectie hebt gemaakt de oneven rijen een gele kleur geven en de even rijen bruin.

Maar dan niet over de hele lengte van het Excel bestand, dan wordt het Excel bestand namelijk erg groot.


Alvast bedankt !
Groeten !
Wouter

 

[Ingrid B]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
  ActiveSheet.Cells.Interior.ColorIndex = xlNone
  For Each c In Selection.Rows
    If c.Row Mod 2 = 0 Then
      c.Interior.ColorIndex = 6
    Else
      c.Interior.ColorIndex = 53
    End If
  Next c
End Sub

kopieer de macro naar de werkblad-code

 

[DownhillRacer]

met deze macro lukt het denk ik wel.

Sub Rijkleur()
Dim rij As Integer
rij = 1
Do While Cells(rij, 1) <> ""
With Range(Cells(rij, 1), Cells(rij, 20)).Interior
'had functie om rij op even te testen niet bij de hand vandaar de formule
If rij / 2 = Int(rij / 2) Then
.ColorIndex = 53
Else
.ColorIndex = 6
End If
.Pattern = xlSolid
End With
rij = rij + 1
Loop
End Sub

 

[wwwout]

Hallo,

Ik heb dit in Excel toegevoegd.
Maar er gebeurd niks !

Ik heb het Excel bestand (zipped) toegevoegd als bijlage !

Groeten !
Wouter

 

[Ingrid B]

bijlage

Vermits je het document niet hebt bijgevoegd, kan ik onmogelijk zien welke van de twee macro's je hebt toegevoegd en waarom het niet werkt.

 

[wwwout]

pffff,

Stom van mezelf !

Ik heb het bestand inmiddels toegevoegd.

Hij werkt zelfs al een beetje alleen wil ik hem nog iets anders als dit mogelijk is ?

Alleen de rijen die geselecteerd zijn om en om een andere kleur geven ! Niet zomaar een aantal kolommen breed dus.

En als ik een tweede selectie maak moet de macro ook weer uit te voeren zijn.

Misschien kunnen jullie mij verder helpen !
Alvast bedankt allemaal !


Groeten !
Wouter

 

[Ingrid B]

De macro die ik gegeven heb mag niet in een module staan, maar moet je naar de werkblad-code kopiëren zoals ik in m'n eerste bericht vermelde. De macro zal dan doen wat je in je laatste bericht hebt gezet.

 

[wwwout]

Ok,

Ik zie het,

Alleen worden nu alleen de geselecteerde rijen bruin/geel.

Kan ik dit ook blijvend laten worden en ergens anders op het werkblad nog een selectie maken ?

groeten,
Wouter

 

[wwwout]

Hallo Allemaal,

Om het verhaal wat duidelijker te maken heb ik een Excel bestand (zipped) als bijlage toegevoegd.


Als er nog vragen zijn dan hoor ik het graag

Groeten !
Wouter

 

[wwwout]

Hallo,

Heeft niemand een idee ?
Zo moeilijk zou het niet moeten zijn lijkt mij ?

gr.
Wouter