bir şekile koşullu biçimlendirme uygulamak

[fresha1602]

Merhabalar;

Excelde Ekle>Şekiller> Oklar > Yukarı bükülü ok a koşullu biçimlendirme eklemek istiyorum. Yanındaki değer negatif ise Ok kırmızı renkli, Pozitif ise yeşil renkli olmasını sağlamam mümkün mü?

Teşekkürler

 

[Korhan Ayhan]

Makro ile yapmak daha uygun görünüyor.

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Ok As Shape
    
    Set Ok = ActiveSheet.Shapes("Yukarı Bükülü Ok 1")
    
    With Ok.Fill
        .Visible = msoTrue
        If Range("D5") >= 0 Then
            .ForeColor.RGB = RGB(0, 176, 80)  'Yeşil
        Else
            .ForeColor.RGB = RGB(255, 0, 0)  'Kırmızı
        End If
        .Transparency = 0
        .Solid
    End With
End Sub

 

[fresha1602]

Merhabalar ;

Hızlı dönüş için teşekkürler . Aşağıdaki gibi uyuarlamaya çalıştım, makroyu çalıştırınca Set ile başlayan satırı sarı boyayıp hata veriyor.


Sub Macro3()
'
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Arrow As Shape

Set Arrow = ActiveSheet.Shapes("Curved Up Arrow 1")

With Arrow.Fill
.Visible = msoTrue
If Range("D35") >= 0 Then
.ForeColor.RGB = RGB(0, 176, 80) 'Yeşil
Else
.ForeColor.RGB = RGB(255, 0, 0) 'Kırmızı
End If
.Transparency = 0
.Solid
End With
End Sub

 

[Seyit Tiken]

Resimdeki gibi bir deneyiniz, işinize yarar mı?

 

[fresha1602]

Yardım için teşekkürler , işime yaramıyorlar maalesef. Kolondan kolona ne kadar değişim olmuş yukarı bukulu ok ile gösterip , altına da aradaki değişim yüzdesi getirmem gerekiyor.

 

[Korhan Ayhan]

Örnek dosyanızı paylaşım sitelerine yükleyip link verirseniz uyarlamasını yapabilirim.