Formülü kodla yazım şekli

[nafis]

Merhaba,

Formada aradım bulamadım. Yada nasıl aranacak bilemedim.

Sorum: =TOPLA(A1:B2) formülü basit bir förmül 20. satıra kadar çoğalttım bu formülü. Bu formül kodla nasıl yazılıyor? Yada Çalışma sayfalarında kullandığımız formüller kodla nasıl yazılıyor?

Saygılarımla

 

[Orion1]

Böylemi?
ilk satırda , A1:B2 aralığını alt alta toplayarak c sütununa yazar.

Sub topla59()
Dim i As Long
For i = 1 To 20
    Cells(i, "C").Value = WorksheetFunction.Sum(Range("A" & i & ":B" & i + 1))
Next i
End Sub

 

[nafis]

Merhaba,

Sn.Orion1, cevabınız için teşekkürederim.
A sütünun 20. satırına kadar 1 yazdım B sütunun 20. satırına kadarda 1 yazdım makroyu çalıştırdım, sonuç şöyle çıktı.
1 1 4
1 1 4
.......
.......



Saygılarımla.

 

[Orion1]

Merhaba,

Sn.Orion1, cevabınız için teşekkürederim.
A sütünun 20. satırına kadar 1 yazdım B sütunun 20. satırına kadarda 1 yazdım makroyu çalıştırdım, sonuç şöyle çıktı.
1 1 4
1 1 4
.......
.......



Saygılarımla.

Evet öyle çıkacak.Siz A1:B2 aralığının toplamını istemiştiniz çünkü!

 

[nafis]

Merhaba,,

Hocam yanlış anlatım a1:b2 olmayacktı özürdilerim doğrusu, a1 hücre değerine 1 yazdım b1 hücre değerine 1 yazdım c1 hücresine 1+1=2 çıkması gerekiyor.

Saygılarımla.

 

[Orion1]

Merhaba,,

Hocam yanlış anlatım a1:b2 olmayacktı özürdilerim doğrusu, a1 hücre değerine 1 yazdım b1 hücre değerine 1 yazdım c1 hücresine 1+1=2 çıkması gerekiyor.

Saygılarımla.

Buyurun.

Sub topla59()
Dim i As Long
For i = 1 To 20
    Cells(i, "C").Value = WorksheetFunction.Sum(Range("A" & i & ":B" & i))
Next i
End Sub

 

[nafis]

Merhaba,

Tamam hocam eline sağlık teşekürederim.

Saygılarımla.