Kullanıcı tanımlı fonksiyon ve sayısal olmayan değerle

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki kullanıcı tanımlı fonksiyonda hücre içeriği metinse yada sayısal değer değilse fonksiyon içinde işleme alınmamasını nasıl sağlarım.

Yani veri aralığında sayısal olmayan bir değer varsa fonksiyonun bunu baz almayıp sadece sayısal değerleri işleme almasını istiyorum.

Function RHTOPLA(Aralık As Range, Kriter As Range)
Dim Hücre As Range
On Error Resume Next
For Each Hücre In Aralık
If Hücre.Interior.ColorIndex = Kriter.Interior.ColorIndex Then
Sonuç = Sonuç + Hücre.Value
End If
Next Hücre
RHTOPLA = Sonuç
End Function

 

[omerceri]

If Hücre.Interior.ColorIndex = Kriter.Interior.ColorIndex And IsNumeric(Hücre) Then
işine yararmı

 

[Korhan Ayhan]

İşimi gördü teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki fonksiyonda ise renkli hücreleri saydırıyorum. Formülü uyguladığım hücrede gayet güzel çalışıyor fakat formülü uyguladıktan sonra bir hücrenin rengini değiştirdiğimde formül kendini güncellemiyor bunu nasıl sağlarım.

Function RHSAY(Aralık As Range, Kriter As Range)
Dim Hücre As Range
On Error Resume Next
For Each Hücre In Aralık
If Hücre.Interior.ColorIndex = Kriter.Interior.ColorIndex And IsNumeric(Hücre) Then
Sonuç = Sonuç + 1
End If
Next Hücre
RHSAY = Sonuç
End Function