Koşullu biçimlendirmeye alternatif makro

[ugurakin]

arkadaşlar, ilişikte bir excel sayfam var. Koşullu biçimlendirme yardımıyla sorumun yarısını çözebildim. Makro yardımıyla baştan sona çözmek istiyorum. (gerekli açıklamaları sayfaya ekledim.)

 

[Korhan Ayhan]

Selamlar,

Dosyanızda gerekli değişikliği yaptım.

 

[Korhan Ayhan]

Makroya gerek kalmadan iki adet hücreye tanımladığım saat formatıyla sorun çözüldü.

 

[ugurakin]

Teşekkürler, makro kodlarını da biraz çaba göstererek elde ettim.

Sub GecGelen()
    Columns("F:F").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="0,344444444", Formula2:="0,75"
    Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub