Açıklama Kısmına Yazı Yazdırma

[Conqueror20]

Ekteki örnekte çeşitli aylara göre gelir gider ve kar oranları gözükmektedir.
Benim yapmak istediğim örneğin ocak ayında gelir 500 iken gider 400 ise açıklama sütununda zarar yazsın ve ocak ayı sütunu kırmızı renge dönüşsün.eğer mart ayı zarar ise ocak ayındaki zararı dikkate almayıp mart ayını kırmızı renge boyasın.Bunu yapmamız mümkün ?mü

 

[kemal turan]

Ek'teki basit bir koşullu biçimlendirme çalışması umarım işinizi görür

 

[hamitcan]

Alternatif Makrolu Çözüm:


Sayfa1'in kod kısmına;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Rows(1).Interior.Color = xlNone
    [l3:l6].ClearContents
    nnn
    Application.EnableEvents = True
End Sub

Bir Module içine;

Sub nnn()
    For i = 11 To 3 Step -3
    For j = 3 To 6
    Y1 = i - 2
    Y2 = i - 1
    X = j
    If Cells(X, Y1) < Cells(X, Y2) Then
    Cells(X, "l") = "Zarar"
    Cells(1, Y1).Interior.Color = vbRed
    End If
    Next
    If Cells(1, Y1).Interior.Color = vbRed Then Exit Sub
    Next
End Sub

ekleyin.

 

[Conqueror20]

yardımlarınız için teşekkürler
Peki hücreler arasında ki sorguyu nasıl yaptırabilirim.Yani şöyle 3 tane Kar isimli hücre var.
E5 H5 ve K5 hücreleri.Bu hücreler arasında sorguyu nasıl yaptırabilirim.Yani 3 hücre arasında aynı anda sorgu yaptırarak çıkan sonuca göre "zarar" yazdırmayı nasıl yapabilirim.Yani tek bir hücreyi bağlı sorgu olmıcak.E5 yada H5 yada K5<0 dan "zarar" yazdırma işlemini nasıl yaptırabilirim

 

[Conqueror20]

sayın hamitcan kodları ekteki örneğe uyarlayamadım.lütfen yardımcı olur musun?

 

[hamitcan]

Eki inceleyin.
Not: Koşullu Biçimlendirme yardımıyla yapılmıştır.

 

[Conqueror20]

sayın hamitcan yardımlarınız için çok teşekkür ederim