Hele rij kleuren ipv alleen cel

[MEradus]

Goedemorgen,

Ik heb onderstaande code op internet gevonden om ervoor te zorgen dat een cel geel wordt bij de waarde "Na Rittijd".
Alleen nu zou ik eigenlijk graag willen dat de hele rij (t/m kolom W) geel wordt.

Zou iemand mij kunnen helpen hiermee?

Dim Lrow As Long
Dim MR As Range
Dim cell As Range
Lrow = Range("G" & Rows.Count).End(xlUp).row
Set MR = Range("G2:G" & Lrow)
For Each cell In MR
If cell.Value = "Na Rittijd" Then cell.Interior.Color = 65535
If cell.Value = "" Then cell.Interior.Color = 2
    Next

Alvast bedankt

 

[OctaFish]

Kleine aanpassing:

    For Each cell In MR
        If cell.Value = "Na Rittijd" Then Rows(cell.Row).Interior.Color = 65535
        If cell.Value = "" Then cell.Interior.Color = 2
    Next

 

[OctaFish]

Goed lezen helpt .

    For Each cell In MR
        If cell.Value = "Na Rittijd" Then ActiveSheet.Range("G" & cell.Row & ":" & "W" & cell.Row).Interior.Color = 65535
        If cell.Value = "" Then cell.Interior.Color = 2
    Next

 

[VenA]

Ik neem aan dat ook de kolommen G t/m W zwart moeten worden als de cel leeg is.

Sub VenA()
Dim cl
For Each cl In Range("G2:G" & Cells(Rows.Count, 7).End(xlUp).Row)
    If cl = "Na Rittijd" Then cl.Resize(, 17).Interior.Color = 65535
    If cl = "" Then cl.Resize(, 17).Interior.Color = 2
Next cl
End Sub

 

[HSV]

Een gevonden code die niet voldoet?
Ik lees nergens dat de rijen zwart moeten worden als een cel leeg is.
Als het toch zwart moet zijn, xlnone veranderen in vbblack

Sub hsv()
Dim cl As Range
 For Each cl In Range("G2:G" & Cells(Rows.Count, 7).End(xlUp).Row)
    cl.resize(, 17).interior.color = iif(lcase(cl) = "na rittijd", vbyellow, xlnone)
 Next cl
End Sub

Of:

Sub hsv()
Dim cl As Range
 For Each cl In Range("G2:G" & Cells(Rows.Count, 7).End(xlUp).Row)
    cl.resize(, 17).interior.color = iif(lcase(cl) = "na rittijd", vbyellow, iif(cl= "", vbblack, xlnone))
 Next cl
End Sub

 

[VenA]

Volgens mij geeft Interior.Color = 2 toch een aardig zwarte kleur.:d Ik lees overigens twee voorwaarden: IF cell.value = "Na Rittijd" en if cell.value = "".

We vernemen wel van de TS welke code voldoet.

 

[HSV]

Klopt, dat staat in de code die niet deugt.
In de beschrijving lees ik niet dat de vragensteller dit wil.

 

[MEradus]

Geweldig, dit heeft mij perfect geholpen.

Mijn dank is weer groot.