Hücre renklerine gore formulle veri girme yada degisiklik yapma hk

[maznun5255]

Sn Excel ustalarım.Hepinize saygı ve selamlarımı iletirim.Bir sualim olacak.Herhangi bir tabloda ( aşağıdaki linktede dosya görülebilir ) hucrelerde renklendirme kullanılmıştır.Bu renklendirmelere formul ile renge göre otomatik değer girebilirmiyiz ? Yada bu renkli hucrelere renge göre METİN girebilirmiyiz ?
Tesekkurler..

http://s6.dosya.tc/server2/84tmc7/RENKLI_HUCRELERDE_FORMUL_KULLANMA.xlsx.html

 

[Saban Sertkaya]

Merhabalar, kod ile;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Range
If Intersect(Target, Range("A1:J23")) Is Nothing Then Exit Sub
For Each a In Range("A1:J23")
If a.Interior.ColorIndex = 6 Then a = "BİTTİ"
If a.Interior.ColorIndex = 3 Then a = "ACİL"
Next a
End Sub

 

[maznun5255]

Saban20152015 çok teşekkür ediyorum.Gecikme için kusura bakmayınız..

 

[Saban Sertkaya]

Estağfurullah, kolay gelsin.