conditional formatting sayısını artırmak

[cevatyildiz]

Ekteki dosyada da ki conditional formatting sayısını artırmak istiyorum bunun için vba kullanmam lazım ama yazamıyorum. Ekteki örnekte yer alan üç renk haricinde bir de Orange color istiyorum. Aşağıda yer alan kodları Excel in anlayabileceği bir şekle dönüştürebilir misiniz?

Yardımlarınız için şimdiden teşekkürler

If Me.ControlResult = "D" Or (Me.ETD <> "" And Me.ControlDate <> "" And Me.ControlResult <> "" And Me.ControlDate <= Me.ETD And Me.ControlResult = "Y") Then
Me.Detail.BackColor = ColorConstants.vbGreen

ElseIf Me.ETD - Date < 10 And Me.ETD - Date > 0 Then
Me.Detail.BackColor = ColorConstants.vbYellow

ElseIf Me.ControlDate >= Me.ETD And Me.ControlResult = "Y" Then
Me.Detail.BackColor = 33023 'Orange color

ElseIf Me.ETD <> "" And Me.ControlDate <> "" And Me.ControlResult <> "" And Me.ControlDate > Me.ETD And Me.ControlResult = "Y" Or Me.ControlResult = "N" Or Me.ETD - Date < 6 Then
Me.Detail.BackColor = ColorConstants.vbRed
End If

 

[cevatyildiz]

Yardımlarınızı bekliyorum arkadaslar

 

[Mehmet Şahin]

Merhaba,
dosyayı incelermisiniz, saygılar.

 

[cevatyildiz]

Sevgili Dentex, ne yazık ki istediğim gibi çalışmıyor... Ekteki bilgilere bakarak sırasıyla kodları dzenlediğinizde çalışacaktır.

Yardımlarınız için çok tesekkur ederim.

 

[Mehmet Şahin]

Tekrar merhaba,
ben sadece yukardaki kodları çevirmiştim, "F" sütunu için, tekrar bakacağım, hoşçakalın.