Soru koşula göre resim gelmesi

[incsoft]

Arkadaşlar excel'de koşullu biçimlendirme ile renge boyama,bazı simgeleri koyabilmekteyiz ancak istenilen resimleri koymak için bir metod varmı bilmiyorum. Örneğin ekteki dosyamda B2 hücresindeki değere göre kutuya sağdaki resimlerin otomatik gelmesini istiyorum. Örneğin hücredeki değere eşit ve büyükse gülen yüz , 1 altındaysa yani 0,79 ise sarı yüz , ondan küçükse ağlayan yüz çıksın istiyorum. Bunun excelde nasıl bir metodu vardır acaba?

Teşekkürler..

 

[bilgiconline]

inceleyiniz belki başka yapmak istediğiniz birşeyi de bulabilirsiniz.

 

[hamitcan]

Resimlerin hepsini A5: D10 aralığına getirin. Aşağıdaki kodu da sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$2" Then Exit Sub
    With ActiveSheet
        .Shapes.SelectAll
         Selection.Visible = False
        If Target.Value >= 0.8 Then .Shapes(1).Visible = True
        If Target.Value >= 0.79 And [b2] < 0.8 Then .Shapes(2).Visible = True
        If Target.Value < 0.79 Then .Shapes(3).Visible = True
    End With
End Sub

 

[Orion1]

Alternatif ad tanımlama formülü ile yapılmıştır.
Dosyanız ektedir.
Aşağıdaki linktende indirebilirsiniz.

DOSYAYI INDIR

=EĞER(Sayfa1!$B$2>=0,8;Sayfa2!$A$1;EĞER(Sayfa1!$B$2=0,79;Sayfa2!$A$2;Sayfa2!$A$3))

 

[incsoft]

Resimlerin hepsini A5: D10 aralığına getirin. Aşağıdaki kodu da sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$2" Then Exit Sub
    With ActiveSheet
        .Shapes.SelectAll
         Selection.Visible = False
        If Target.Value >= 0.8 Then .Shapes(1).Visible = True
        If Target.Value >= 0.79 And [b2] < 0.8 Then .Shapes(2).Visible = True
        If Target.Value < 0.79 Then .Shapes(3).Visible = True
    End With
End Sub

Öncelikle teşekkürler hocam. Bu dosyamda denedim gayet güzel çalıştı ancak kendi dosyama uyarladığımda nedense olmadı. Formülü ise aşağıdaki gibi değiştirdim ancak olmadı hocam. Sizce neden olabilir?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$26" Then Exit Sub
With ActiveSheet
.Shapes.SelectAll
Selection.Visible = False
If Target.Value >= 0.8 Then .Shapes(1).Visible = True
If Target.Value >= 0.79 And [E26] < 0.8 Then .Shapes(2).Visible = True
If Target.Value < 0.79 Then .Shapes(3).Visible = True
End With
End Sub

 

[Orion1]

Sayın incsoft #4 nolu mesajda alternatif cevabımıda inceleyebilirsiniz.

 

[incsoft]

Alternatif ad tanımlama formülü ile yapılmıştır.
Dosyanız ektedir.
Aşağıdaki linktende indirebilirsiniz.

DOSYAYI INDIR

=EĞER(Sayfa1!$B$2>=0,8;Sayfa2!$A$1;EĞER(Sayfa1!$B$2=0,79;Sayfa2!$A$2;Sayfa2!$A$3))

Çok teşekkürler hocam.

 

[Orion1]

Çok teşekkürler hocam.

Rica ederim.
İyi çalışmalar.

 

[incsoft]

Alternatif ad tanımlama formülü ile yapılmıştır.
Dosyanız ektedir.
Aşağıdaki linktende indirebilirsiniz.

DOSYAYI INDIR

=EĞER(Sayfa1!$B$2>=0,8;Sayfa2!$A$1;EĞER(Sayfa1!$B$2=0,79;Sayfa2!$A$2;Sayfa2!$A$3))

Hocam sayfamda =ORTALAMA(K23;N23;Q23) şeklinde bir formülüm var ve bunun ondalık basamak sayısı 2 dediğim için sonucu 0,79 gösteriyor normalde sonucu 0,786982609844421 gidiyor. Bu sebepten dolayı ise EĞER(Sayfa1!$B$2=0,79;Sayfa2!$A$2 komutu doğru simgeyi getirmiyor. =ORTALAMA(K23;N23;Q23) hücresindeki 0,786982609844421 çıkan sonucu formülle nasıl 0,79 yapabilirim? YUKARIYUVARLA ve AŞAĞIYUVARLA ile olmadı maalesef.

 

[incsoft]

=YUVARLA(SOLDAN(S23;5)-0,001;2) ile yaptım hocam teşekkürler.

 

[Orion1]

E3 teki değeri yuvarlar.
=YUVARLA(E3;2)