Seçili hücrenin değerlerinin ortalamaya dahil edilmemesi

[mert25]

Merhabalar,

Ekteki dosyamda Basketbol sayfasında herhangi bir maça tıklayıp filtrele diyorum ve filtre sonucu maçların ortalamasını alıyorum. Fakat seçili hücrenin sonuçlarının ortalamaya dahil edilmemesi gerekiyor.

Örneğin 281. satırdaki Indiana Fever K takımını seçip FİLTRELE dediğimde 15 maç filtreleniyor, ben 281. satırdaki maç hariç diğerlerinin ortalamasını almak istiyorum. (H ve I sütunlarındaki değerlerin ortalaması lazım)

Yardımcı olacak ustalara şimdiden teşekkür ederim.

[erseldemirel]

Selam bu kodlar sonuç verir. Artık uyarlarsınız. D sütununda takım seç filrele de. Bu modulu calırsa mesaj olarak alırsın.

Kod: Tümünü seç

Sub test()
    Set ws = ThisWorkbook.Sheets("Basketbol")
    If Selection.Column = 4 Then
        selectedRow = Selection.Row
    Else
        MsgBox "D sütununda hücre seç"
        Exit Sub
    End If
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    toplaH = 0
    toplaI = 0
    sayH = 0
    sayI = 0
    For i = 4 To lastRow
        If Not ws.Rows(i).Hidden And i <> selectedRow Then
            If IsNumeric(ws.Cells(i, "H").Value) Then
                toplaH = toplaH + ws.Cells(i, "H").Value
                sayH = sayH + 1
            End If
            If IsNumeric(ws.Cells(i, "I").Value) Then
                toplaI = toplaI + ws.Cells(i, "I").Value
                sayI = sayI + 1
            End If
        End If
    Next i
    If sayH > 0 Then
        MsgBox "H sütunu ort: " & toplaH / sayH
    Else
        MsgBox "H sütununda ortalama alınacak veri yok."
    End If
    If sayI > 0 Then
        MsgBox "I sütunu ort: " & toplaI / sayI
    Else
        MsgBox "I sütununda ortalama alınacak veri yok."
    End If
End Sub

[mert25]

Merhabalar,

Öncelikle cevap için teşekkür ederim.

Ortalama sonuçları mesaj olarak değil de, H sütununun ortalaması AF2, I sütununun ortalaması da AG2 hücresine yazdırılırsa benim için daha iyi olacak.

[erseldemirel]

Kod: Tümünü seç

MsgBox "H sütunu ort: " & toplaH / sayH

yerine mesaj vermeyi bırakır hücreye yazar

Kod: Tümünü seç

ws.range("AF2")=toplaH / sayH

[mert25]

Cevap için teşekkür ederim.

Birşey daha sorayım, bu kodun formüle edilmiş hali nasıl olur?
Yani kodla değil de formülle bu sonucu nasıl bulabiliriz?

[erseldemirel]

Rıca ederım. Formül değilde fonksiyon olabilir.