Koşullu Renklendirme ??

[Orion1]

HAYIR TAM İSTEDİĞİM DEĞİL O BEN TEKRAR ÖZETLİYİM DİĞER ARKADAŞLAR İÇİN

A VE I SÜTUNLARI ARASINDA YALNIZCA D SÜTUNUN HERHANGİ BİR SATIRINA DEPO YAZILINCA VE I SÜTUNUNDA DEPO YAZILAN SATIRINDA HERHANGİ BİR YAZI OLMADIĞI ZAMAN A DAN H YE KADAR TÜM SATIR SARASIN FAKAT EVET YAZINCA A DAN H YE KADAR TÜM SATIR BEYAZ OLSUN DİYORUM BEN KISACA

Ekli dosayayı inceleyiniz.
Makrolu çözüm.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Cells(Target.Row, "D").Value = "DEPO" And Cells(Target.Row, "I").Value = "" Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Interior.ColorIndex = 6
    ElseIf Cells(Target.Row, "I").Value = "EVET" Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Interior.ColorIndex = xlNone
    Else
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Interior.ColorIndex = xlNone
End If
hata:
End Sub