Eğer formülünde font rengi.

[kelkitli]

Değerli Dostlar Selamlar,
Eğer formülünde yazı rengiyle nasıl şart oluştururuz.
=EĞER(A1 HÜCRESİNİN yazı rengi=5;"";"Yanlış Vardiya")

 

[Orion1]

Değerli Dostlar Selamlar,
Eğer formülünde yazı rengiyle nasıl şart oluştururuz.
=EĞER(A1 HÜCRESİNİN yazı rengi=5;"";"Yanlış Vardiya")

Böyle yapamazsınız.

 

[Necdet]

Değerli Dostlar Selamlar,
Eğer formülünde yazı rengiyle nasıl şart oluştururuz.
=EĞER(A1 HÜCRESİNİN yazı rengi=5;"";"Yanlış Vardiya")

Aşağıdaki gibi KTF (Kullanıcı Tanımlı Fonksiyon) ile olabilir.

Function Renk(Hücre, Değer)
If Hücre.Font.ColorIndex = Değer Then
   Renk = "Doğru"
Else
   Renk = "Yanlış"
End If
End Function

Hücre adresini ve renk kodunu veriyorsunuz fonksiyona, hücrenin rengi tutarsa Doğru, Yoksa Yanlış değeri üretir.

Bu fonksiyon çıktısını da IF(EĞER) ile kontrol etmek olası.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil yapabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Font.ColorIndex = 3 Then
[b1] = ""
Else
[b1] = "Yanlış Vardiya"
End If
End Sub

 

[kelkitli]

Sağol Orion2 teşekkürler, saygılar, selamlar.

 

[kelkitli]

Selamlar,
Sayın Necdet Hocam, Sayın V.Basic For Applications,
cevaplarınız için teşekkür ederim. Saygı ve sevgilerle.

 

[kelkitli]

Selamlar,
Sayın Necdet Hocam, yazdığınız KTF yi sizin yazdığınız şekil oldu ancak yatayara ile kullanamadım. Kullanılabilirmi?
=EĞER(Renk(YATAYARA(B9;B4:S4;1;YANLIŞ);3)="";"Yanlış Vardiya";"")

 

[kelkitli]

Selamlar Değerli Dostlar,
Konuyla ilgili çok uğraşmama rağmen aşağıda bahsettiğim formülü oluşturamadım.
A9 hücresindeki değer yatayara fonksiyonu ile bulunup rengi kırmızı ise hücre boş ("") farklı rank ise "Yanlış vardiya yazacak.

 

[Necdet]

Merhaba Sayın kelkitli,

Dosyayı inceler misiniz? KTF (Kullanıcı Tanımlı Fonksiyon) de ufak bir değişiklik yaptım.

B12 Hücresinde de bu fonksiyonun kullanımını gerçekleştirdim. Umarım olmuştur.

 

[kelkitli]

Sayın Necdet Hocam Selamlar,
Cevabınız için teşekkür ederim. Eğer mümkünse aranan değer bulunamayınca #DEĞER! yazmasın. Mümkün değilse koşullu biçimlendirme kullanırım. Bu uygulama aylık liste hazırlarkan personel denetlemede işimi muazzam kolaylaştıracak. Sağol .

 

[Necdet]

Sayın kelkitli,

Formül EHATALIYSA fonksiyonuna sokularak kontrol edilebilir. Deneyiniz isterseniz, yapamam derseniz eklerim.

Saygılar.

 

[kelkitli]

Sayın Necdet Hocam, çok çok teşekkürler ederim. İşlem tamamdır emeğinize bilginize sağlık.

=EĞER(EHATALIYSA(EĞER(Renk(DOLAYLI(ADRES(4;KAÇINCI(B9;B4:S4;0)+1));3)="Doğru";"";"Yanlış Vardiya"));("");EĞER(Renk(DOLAYLI(ADRES(4;KAÇINCI(B9;B4:S4;0)+1));3)="Doğru";"";"Yanlış Vardiya"))

 

[Necdet]

Güle güle kullanınız Sayın Kelkitli.