Koşullu biçimlendirme

[drlacter]

Arkadaşlar merhaba

Ek'te bulunan örnek dosyada yapmak istediğim ortalama faiz sütununda bulunan faiz oranlarının 3 ok simgesi ile örneğin ayın ilk günündeki faiz oranı 11,50 , ikinci günündeki faiz oranı 11,52 ise ok işaretinin yukarı hareketini nasıl yapabilirim...üçüncü günündeki faiz oranıda hareketini bir önceki günden alacak..Yardımlarınız için teşekkür ederim..

 

[Ömer]

Merhaba,

Koşullu biçimlendirmeyi C sütununda mı yapacaksınız.

.

 

[drlacter]

Ömer bey koşullu biçimlendirmeyi b sütunundaki degerin yanında göstermek istiyorum..aynı sütunda simgenın belırmesını ıstıyorum

 

[Ömer]

Aynı sütunda olacaksa koşullu biçimlendirme ile 2003 ve öncesi için bunu yapamazsınız. 2007 ve sonrası için böyle bir özellik geldi diye duymuştum fakat bende olmadığı için deneme fırsatım olmadı.

2003 ve öncesi için Makro kullanmanız gerekir. Makro ile işinize yarayacaksa düzenleme yapabilirim.

.

 

[drlacter]

yardımcı olabilirseniz çok sevınırım Ömer bey

 

[Ömer]

Module kopyalarak çalıştırınız..

Sub Duzenle()
 
    Dim i As Long
 
    Application.ScreenUpdating = False
    
    [B:B].NumberFormat = "#,##0.00"
   
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        If IsNumeric(Cells(i, "B")) = False Then
            Cells(i, "B") = CDbl(Left(Cells(i, "B"), Len(Cells(i, "B")) - 2))
        End If
    Next i
    
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
        With Cells(i, "B")
            If .Value = Cells(i - 1, "B") Then
                 .Value = Format(.Value, "#,##0.00") & " n"
                 .Characters(Len(.Value), 1).Font.Name = "Wingdings 3"
             ElseIf .Value > Cells(i - 1, "B") Then
                 .Value = Format(.Value, "#,##0.00") & " Ç"
                .Characters(Len(.Value), 1).Font.Name = "Wingdings 3"
            ElseIf .Value < Cells(i - 1, "B") Then
                 .Value = Format(.Value, "#,##0.00") & " È"
                .Characters(Len(.Value), 1).Font.Name = "Wingdings 3"
            End If
        End With
    Next i
    
    If [B2] <> "" Then
        [B2] = Format([B2], "#,##0.00") & " n"
        [B2].Characters(Len([B2]), 1).Font.Name = "Wingdings 3"
    End If
    
    Application.ScreenUpdating = True
        
End Sub

.

 

[unur]

Ömer bey; verilen bu cevaplar karşısında; uzmanlarımızın bu bilgilerine hayran olmamak elde değil. Hepinizden Allah razı olsun.

 

[drlacter]

çok teşekkür ederım Ömer bey...