Soru Formül Sonucunda Çıkan Sayıyı Kullanamıyorum

[officer08]

E3'den E21'e kadar
=RANK.EŞİT(B3;$B$3:$B$21:0)
Şeklinde formulüm var ve hücrelere istediğim sayıyı yazdırıyor. Lakin kod kısmında yaptığım işlemlerde bu sayıları kullanamıyorum. Yerine deneme amaçlı Manuel sayı yazınca oluyor formül sonucu olarak kullanamıyorum.
Yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Tam olarak ne gibi bir sorunla karşılaşıyorsunuz.

 

[officer08]

Sayfanın kod kısmında =RANK.EŞİT(B3;$B$3:$B$21:0) bu formül sonucundaki sayı değerine göre şekil boyaması yapan kodlar var. Formül olunca boyamıyor ancak elle formülün bulduğu sonucu yazınca boyuyor. formül sonucunu sayı olarak algılamıyor mu acaba

 

[Korhan Ayhan]

Algılaması gerekir.

Örnek dosya paylaşabilirmisiniz.

 

[officer08]

Boyanacak her şekil için aşağıdaki kodlar var hepsi bu

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E3").Value > 0 And Range("E3").Value < 5 Then
ActiveSheet.Shapes("Şekil1").Fill.ForeColor.RGB = RGB(99, 37, 35)
Else
If Range("E3").Value > 4 And Range("E3").Value < 9 Then
ActiveSheet.Shapes("Şekil1").Fill.ForeColor.RGB = RGB(150, 54, 52)
Else
If Range("E3").Value > 8 And Range("E3").Value < 13 Then
ActiveSheet.Shapes("Şekil1").Fill.ForeColor.RGB = RGB(218, 150, 148)
Else
If Range("E3").Value > 12 And Range("E3").Value < 17 Then
ActiveSheet.Shapes("Şekil1").Fill.ForeColor.RGB = RGB(230, 184, 183)
Else
If Range("E3").Value > 16 And Range("E3").Value < 20 Then
ActiveSheet.Shapes("Şekil1").Fill.ForeColor.RGB = RGB(242, 220, 219)

End If
End If
End If
End If
End If

End Sub