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

Excel formülleri ile ilgili paylaşım alanı
Cevapla
mert25
Mesajlar: 4
Kayıt: Cum Eyl 20, 2024 8:31 pm
Lokasyon: Erzurum
Meslek: Öğretmenlik Meslek Bilgisi Dersleri Öğretmeni
Adınız: Yusuf
Soyadınız: Albayrak

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

Mesaj gönderen 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.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
erseldemirel
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 4
Kayıt: Cum Eyl 20, 2024 8:31 pm
Lokasyon: Erzurum
Meslek: Öğretmenlik Meslek Bilgisi Dersleri Öğretmeni
Adınız: Yusuf
Soyadınız: Albayrak

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

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 4
Kayıt: Cum Eyl 20, 2024 8:31 pm
Lokasyon: Erzurum
Meslek: Öğretmenlik Meslek Bilgisi Dersleri Öğretmeni
Adınız: Yusuf
Soyadınız: Albayrak

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

Mesaj gönderen 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
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen erseldemirel »

Rıca ederım. Formül değilde fonksiyon olabilir.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj
  • Seçili hücrenin renklenmesi
    gönderen sylarrr » » forum Formüller
    3 Cevaplar
    1973 Görüntüleme
    Son mesaj gönderen sylarrr