VBA ile Sütunları toplama

[Maksim]

Herkese Merhaba,
Sql den Excele veri geliyor. Ambar1 B Sütununa, Ambar2 C sütununa.

Şimdi vba ile bu sütunları toplayıb E sütununa yazmak gerekiyor. Sütünların nerde biteceyi belli değil. Yani Ambar1 B100 de de bite bilir B500 de de.

Bu sütünları nasıl VBA-ile nasıl toplamak olur

E4=B4+C4 (Sütunda veri bitene kadar toplasın) kibi

Şimdiden Teşekkürler

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır.

Bunun için makroya gerek var mı bilmiyorum ama aşağıdaki kodları deneyiniz.

Sub Topla()
    
    Dim i   As Long
    
    i = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range("D2").Formula = "=B2+C2"
    Range("D2:D" & i).FillDown
    
End Sub

 

[Maksim]

Tam gereken bi makro..Teşekkür ederim !