Tarih Saydırma

[Feylosof]

İyi bayramlar diliyorum.
Bir öncesinde açtığım konunun devamı olarak ekli dosya "I" sütununda bulunan tarihler içinde Userform textbox1 deki tarihten önceki tarihleri veya sonraki tarihleri textbox2'de saydırmak istiyorum ama yine yapamadım. Desteğinize ihtiyacım var. Şimdiden teşekkürler.

 

[alicimri]

Aşağıdaki kodu kendinize uyarlayın.

MsgBox WorksheetFunction.CountIf(Range("I:I"), ">" & CDbl(CDate(TextBox1.Value)))

 

[Feylosof]

Sayın @alicimri üstadım çok teşekkür ederim.

 

[Feylosof]

Sayın @alicimri konu kapsamında bir şey daha sorma ihtiyacı ortaya çıktı. Yardımcı olur musunuz?

Range("I:I") sütunu tarihlerden oluşmakta malumunuz. Burada tarih olarak değil de yıl olarak sayma yapabilir miyiz?
Örneğin, TextBoxta Yazacağım 2010 yılını sayabilir imiyiz. Bunu denedim ama beceremedim. Sürekli hata veriyor.

 

[alicimri]

Private Sub CommandButton1_Click()
For i = 1 To Cells(Rows.Count, 9).End(3).Row
If Year(Cells(i, 9)) = CDbl(TextBox1) Then
say = say + 1
End If
Next
MsgBox say
End Sub

 

[alicimri]

Üstteki kodu I sütununa göre değiştirdim.

 

[Feylosof]

Üstteki kodu I sütununa göre değiştirdim.

Üstadım çok teşekkür ederim.