Seçili Tarihte İzinli olanların sayısı

[serdarbarak]

Arkadaşlar ekli programda izinli personellerin listesi var. Bu kayıtların 150 satır veya daha fazla olduğunu farzedelim. Benim yapmak istediğim (elbetteki sizlerin yardımıyla) Userformu açıp bir tarih seçtiğimde(Örneğin 16.01.2007 tarihini seçtim ve o tarihte izinde olan 10 kişi var textbox a 10 yazacak bir macro); seçilen tarihte izinde olan kişilerin sayısını textbox a yazacak bir makro yazabilirmiyiz. Yardımlarınız için şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Satır = [A65536].End(3).Row
    Tarih = CLng(CDate(DTPicker1))
    TextBox1 = Evaluate("=SUMPRODUCT((C2:C" & Sat&#305;r & "<=" & Tarih & ")*(D2:D" & Sat&#305;r & ">=" & Tarih & "))")
End Sub

 

[hamitcan]

Bir tane de benden olsun.

Private Sub CommandButton1_Click()
For Each tarih In [c2:c50]
    If DTPicker1 >= tarih And DTPicker1 <= tarih.Offset(0, 1) Then
    c = c + 1
    End If
Next
TextBox1 = c
End Sub

 

[serdarbarak]

Teşekkürler

Çok Teşekkür ederim . ben excelde eğer ile ve işlevlevlerini kullanarak çözmüştüm ama sizin ustalıklarınızı görünce ağzım açık kaldı tekrar teşekkür ederim