tekrarlayan 3 çeşit sube bilgisinin yanındaki sutunda olan değerleri toplayıp bir tanesinin yanına yazması

[ali.tursun]

Merhabalar,

Yaklaşık 5000 satırlık excel çarşaf tablom var. Bu tabloda şube adları 2,4 veya 6 satırda aynı olacak şekilde var. Sağında ise çağrı sayıları ve cevaplama sayıları yer alıyor.

2 şey yapmak istiyorum.

1. olarak Çağrı sayılarını toplayıp yeni bir sutunda örneğin 4 telefonu olan şube için 1. satırın sagına (D Sutunu) toplayıp yazmasını istiyorum.
2. olarak cevaplama sayılarını toplayıp yeni bir sutunda örneğin 4 telefonu olan şube için 1. satırın sagına (E Sutunu) toplayıp yazmasını istiyorum.

Son olarak olabilirse 4'lüleri 4'lü olarak merge etmek.2'lileri ayr, 6'lıları ayrı merge etmek istiyorum.

Aşağıdaki google drive'da örnek excel tablosu yer alıyor.

ORNEK_TABLO.xlsx

drive.google.com

 

[YUSUF44]

Dosyayı erişime açmamışsınız.

 

[ali.tursun]

Dosyayı erişime açmamışsınız.

Evet öyle olmuş. Çok özür.

ORNEK_TABLO.xlsx

drive.google.com

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub birlestir()
son = Cells(Rows.Count, "A").End(3).Row
For sube = 2 To son
    adet = WorksheetFunction.CountIfs(Range("B1:B" & son), Cells(sube, "B"), Range("C1:C" & son), Cells(sube, "C")) - 1
    If adet > 0 Then
        Range("D" & sube & ":D" & sube + adet).Merge
        Cells(sube, "D") = WorksheetFunction.SumIfs(Range("F1:F" & son), Range("B1:B" & son), Cells(sube, "B"), Range("C1:C" & son), Cells(sube, "C"))
        Range("E" & sube & ":E" & sube + adet).Merge
        Cells(sube, "E") = WorksheetFunction.SumIfs(Range("G1:G" & son), Range("B1:B" & son), Cells(sube, "B"), Range("C1:C" & son), Cells(sube, "C")) / Cells(sube, "D")
        sube = sube + adet
    Else
        Cells(sube, "D") = Cells(sube, "F")
        Cells(sube, "E") = Cells(sube, "G") / Cells(sube, "F")
    End If
Next
End Sub

 

[bzace]

Merhaba,
Formül ile alternatif olsun.
Siz toplam çağrı kısmında zorlanmışsınız sanırım.
D2: D21 aralığını seçip formül çubuğuna alttaki formülü yazıp CTRL + ENTER ile tamamlayınız.

=TOPLA(F2:$F$21)-TOPLA(D3:$D$21)