formülle hücre rengi değiştirme

[PEPE]

arkadaşlar koşullu biçimlendirme olmadan
formülle hücre içerisindeki değer 50 nin altına indiğinde
hücre rengini değiştirebilirmiyiz

teşekür ederim..

 

[Murat OSMA]

Formülünüzün A1 hücresinde olduğunu düşünerek, ilgili sayfanın kod kısmına bu kodu yazıp deneyin..

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Calculate()
    If Range("A1").Value [COLOR="DarkOrange"]< 50[/COLOR] Then
        Range("A1").[COLOR="red"]Interior[/COLOR].[COLOR="Blue"]ColorIndex [/COLOR]= [COLOR="Red"]44[/COLOR]
            Else
        Range("A1").[COLOR="red"]Interior[/COLOR].[COLOR="blue"]ColorIndex [/COLOR]= [COLOR="red"]0[/COLOR]
    End If
End Sub[/SIZE][/FONT]

 

[kayburcak]

Formülle hücre rengini değiştirme

Sayın murat osma
bu makroyu f:f olarak bir sütundakı tüm hücrelere uygulayabilirmiyiz.
Teşekkürler

 

[kayburcak]

Formülle hücre rengini değiştirme

Formülünüzün A1 hücresinde olduğunu düşünerek, ilgili sayfanın kod kısmına bu kodu yazıp deneyin..

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Calculate()
    If Range("A1").Value [COLOR="DarkOrange"]< 50[/COLOR] Then
        Range("A1").[COLOR="red"]Interior[/COLOR].[COLOR="Blue"]ColorIndex [/COLOR]= [COLOR="Red"]44[/COLOR]
            Else
        Range("A1").[COLOR="red"]Interior[/COLOR].[COLOR="blue"]ColorIndex [/COLOR]= [COLOR="red"]0[/COLOR]
    End If
End Sub[/SIZE][/FONT]

Sayın Murat Osma aynı makroyu F:F sütununda tüm hücrelere nasıl uygularız.
ilgilenen arkadaşlara teşekkürler

 

[Korhan Ayhan]

Aynı işlemi döngü şeklinde kullanabilirsiniz. Tabi kontrol edilecek hücre sayısı çoksa döngü yavaş tepki verecektir.

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Range("F:F").Interior.ColorIndex = 0
    For X = 1 To Cells(Rows.Count, "F").End(3).Row
        If Cells(X, "F") < 50 Then
            Cells(X, "F").Interior.ColorIndex = 44
        Else
            Cells(X, "F").Interior.ColorIndex = 0
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[kayburcak]

Formülle hücre rengini değiştirme

kORHAN BEY İLGİNİZE TEŞEKKÜRLER.KOD İSTEDİĞİMİZ GİBİ ÇALIŞIYOR