Koş.Biçim

[ex48]

Merhaba
Ekteki dosyamda açıklaması olan koşullu biçimlendirme için yardım edermisiniz
Teşekkürler

 

[amelie]

Bir incelerseniz sevinirim,elimden geldiğince birşeyler yaptım ama..?
Bilgilerinize saygılarımla.

 

[Necdet]

Geç kalmışım, olsun bende birşeyler yapmıştım.

Koşullu Biçimlendirme Formül :

=VE($A1<38782;VEYA($C1="İnek";$C1="Düve";$C1="Dana-Dişi";$C1="Buzağı-Dişi"))
 
=AND($A1<38782;OR($C1="İnek";$C1="Düve";$C1="Dana-Dişi";$C1="Buzağı-Dişi"))

 

[ex48]

Amelie ve Necdet Yeşertener her ikinizede teşekkür ederim.
Webden alınan kayıtlarda örneğin Dana - Dişi - işareti önünde ve arkasında boşluk var, Bu boşluğu göz önüne alarak formül yazılabilirmi.... yoksa excelde boşlukları kaldırıp formüle uygun listemi yapmalıyım

 

[Necdet]

Merhaba,

web'den alınca görünen boşluk, boşluk olmayabilir, dosyayı görmekte yarar var

 

[ex48]

Webden alınıyor derken webden kopyalayıp excele yapıştırıyorum, ilk mesajdaki dosyada olduğu gibi Dana - Dişi (boşluk var)

 

[karadami]

sutunları seçip biçim menüsünden koşullu biçimlendirmeyi seçerek girilen formulleri düzenleyebilirsiniz. F2 tuşuna basarak istediğiniz şekilde değişiklik yapabilirsiniz.... sayın amelie nin dosyasını düzenleyerek tekrar ekliyorum....

 

[ex48]

sutunları seçip biçim menüsünden koşullu biçimlendirmeyi seçerek girilen formulleri düzenleyebilirsiniz. F2 tuşuna basarak istediğiniz şekilde değişiklik yapabilirsiniz.... sayın amelie nin dosyasını düzenleyerek tekrar ekliyorum....

Teşekkür ederim, Sağolun

 

[N.Ziya Hiçdurmaz]

Yanıt

Makrolu örnek.

Sub BICIM()
Dim D As Byte
Dim SUTA As Integer
[C2:C1000].Font.ColorIndex = 1
DEG = Array("İnek", "Düve", "Dana - Dişi", "Buzağı - Dişi")
For D = 0 To 3
For SUTA = 2 To Cells(65536, "A").End(3).Row
If Cells(SUTA, "A") < CDate("06.03.2006") And Cells(SUTA, "C") = DEG(D) Then
Cells(SUTA, "C").Font.ColorIndex = 3
End If
Next
Next
End Sub

 

[edkaya]

başka bir soru

A2 hücresine girilen değer A1 ile aynı ise

B1:T1 satırı biçimlensin..

bunun biçimlendirmede formulu nasıl olabilir?