Döngü ile işlem sonucu yazdırma

[mersenne]

Merhaba, ben makro kaydederek ve üzerinde değişiklik yaparak aşağıdaki işlemi yaptım. Fakat bunu döngü ile yapmak istiyorum ve A26 ile A102 arasına her işlemin sonucunu yazmasın, sadece A102 hücresine işlemin sonucunu yazsın (koyu renkli formülün verdiği sonucu A102 ye yazsın)


istenen işlem : (E25+E26)*(D25-D24)*0,5 bunu 26' dan 101' e kadar olan her satır için yapsın ve en son A102. satıra bu işlemlerin toplamını yazsın

Umarım anlatabilmişimdir, herkese şimdiden teşekkür ederim

Range("A26").Select
ActiveCell.FormulaR1C1 = "=0.5*(R[1]C[4]+RC[4])*(R[1]C[3]-RC[3])"
Range("A26").Select
Selection.AutoFill Destination:=Range("A26:A101"), Type:=xlFillDefault

Range("A102").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-76]C:R[-1]C)"
Range("A102").Select
Selection.NumberFormat = "0.00"

 

[fedeal]

Sub FD()
For i = 26 To 101
Cells(i, 1).Value = ((Cells(i - 1, "e") + Cells(i, "e")) * (Cells(i - 1, "d") + Cells(i - 2, "d"))) * 0.5
Next
Cells(102, 1).Value = WorksheetFunction.Sum(Range("a26:a101"))
End Sub

Selam, sorunuzda belirtiginiz (E25+E26)*(D25-D24)*0,5 hesaplamasını a26 hücresine yazıyor.a27 ye (E26+E27)*(D26-D25)*0,5 şeklinde devam ediyor.umarım istediginiz budur,iyi çalışmalar.

 

[mersenne]

yardımınız için teşekkürler, bunu yapmak istiyordum ama tek bir farkla. Her satırdaki bu işlemi yapsın ama fiziksel olarak bir yere yazmasın, sadece en son o hesapladıklarının toplamını versin , bunu nasıl yapabilirim acaba? Çünkü bana sadece tüm bu işlemler sonundaki sum (range("a26:a101")) den vereceği sayı lazım. Tekrar çok teşekkür ederim.

 

[Orion1]

Aşağıdaki kodkları deneyiniz.

For i = 26 To 101
deg = deg+(((Cells(i - 1, "e") + Cells(i, "e")) * (Cells(i - 1, "d") + Cells(i - 2, "d"))) * 0.5)
Next
msgbox "SONUÇ : " & format(deg,"#,##0.00")

 

[mersenne]

Sayın Fedeal ve Evren Gizlen'e çok teşekkür ederim, istediğim şeyi birebir elde ettim.

 

[Orion1]

Sayın Fedeal ve Evren Gizlen'e çok teşekkür ederim, istediğim şeyi birebir elde ettim.

Rica ederim.
İyi çalışmalar.