Soru Nöbet listesi puantajı oluşturma

[rgnrgn]

Merhabalar. Nöbet listesi puantajı yapmak istiyorum. DR1,DR2...DR10 olarak 10 doktoruz. X,Y,Z, VE T adını verdiğim 4 ayrı birimde nöbet tutuyoruz. Yüklediğim dosyadaki soldaki tabloyu ben kendim dolduracağım. İstediğim şey ben tabloyu doldurduğumda otomatik olarak sağ üstteki tabloya kimin hangi gün kaç saat mesai yaptığını hesaplaması. Ancak bazı günlerde 24 saatlik mesailer yerine 8 ve 16 saatlik iki ayrı mesai oluyor(Örneğini tabloda belirttim). Bunlara dikkat ederek bir puantaj oluşturmak istiyorum. Sağ üstteki puantajda kimin hangi birimde nöbet tuttuğunun bir önemi olmayacak, sadece toplam çalışma saati hesaplayacak. Sağ alttaki tabloda ise adil olması amacıyla kimin hangi birimde kaç nöbet tuttuğunu tabloya dökmek istiyorum. Bunlar için yardımcı olur musunuz? Şimdiden çok teşekkür ederim.

 

[muygun]

Merhaba;
Makro ile oluşturulmuş örneği inceleyin.
İyi çalışmalar.

 

[rgnrgn]

Çok teşekkür ederim

 

[veyselemre]

Sub vardiyaAktar()
    Range("I3").Resize(10, 31).ClearContents
    Range("I15").Resize(10, 4).ClearContents

    For i = 3 To Cells(Rows.Count, 3).End(3).Row
        For ii = 3 To 6
            veri = Cells(i, ii)
            bol = Split(veri, "+")
            For Each bl In bol
                If InStr(bl, "(8)") Then
                    sa = 8
                    dr = Replace(bl, "(8)", "")
                ElseIf InStr(bl, "(16)") Then
                    sa = 16
                    dr = Replace(bl, "(16)", "")
                Else
                    sa = 24
                    dr = bl
                End If
                dr = Val(Replace(bl, "DR", ""))
                Cells(dr + 2, i + 6) = sa
                Cells(dr + 14, ii + 6) = Cells(dr + 14, ii + 6) + sa
            Next
        Next ii
    Next i
End Sub

 

[yanginci34]

Merhaba; Hocalarım kod ile yapmış ama formül ile tablonun yapısıyla biraz oynayarak birşey yapmaya çalıştım. Alternatif olsun