Filitrelenmiş sutunlarda tekrarlayan değerleri saymak

[ozgurerturk]

Herkese merhaba,

Aşağıdaki konu hakkında yardım rica ediyorum.

A sutunundan W sutuna kadar yeralan verilere filtre uygulanıyor
Değerler 6. satır ile 10337. satır arasında
Sutunlardan biri veya birkaçı filtrelendiğinde
F sutununda 40-50 değerinin kaç tane olduğunu saydırmak istiyorum

 

[muygun]

Merhaba;

makro ile (boş bir modüle);

Sub sayy()
Cells(1, "h") = "" 'sonuç yazılacak hücre H1
aranan = 40 'sayılacak değer
For i = 1 To Range("f65536").End(xlUp).Row
If Rows(i).EntireRow.Hidden = False And Cells(i, "f") = aranan Then
Cells(1, "h") = Cells(1, "h") + 1
End If
Next i
End Sub

Formül ile;

=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(F1:F2000;SATIR(F1:F2000)-MİN(SATIR(F1:F2000));;1));--(F1:F2000=40))
=TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(F1:F2000;SATIR(F1:F2000)-MİN(SATIR(F1:F2000));;1));--(F1:F2000="40-50"))
İyi çalışmalar

 

[ozgurerturk]

Çok teşekkür ederim harika oldu.

Sizlere de iyi çalışmalar.