arkadaşlar merhaba aşagıdaki kod da verilen sonuç üzerinden işlemlere devam edip Ln ni almak istiyorum yardımcı olabilir misiniz
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
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
Son düzenleme:
