Soru 9

9. sorumuzla devam edelim.

Aşağıdaki gibi bir tablomuz var. Bu tabloda bazı illerin, arasındaki mesafeler yer alıyor.

Sol tarafta yer alan tabloyu, sağ taraftaki formata getirmek istiyorum. Sarı renkli hücreleri, özellikle makro ile döngü oluşturarak yapmak istiyorum.

Dosyayı buradan indirebilir, cevaplarınızı yorum olarak yazabilirsiniz.

---

CEVAP

Sub Soru9()

For i = 2 To 5
    For y = 7 To 10
    Cells(i, y) = WorksheetFunction.SumIfs(Range("C:C"), _
    Range("A:A"), Cells(i, 6), Range("B:B"), Cells(1, y))
    Next y
Next i

End Sub