Yazının rengini değiştirmek

[igultekin2000]

Merhaba;
Çalışmamın sonunda bu şekilde rapor oluşuyor. Listede adeti 25'in altına düşenleri makro ile dolgu olmadan, sadece yazının kırmızı olmasını yapmak istiyorum. Formül şeklinde

=A2>25     A2:H12

formülü ile oluyor. Ancak raporlamalardan sonra ilave satır veya başka ek uygulama gibi durumda yapı bozulabiliyor. Bu işlemi makro ile yapmak mümkün olabilir miydi. Teşekkürler.

 

[GursoyC]

Merhaba,
Sayfanızın üzerinde sağ tıklayıp kod görüntüleyi seçin.
Açılan pencereye aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Activate()
For i = 2 To ActiveSheet.UsedRange.Columns.Count
    For k = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(k, i) < 25 Then
           Cells(k, i).Font.Color = vbRed
        Else
           Cells(k, i).Font.Color = vbBlack
        End If
    Next k
Next i
End Sub

Dosyanızı makro içerebilen dosya olarak kaydedin.

 

[Korhan Ayhan]

Bu da koşullu biçimlendirme yönteminin makroya uyarlanmış hali olarak alternatif olsun.

Option Explicit

Sub Kriter_Altindakileri_Renklendir()
    Cells.FormatConditions.Delete
    With Range("A1").CurrentRegion
        With .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1)
            .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=25"
            .FormatConditions(1).SetFirstPriority
            .FormatConditions(1).Font.Color = -16776961
            .FormatConditions(1).StopIfTrue = False
        End With
    End With
End Sub

 

[igultekin2000]

Merhaba,
Sayfanızın üzerinde sağ tıklayıp kod görüntüleyi seçin.
Açılan pencereye aşağıdaki kodları yapıştırın.
Teşekkürler, sorunsuz çalışıyor

 

[igultekin2000]

Bu da koşullu biçimlendirme yönteminin makroya uyarlanmış hali olarak alternatif olsun.

Teşekkür ederim, makro sorunsuz çalışıyor.