eğer formülünün makrosu

[emrebengul]

Merhaba arkadaşlar acaba yollayacağım excel verisinin makrosuna yardımcı olur musunuz? şunları istiyorum ama yapamadım;
1) Sonuç başlığıındaki veriler 0 ın altında olan hücre varsa sarı ya boyanacak
2) eksi başlığındaki veriler 0 ın altında olan hücre varsa sarı ya boyanacak
3) Satış 0 ın üzerinde ise ve sonuç 0 ın altındaysa Kırmızı olacak hücreler
4) satışı ve tüketimi 0 ın üzerinde olup sonuç 0 ın altındaysa yine kırmızı olacak
5)iş emrindeki veriler 0 ın üzerindeyse yeşile boyanacak

http://m.yollayap.com/ba3s/1473061218948.xlsx

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub renk()
son = Cells(Rows.Count, "A").End(3).Row

For i = 3 To son
    If Cells(i, "Z") < 0 Then
        Cells(i, "Z").Interior.Color = vbYellow
    Else
        Cells(i, "Z").Interior.Pattern = xlNone
    End If

    If Cells(i, "AA") < 0 Then
        Cells(i, "AA").Interior.Color = vbYellow
    Else
        Cells(i, "AA").Interior.Pattern = xlNone
    End If

    If Cells(i, "X") > 0 And Cells(i, "Z") < 0 Then
        Cells(i, "Z").Interior.Color = vbRed
        Cells(i, "X").Interior.Color = vbRed
    Else
        Cells(i, "Z").Interior.Pattern = xlNone
        Cells(i, "X").Interior.Pattern = xlNone
    End If

    If Cells(i, "X") > 0 And Cells(i, "Y") > 0 And Cells(i, "Z") < 0 Then
        Cells(i, "Z").Interior.Color = vbRed
        Cells(i, "X").Interior.Color = vbRed
        Cells(i, "Y").Interior.Color = vbRed
    Else
        Cells(i, "Z").Interior.Pattern = xlNone
        Cells(i, "X").Interior.Pattern = xlNone
        Cells(i, "Y").Interior.Pattern = xlNone
    End If

    If Cells(i, "W") > 0 Then
        Cells(i, "W").Interior.Color = vbGreen
    Else
        Cells(i, "W").Interior.Pattern = xlNone
    End If
Next
End Sub

 

[emrebengul]

bazı sütunlar boyanmadı o nasıl olacak acaba size zahmet bi bakar mısınız?

 

[emrebengul]

kırmızı renk olmadı mesela

 

[emrebengul]

olmuş çok teşekkür ederim

 

[YUSUF44]

Her ne kadar sorun çözülmüş olsa da ilk cevabınızda "bazı sütunlar olmamış" ve sonrakinde "kırmızı olmamış" diye belirtmişsiniz. Eğer gerçekten olmasaydı ben "hangi satırda ne olması gerekirken olmamış?" diye sorardım. Bu da gereksiz mesajlaşmaya neden olurdu. Bundan sonraki sorularınızda sorunu tam olarak belirtmeniz iyi olur.

İyi çalışmalar.