Soru Butona Basınca Sıradaki Numarayı Ver

[Hsn55]

Merhabalar;
Ekli dosyada SAY sayfasında hangi yılı tarihi seçili ise butona bastığımda VERİ sayfasında T4:T65000 hücre aralığındaki o yıla ait sıradaki numarayı SAY sayfasında D3 hücresine verebilir mi?
Örnek: Veri SAY sayfasında D5 hücresinde 12.07.2020 yazılı . Veri Sayfasında ise T4:T65000 hücre aralığında 2020 yılına ait 10 adet tarih var butona bastığımda Say sayfasında D3 hücresine sıradi numara olarak 11'i verecek. şimdiden yardımlarınız bekliyorum.Saygılarımla

İndir SAY

Dosyayı indir SAY

dosya.co

 

[sbayyigit]

?

 

[Hsn55]

Birden fazla tarih olması önemli değil yine sıradakini verecek. 11 ise 12 yi verecek

 

[veyselemre]

Sub YuvarlatılmışDikdörtgen1_Tıklat()
    yil = Year(Sheets("SAY").Range("D5").Value)
    For Each c In Sheets("VERİ").Range("T4:T" & Sheets("VERİ").Cells(Rows.Count, "T").End(3).Row)
        If Year(c.Value) = yil Then say = say + 1
    Next c
    Sheets("SAY").Range("D3").Value = say + 1
End Sub