Son Boş Satıra Sütun Toplamını almak

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile sütunda ("E") son boş hücreyi buluyorum,

Sub SonBoşSatıraGit()
Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Offset(1, 0).Select
End Sub

İsteğim ;

Bulduğum son hücreye, "E4:E" aralığını toplasın, veriyi bold ve para birimi formatında yazsın ( örn ; 12.345,00 TL )

"E4" başlangıç verisi ancak, aynı sütunda bitiş verisinin hücresi değişiyor,

Toplanacak aralık bazen "E4:E80" bazen "E4:E65" vs oluyor.

Teşekkür ederim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    Dim son As Long
    son = Cells(Rows.Count, "E").End(xlUp).Row
    If son > 4 Then
        With Cells(son + 1, "E")
            .Value = WorksheetFunction.Sum(Range("E4:E" & son))
            .Font.Bold = True
            .NumberFormat = "#,##0.00 TL"
        End With
    End If
End Sub

 

[1Al2Ver]

Sayın Ömer merhaba,

Çözüm için çok teşekkür ederim, sağ olun.

Saygılarımla.