Saat aralığına göre toplamları düzenleme

[MURATSO]

arkadaşlar merhaba,

ekli dosyada bazı veriler var. yapmak istediğim şey A kolonundaki saat aralıklarını saatlik aralıklara çevirmek ve o bir saate gelen toplamları yanlarına yazmak. aşağıda örnek ilk saati yaptım manuel

bunu formul yada macro ile nasıl yapabilirim?

TOTAL Gelen Çağrı Adetleri Dış Arama Adeti Toplam Agent Sayısı
09:00-10:00 325 682 1007 16

çok teşekkür ederim

 

[aliveli06]

biraz acil oldu ama sayfanın kod bölümüne aşağıdaki kodları ekleyip denermisiniz.

Sub kod()
y = 3
Range("a2:e2").Copy Range("f2")
    For i = 3 To Range("a65536").End(3).Row Step 4
        Cells(y, "f") = Left(Cells(i, "a"), 5) & "-" & Right(Cells(i + 3, "a"), 5)
        Cells(y, "g") = WorksheetFunction.Sum(Range("b" & i & ":b" & i + 3))
        Cells(y, "h") = WorksheetFunction.Sum(Range("c" & i & ":c" & i + 3))
        Cells(y, "ı") = WorksheetFunction.Sum(Range("d" & i & ":d" & i + 3))
        Cells(y, "j") = WorksheetFunction.Sum(Range("e" & i & ":e" & i + 3))
      y = y + 1
    Next i
End Sub

 

[Erdem Akdemir]

Formülle yapmak isterseniz, ekteki örneği inceleyiniz.

 

[MURATSO]

yardımlarınız için çok teşekkür ederim.

macro herşeyi halletmiş

formülde çok faydalı oldu. ellerinize sağlık.