otomatik topla

[akd]

Merhaba arkadaşlar,
Userform üzerinden sayfaya bilgiler gönderiyorum.
bilgi gönderme işi bitince, bir butonla c sutununun son bilgi girişin hemen altına otomatik toplaya tıklayınca toplama yapıyor ya, ha işte ben bu işlemi bir butonla yapmak istedim ama beceremedim, yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.

lig = Columns(1).Find("", [a5], , , xlByRows).Row
Cells(lig, 3) = ?' buraya hangi kodu yazabilirim...
selamlar...

 

[Haluk]

Þunu bir deneyin, bakalım olucak mı ?

Cells(lig, 3) = WorksheetFunction.Sum(Range("C2:C") & lig)

 

[akd]

Merhaba sayın raider,
malesef hata veriyor...
saygılar...

 

[Levent Menteşoğlu]

Sn Raider'in izniyle,aşağıdaki şekilde deneyin.

[vb:1:65f3816071]Cells(lig, 3) = WorksheetFunction.Sum(Range("C2:C" & lig))[/vb:1:65f3816071]

 

[akd]

Çok çok teşekkürler arkadaşlar...