Function GecKalan(alan As Range, kim As String)
Dim rng As Range, say As Byte
For Each rng In alan
If rng = kim And CDate(rng(1, 0).Value) > TimeValue("08:30") Then GecKalan = GecKalan + 1
Next rng
End Function
=GecKalan(C2:C100;"PINAR")
Mehmet Hocam, burada geç kalanları saymıyor. Arkadaşın istediği 08:30 dan sonra gelenlerin sayılması yanılmıyorsam..
Sadece geç gelenlerin ne kadar olduğunu mu listelemek istiyorsunuz?
Eğer öyleyse Mehmet Hocamın formülü sizin işinizi görür.
Ama tüm liste için de 08:30 dan sonra gelenleri istiyorsanız; eklediğim fonksiyon işinizi görecektir.
Kolay gelsin..
İsim ve Soyisimi aynı hücrede yazsan ssorun çözülür bence..