verilen işlemi yapıp yeni tablo oluşturan makro

[gökçe111]

her kriter için bütün alternatifler de bu işlemi yapıp yeni bir tablo oluşturacak makroyu yazmaya çalışıyorum ama başaralı olamadım yardımcı olabilirseniz sevinirim
Rij =R (Fiyat, Iphone 5S) = xij / Σxij
2250/(2250+1700+1400+1000+950+1850+1600+1300+1400+700)

 

[veyselemre]

İstediğinizin ne olduğunu anlamadım ama böyle bir şey mi acaba?

Sub test()
    son = Cells(Rows.Count, 1).End(3).Row
    For sut = 2 To 13
        Set Rng = Range(Cells(2, sut), Cells(son, sut))
        toplam = WorksheetFunction.Sum(Rng)
        Cells(son + 1, sut) = toplam
        For sat = 2 To son
            Cells(sat + son + 2, sut) = Cells(sat, sut) / toplam
        Next sat
    Next sut
End Sub

 

[gökçe111]

Sub test() son = Cells(Rows.Count, 1).End(3).Row For sut = 2 To 13 Set Rng = Range(Cells(2, sut), Cells(son, sut)) toplam = WorksheetFunction.Sum(Rng) Cells(son + 1, sut) = toplam For sat = 2 To son Cells(sat + son + 2, sut) = Cells(sat, sut) / toplam Next sat Next sut End Sub

çok teşekkür ederim, evet aynen bu şekilde ama bazı sonuçlar hesaplanmıyor sıfır olarak görünüyor onu nasıl düzeltebilirim ?