Function OrtalamaBul(myRange As Range) As Double
Dim xRange As Range
For Each xRange In myRange
If xRange.Interior.ColorIndex = -4142 Then
i = i + 1
mySum = mySum + xRange.Value
End If
Next
OrtalamaBul = mySum / i
End Function
Yukarıdaki makro da hücrede dolgu rengi varsa bunun haricindeki seçilen alandaki değerleri toplayıp ortalama almaktadır. Fakat seçilen hücre aralığında boş veya karakter varsa hata veriyor.
If xRange.Interior.ColorIndex = -4142 Then
satırına nasıl bir formül yazamalıyım ki hem doguları hesaba katmasın hemde boş veya "-" tire işareti verdiğim hücreleri hesaba katmadan ortalama alabileyim.
Şimdinden Teşekkürler.
Başka değişik önerileriniz varsa lütfen paylaşın.
Dim xRange As Range
For Each xRange In myRange
If xRange.Interior.ColorIndex = -4142 Then
i = i + 1
mySum = mySum + xRange.Value
End If
Next
OrtalamaBul = mySum / i
End Function
Yukarıdaki makro da hücrede dolgu rengi varsa bunun haricindeki seçilen alandaki değerleri toplayıp ortalama almaktadır. Fakat seçilen hücre aralığında boş veya karakter varsa hata veriyor.
If xRange.Interior.ColorIndex = -4142 Then
satırına nasıl bir formül yazamalıyım ki hem doguları hesaba katmasın hemde boş veya "-" tire işareti verdiğim hücreleri hesaba katmadan ortalama alabileyim.
Şimdinden Teşekkürler.
Başka değişik önerileriniz varsa lütfen paylaşın.