=(eĞer) FormÜlÜ İle İlgİlİ?

[udentr2002]

Merhaba arkadaşlar ekli dosyada da anlatmaya çalıştım, eğer formülü ile hücreye cevaplandı yazarsam heen solundaki hücre yeşil renk olacak cevaplanmadı yazarsam solundaki hücre kırmızı renk olacak yapabilme imkanımız varmı yardımcı olabilirseniz çok sevinirim... Şimdiden teşekkür ederim

 

[İdris SERDAR]

Koşullu biçimlendirme ile yapabilirsiniz.

Biçim / Koşullu Biçimlendirme


Dosyanız ekte.

 

[Ali]

H2 hücrenize tıklayın. Biçim-Koşullu biçimlendirme kısmını açın.

Koşul1 için Formül kısmını seçip yan tarafına

=I2="cevaplandı" yazıp Biçim-Desenlerden vermek istediğiniz rengi seçin siz yeşil belirtmişsiniz yeşili seçebilirsiniz.

Aynı şekilde altındaki Koşul2'yede

=I2="cevaplanmadı" yazıp Biçim-Desenlerden vermek istediğiniz rengi seçin.

Sonra bu H2 hücrenizi bu uygulamanın uygulanmasını istediğiniz hücreye kadar sürükleyebilirsiniz. Bu Koşullu biçimlendirme H sütunundaki diğer hücrelerede otomatik olarak uygulanacaktır.

 

[alpi]

1-Biçim/Koşullu Biçimlendirme'yi açın
2Açılan pencerede Hücre Değerini Formül olarak değiştirin
3-Diğer kutuya =I2="cevaplandı" yazın
4-Biçim'i tıklatın
5-Desenleri açıp bir renk belirleyip tTamam'ı tıklatın
6-Ekle'yi tıklatın
7-Hücre Değerini Formül olarak değiştirin
8-Diğer kutuya =I2="cevaplanmadı" yazın
9- 4. ve 5. adımları tekrar edin
10-Tamam'ı tıklatın.

Edit.....
Bayağı yavaşım benden önceki cevapları görmemiştim...

 

[udentr2002]

hocam

teşekkürler ama tüm sayfaya başka bi koşuullu hücre değeri girdim bu yüzden onla yapamıyorum yukarıdaki sorumun EĞER() formülünü kullanarak yapabilrmiyim tekrar bakabilirsen çok sevinirim

 

[alpi]

Bunu eğer ile yapamazsınız.

aşağıdaki linki inceleyin
56 KOŞULA GÖRE BİÇİMLENDİRME

 

[udentr2002]

arkadaşlar

gerçekten hepinizin göstermiş olduğu ilgiye çok teşekkürederim ama dediğim gibi koşullu hücre ile yapamıyorum onu ya eğer formülü ile yada makroda kod ile yapabilmem lazım eğer bunu yapabişlme imkanımız varsa ilgilenirseniz gerçekten çok makbule geçecektir

 

[alpi]

Sayfa adını sağtıklatıp Kod Görüntüle'yi seçin
Aşağıdaki kodu kod editörüne yazın

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 9 Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Offset
        Case "cevaplandı" Or "CEVAPLANDI"
            Cells(Target.Row, Target.Column - 1).Interior.ColorIndex = 50
        Case "cevaplanmadı" Or "CEVAPLANMADI"
            Cells(Target.Row, Target.Column - 1).Interior.ColorIndex = 3
    End Select
    Application.EnableEvents = True
End Sub