DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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..