Koşullu biçimlendirmede yardım isteğim

[assenucler]

Değerli Dostlar;


Banka kayıtlarından çıkardığım dosya ilişiktedir. Fon alış ve fon satış işlemleri açıklamasının bulunduğu "D" sütunundaki bilgilerden yararlanılarak, E ve F sütunlarına alış ve satış miktarları, kod ile aktarılmaktadır.

Sizden ricam, ekli dosyadaki açıklamalarımda değinildiği gibi:

Fon alış hareketlerinin bulunduğu satırların dolgu renginin "sarı" ve yazı renginin "kırmızı-kalın";
Fon satış hareketlerinin bulunduğu satırların dolgu renginin "yeşil" ve yazı renginin "siyah-kalın"

şeklinde koşullu biçimlendirmeyi yapamadım. Eğer mümkünse makro koduna ekleme yapılmasını ya da olmazsa, formülle nasıl yapılacağı konusunda değerli düşünce ve bilgilerinizden yararlanmak istiyorum.

Bu arada, Ramazan bayramınızı kutlar. Her şeyin gönlünüzce olmasını dilerim.

Sevgi ve saygılar.

 

[Korhan Ayhan]

Kullandığınız kodların içine koşullu renklendirmeleri ekledim.

Sub dene()
    With Sayfa1
        .Range("A7:I" & Rows.Count).Font.Bold = False
        .Range("A7:I" & Rows.Count).Font.ColorIndex = 0
        .Range("A7:I" & Rows.Count).Interior.ColorIndex = xlNone
        For i = 7 To .Range("B65536").End(3).Row
            If .Cells(i, 4) Like ("*alış") Then
                .Cells(i, 5).FormulaR1C1 = "=MID(RC[-1],1,SEARCH("" "",RC[-1])-1)"
                .Cells(i, 5).Value = .Cells(i, 5).Value
                .Range("A" & i & ":I" & i).Interior.ColorIndex = 6
                .Range("A" & i & ":I" & i).Font.ColorIndex = 3
                .Range("A" & i & ":I" & i).Font.Bold = True
            End If
            If .Cells(i, 4) Like ("*satış") Then
                .Cells(i, 6).FormulaR1C1 = "=MID(RC[-2],1,SEARCH("" "",RC[-2])-1)"
                .Cells(i, 6).Value = .Cells(i, 6).Value
                .Range("A" & i & ":I" & i).Interior.ColorIndex = 43
                .Range("A" & i & ":I" & i).Font.ColorIndex = 0
                .Range("A" & i & ":I" & i).Font.Bold = True
            End If
        Next
    End With
End Sub

 

[assenucler]

ÇÖZÜLDÜ

Sayın Korhan Ayhan,


Değerli üstadım, bayram demeden kısa süredeki yanıtınız için teşekkürler.

Allah sizden razı ve her şey gönlünüzce olsun.

Sevgi ve saygılarımla.