Son dolu hücrenin altı

[muhalko]

Bir excel sayfasında, l sütnundaki son dolu hücrenin bir altına l9ile son dolu hücreye kadar toplamını alacak kod nasıl yazılır.

 

[Mustafa MUTLU]

Şu Kodu Denermisiniz.

Sub Toplama()
Satır = Range("I65536").End(3).Row + 1
Cells(Satır, "I") = WorksheetFunction.Sum(Range("I9:I65000"))
MsgBox "Toplama işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
End Sub

 

[muhalko]

sayın mustafa mutlu üstadım;

ellerinize sağlık.
biraz kendim birşeyler yapayım dedim ancak sonuç değişmiyor.
toplama yapmıyor. hücre boş duruyor.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.