şekil rengi değiştirme

[GursoyC]

Arkadaşlar merhaba,
Ekle/Şekiller menüsünden eklediğim bir şeklin (örneğin dikdörtgen) dolgu rengini bir hücre içeriğine bağlayabilir miyim?
Örnek dosyada oldukça basit biçimde açıkladım.

Teşekkürler.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Ayrıca buraya bakınız.

http://www.excelgurusu.com/sekilleri-kosullu-bicimlendirme-ile-renklendirme/

.

 

[Merhum İdris SERDAR]

.

Bir de buna bakın.

.

 

[GursoyC]

Çok teşekkür ederim İdris bey,
Saygılar.

 

[GursoyC]

İdris bey, ilk gönderdiğiniz dosya gayet güzel çalışıyor.
Ama merakımdan diğerlerine de baktım. Kodları da inceledim. Bir hata görünmemesine rağmen "renklendirme.xlsm" isimli dosyanızda Mavi kelimesini Sarı Yeşil Kırmızı şeklinde değiştirsem de şekil renkleri değişmiyor.
Bilgilerinize. Tekrar teşekkürler.

 

[Merhum İdris SERDAR]

İdris bey, ilk gönderdiğiniz dosya gayet güzel çalışıyor.
Ama merakımdan diğerlerine de baktım. Kodları da inceledim. Bir hata görünmemesine rağmen "renklendirme.xlsm" isimli dosyanızda Mavi kelimesini Sarı Yeşil Kırmızı şeklinde değiştirsem de şekil renkleri değişmiyor.
Bilgilerinize. Tekrar teşekkürler.

.

Deneyerek göndermiştim. Tekrar baktım. Bir problem yok. Çalışıyor.

Bakalım başka üyelerden deneyenlerden bir uyarı gelecek mi?

.

 

[Necdet]

İdris bey, ilk gönderdiğiniz dosya gayet güzel çalışıyor.
Ama merakımdan diğerlerine de baktım. Kodları da inceledim. Bir hata görünmemesine rağmen "renklendirme.xlsm" isimli dosyanızda Mavi kelimesini Sarı Yeşil Kırmızı şeklinde değiştirsem de şekil renkleri değişmiyor.
Bilgilerinize. Tekrar teşekkürler.

Renk adını yazarken Başharfi büyük diğerlerini küçük yazmalısınız.

 

[GursoyC]

Haklısınız, benim hatam. Çok teşekkür ederim.

 

[GursoyC]

Bir şey daha sorabilir miyim?
B3 hücresi içeriğinin bir formül (örneğin A1-B1) olduğunu düşünürsek, formül sonucu 0 ise yeşil, 0'dan farklı bir değerse kırmızı olmasını sağlamak için hangi kodu kullanmam gerekir?
Aşağıdaki kod işe yaramadı da...
Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
    
        If Target.Value = 0 Then
        ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        Else
        ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        End If
End Sub

 

[Merhum İdris SERDAR]

.

Bunu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
    
     If IsNumeric(Target.Value) Then
        If Target.Value = 0 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
            ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.RGB = vbGreen
            
        ElseIf Target.Value <> 0 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
            ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.RGB = vbRed
            
    End If
    End If
    
End Sub

.

 

[GursoyC]

Geç cevap için özür dilerim.
Çok teşekkürler, saygılar.