Belli Bir sayıdan daha büyüklerini bulmak

[aydın]

Hepinize iyi akşamlar ! F3 hücresindeki bir rakamdan ;J13:J2500 sütununda daha büyükleri varsa bunların hepsini bir hücrede nasıl toplayabilirim ? şimdiden teşekkürler ..şunu bir yapabilsem dosyanı hemen toparlayacağım

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz. Ã?rnekte; F3 hücresindeki referans değer ile J13:J2500 aralığı arasındaki değerler karşılaştırılır ve büyük olanların toplamı A1 hücresine yazılır.

[vb:1:9dce6ff411]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = WorksheetFunction.CountA(Sheets("sayfa1").Range("J13:J2500"))
sayı = [f3].Value
topla = 0
For b = 13 To a + 13
If Cells(b, 10) > sayı Then
topla = topla + Cells(b, 10)
End If
Next b
[a1] = topla
End Sub
[/vb:1:9dce6ff411]

 

[Hüseyin]

Dizi (Array) formülüyle bir örnek
sonucu görmek istediğiniz hücreye
=TOPLA(EÐER(J13:J2500>F3;J13:J2500;0))
yazın normal ENTER yerine yazım bitince CTRL+SHIFT basılı iken ENTER tuşuna basın. Hücredeki formül
{=TOPLA(EÐER(J13:J19>F1;J13:J19;0))}
şeklinde görünecektir.

DİKKAT {} küme parantezlerini elle kendiniz yazarsanız çalışmaz.
Yukarıdakileri aynen uygulayınız.

Dizi formülü ile açıklama için aşağıdaki adrese de bakabilirsiniz.
http://www.excel.web.tr/viewtopic.php?t=369