Arkaplan Rengine Göre Değer Verme

[G.Bale]

Merhaba,

A sütunundaki hücrelerin arkaplanlarını yeşil ya da kırmızı olarak atadım. Doğru veya Yanlış gibi düşünebilirsiniz. B sütununda da bir sorgu çalıştırıp veya mümkünse direk Eğer formülüyle A1'in arkaplan rengi yeşil ise B1 e T kırmızı ise F yazmak istiyorum.

Nasıl yapabilirim?
Teşekkürler...

 

[AdemCan]

Merhaba,
Şu şekilde istediğiniz sonucu aldım, dener misiniz?

Sub renge_gore_deger()
For x = 1 To 100
If Cells(x, 1).Interior.Color = vbGreen Then Cells(x, 2).Value = "T"
If Cells(x, 1).Interior.Color = vbRed Then Cells(x, 2).Value = "F"
Next
End Sub

Not: Yeşil rengi verirken, ekli resimdeki gibi seçiniz.

 

[Merhum İdris SERDAR]

.

Ekteki dosyayı inceleyin.

.

 

[G.Bale]

Çok teşekkürler, iyi çalışmalar.