voorwaardelijke opmaak hele regel als woord voorkomt

[Exceluser]

Hallo Mede Excel gebruikers,

Hier weer een klein vraagje van mij.

Ik wil graag als er in een cel van kolom E Geen dienst staat, deze hele regel geel laten vullen, kan dit via VBA?

Alvast bedankt voor jullie reacties!

 

[HSV]

Met zoiets kan dat.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cl As Variant
     For Each cl In Range("E1:E100")
   If cl = "GEEN dienst" Then cl.EntireRow.Interior.ColorIndex = 6
  Next
End Sub

 

[Exceluser]

Hoi HSV,

Werkt helemaal perfect.

Zou dit ook kunnen met een gedeelte van een rij, komt ook wel eens voor dat alleen Range A gevuld moet worden.

Zowiezo bedankt voor de sub, ben er mee geholpen.

 

[Exceluser]

(A)

Krijg een smily in bovenstaand bericht.
moet zijn: kolom A t/m P.
Ga er van uit dat het nu snapbaar is.

Tnx

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cl As Variant
     For Each cl In Range("E1:E100")
   If cl = "GEEN dienst" Then Cells(cl.Row, 1).Resize(, 16).Interior.ColorIndex = 6
  Next
End Sub

 

[Exceluser]

Bedankt beide voor het helpen.
Ik heb zo een werkende code.

Nogmaals bedankt.

zal de vraag als opgelost zetten.