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")
teşekkür ederim ilgilendiğiniz için.Mehmet Hocam, burada geç kalanları saymıyor. Arkadaşın istediği 08:30 dan sonra gelenlerin sayılması yanılmıyorsam..
Formül işimi görüyor fakat soyisimleri için aynı kodu kullanduğımda soy isimler karışıyor..soy isimleri yazdıramadım öle olmayınca aynı isimden iki kişi olduğu zaman olmuyor.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..
evet aynı hücrede olunca sorun yok. farklı olunca problem...İsim ve Soyisimi aynı hücrede yazsan ssorun çözülür bence..