Seçili hücrenin değerlerinin ortalamaya dahil edilmemesi
-
- 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
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.
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.
-
- 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
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
-
- 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
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.
Ö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.
-
- 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
Kod: Tümünü seç
MsgBox "H sütunu ort: " & toplaH / sayH
Kod: Tümünü seç
ws.range("AF2")=toplaH / sayH
-
- 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
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?
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?
-
- 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
Rıca ederım. Formül değilde fonksiyon olabilir.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 3 Cevaplar
- 1973 Görüntüleme
-
Son mesaj gönderen sylarrr