Ara hücrelerin toplanması

[laroche23]

Merhabalar,

Ekli dosyada soruma yardimci olursaniz sevinirim.

Saygilar

 

[serqet]

PivotTable kullanmayı deneyin.

 

[serqet]

İL isimlerininen üstteki hücresine İLLER şeklinde başlık yazın ve iller arası boşlukları doldurun yani adana ile mersin arasındaki hücreler adana ise adana yazsın boş olmasın. Sonra bütün tabloyu seçip ekle kısmından Özet Tablo veya PivotTable yi seçin ekleyin.

 

[laroche23]

Yardim icin tesekkur.
Yanliz benim isimi ozet tablo degil bahsettigim sekilde toplma yapmam gerekiyor.
Eger bu konuda yardimci olacak arkadaslar varsa simdiden tesekkur ederim

 

[Huseyinkis]

Sanırım Aşağıdaki formul işleminizi çözmeye yardımcı olur

Sub Toplamal()
For i = 2 To Range("c65336").End(3).Row
If Cells(i, 2).Value <> "" Then
Cells(i, 8).Value = Cells(i, 3).Value
Cells(i, 9).Value = Cells(i, 4).Value
Cells(i, 10).Value = Cells(i, 5).Value
Cells(i, 11).Value = Cells(i, 6).Value
Satır = i
Else
Cells(Satır, 8).Value = Cells(Satır, 8).Value + Cells(i, 3).Value
Cells(Satır, 9).Value = Cells(Satır, 9).Value + Cells(i, 4).Value
Cells(Satır, 10).Value = Cells(Satır, 10).Value + Cells(i, 5).Value
Cells(Satır, 11).Value = Cells(Satır, 11).Value + Cells(i, 6).Value
End If
Next

End Sub