Eğerli Koşullu Biçimlendirme

[shiva]

merhabalar,

A6 hücresinde Engin, Ahmet, Buse, Necati ve Hüseyin dışında bir şey yazıyorsa A8 hücresi kırmızı olsun.

Bunu nasıl yapabiliriz.

Teşekkürler.

 

[Kemal Demir]

Sub boya()
If Range("a6").Value = "Engin" Or Range("a6").Value = "Ahmet" Or Range("a6").Value = "Buse" Or Range("a6").Value = "Necati" Or Range("a6").Value = "Hüseyin" Then
Else
Range("a8").Interior.ColorIndex = 3
End If
End Sub

 

[red_lion_72]

Selam,

Makrolu örnek ekte.

Kolay gelsin.

düzeltme;sn.Kemaldemir cevabınızı görmedim.

 

[shiva]

Öncelikle geri dönüş için teşekkür ederim.
Yapmak istediğim dosyayı ekte gönderiyorum.

Tarife seçiminden kampuscell dışında herhangi bir tarife seçtiğimde G7 ve J7 hücreleri K7 gibi olsun.

Tarife seçiminden kamucell dışında herhangi bir tarife seçtiğimde H7 hücresi K7 gibi olsun.

Tarife seçiminden HerYöneEşitK-TurkcelliçiGrupK-FiloCELLK-ŞirketiçiAvantajK tarifeleri dışında bir tarife seçtiğimde F7 hücresi K7 hücresi gibi olsun.

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

 

[mehmett]

Dosyanız ekte.

 

[shiva]

Çok teşekkürler mehmett