Toplantı Yapan Çalışan Sayılarını Bulma

  • Konuyu başlatan Konuyu başlatan Qene
  • Başlangıç tarihi Başlangıç tarihi

Qene

Katılım
28 Tem 2022
Mesajlar
360
Excel Versiyonu
Excel 365
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhaba,

İşyerimizde her gün yapılan toplantıları, 15'er dakikalık aralıklarda süreleri yazdırarak, o sürelerde kaç kişi toplantı yapmış bilgisine ulaşmak istiyorum. Resimdeki gibi basit bir tabloda katılımcıları ve toplantıya (odaya/online e) girdikleri saat ve bitirdikleri saatleri kaydediyorum.

Toplantı Yapan Çalışan Sayılarını Bulma


Bu tablodaki başlangıç ve bitiş saatlerine göre, aşağıdaki gibi bir tablo oluşturmak istiyorum. Saatler ve karşılarına gelecek toplam katılımcı sayıları tek formül, kod ya da her ne şekilde çözülecekse yazdırılmalı.

Toplantı Yapan Çalışan Sayılarını Bulma


Burada dikkate alınacak saat aralıkları için referanslar şu şekilde.
  • Toplantı için ilk başlangıç saati 09:00 olmalı.
  • Dakika aralıkları 15 olmalı.
  • 17:00 mesai bitiş saati olduğu için, en son toplantı dilimi 16:45 olmalı ve bitiş süresi bu sefer 15 dakika değil, gece yarısı (00:00) olarak yazdırılmalı.
Dediğim gibi, benim için çözümün ne şekilde olduğu önemsiz. Sadece ikinci eklediğim tablonun ilk sütununu da otomatik yazdırsın istiyorum.

ÇOk teşekkürler.
 
Saat Aralıklarından Vardiyadaki Çalışan Sayılarını Bulma
Harf Sayı Çiftlerini Kullanarak Değer Oluşturma

Ekli dosyalar

Çözüm
Ömer BARAN
Alternatif KTF.

Formül kullanımı: =ELEMAN_SAY(B2:B6;C2:C6;"09:00";"17:00";15)

VBA: 
Function ELEMAN_SAY(giris As Range, cikis As Range, ilk As String, son As String, dk As Byte)
    adet = (TimeValue(son) - TimeValue(ilk)) * 24 * 60 / dk
    If Int(adet) <> adet Then adet = Int(adet) + 1
    ReDim snc(1 To adet + 1, 1 To 2)
    snc(1, 1) = "Saat Aralığı": snc(1, 2) = "Katılımcı Sayısı"
    For rtm = 1 To adet
        bas = DateAdd("n", (rtm - 1) * dk, TimeValue(ilk))
        bit = DateAdd("n", rtm * dk, TimeValue(ilk)): s = 0
        snc(rtm + 1, 1) = Format(bas, "hh:nn") & "-" & Format(bit, "hh:nn")
        For sat = 1 To giris.Rows.Count
            If Application.Index(giris, sat, 1) < bit And _...
Tarihe göre sırala Oylamaya göre sırala
Alternatif KTF.

Formül kullanımı: =ELEMAN_SAY(B2:B6;C2:C6;"09:00";"17:00";15)

VBA: 
Function ELEMAN_SAY(giris As Range, cikis As Range, ilk As String, son As String, dk As Byte)
    adet = (TimeValue(son) - TimeValue(ilk)) * 24 * 60 / dk
    If Int(adet) <> adet Then adet = Int(adet) + 1
    ReDim snc(1 To adet + 1, 1 To 2)
    snc(1, 1) = "Saat Aralığı": snc(1, 2) = "Katılımcı Sayısı"
    For rtm = 1 To adet
        bas = DateAdd("n", (rtm - 1) * dk, TimeValue(ilk))
        bit = DateAdd("n", rtm * dk, TimeValue(ilk)): s = 0
        snc(rtm + 1, 1) = Format(bas, "hh:nn") & "-" & Format(bit, "hh:nn")
        For sat = 1 To giris.Rows.Count
            If Application.Index(giris, sat, 1) < bit And _
                Application.Index(cikis, sat, 1) > bas Then
                s = s + 1: snc(rtm + 1, 2) = s
            End If
        Next
        If rtm = adet And bit > son Then snc(rtm + 1, 1) = _
            Format(bas, "hh:nn") & "-" & Format(son, "hh:nn")
    Next
    ELEMAN_SAY = snc
End Function
 
Oyla 0 Olumsuz oyla
Çözüm
@cesur hocam çok teşekkür ederim emeğinize.
Ancak kod saatleri ve karşılarına da adetleri yazdırmalı. Sadece adetler yazılıyor. Elimde saatlerin olmadığını da varsayarak revize etme imkanınız olur mu?

Teşekkürler.
 
Oyla 0 Olumsuz oyla
@Ömer hocam teşekkür ederim size de.
Kodlar istediğim çıktıyı sağlıyor.

1703612715462.webp


şimdi her ikinizin kodunu da incelediğimde, üstteki tabloya göre mesela 10:00 - 10:15 aralığında gelen sayı 1.
Ama o aralıkta Eda ve Gaye toplantıda oldukları için sayının 2 olması gerekmez mi?

Başka saatlerde de farklılıkla var gibi, inceleyeme devam ediyorum.

Teşekkürler.
 
Oyla 0 Olumsuz oyla
Teşekkür ederim hocam.
9:30 - 12:12 aralığındaki toplantıyı 09:15 - 09:30 grubu içinde saydı. Nereyi düzeltmek lazım?
 
Oyla 0 Olumsuz oyla
Dilim başlangıç ve bitiş saatlerinin dahil/hariç durumuna göre karar vereceksiniz.
İsteğinize göre <= b kısmındaki = işaretini silinmesi lazım.
 
Oyla 0 Olumsuz oyla
Değişken isimlerini daha anlaşılır hale getirdim ve
15 dk ritim değiştirildiğinde en sondaki dilimle ilgili bitiş saatini düzeltmeye yönelik de ekleme yaptım.

Sayfayı yenileyerek, verdiğim ilk kodun yeni halini kontrol edin.

Dilimlere ait başlangıç ve bitiş zamanlarının hangi tarafa dahil olacağına dair kararınıza göre
< ve > işaretlerinin sağına = işareti eklersiniz.
 
Oyla 0 Olumsuz oyla
Kod: 
=LET(f;SIRALI(32;;36)/96;t;DÜŞEYYIĞ(BIRAK(f;1);1);m;"ss:dd";DÜŞEYYIĞ({"Saat Aralığı";"Katılımcı Sayısı"};YATAYYIĞ(METNEÇEVİR(f;m)&"-"&METNEÇEVİR(t;m);EĞERSAY(B2:B6;"<"&t)-EĞERSAY(C2:C6;"<"&f))))

Excel 365 versiyonu olsun bu da.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt