auto adjust total amount whenever a new row is added/ deleted

[Vnz]

Hi all,

i have trouble with my coding where i want to click on a button on my excel file to get the total amount. It keep showing error that my lastrow is empty.

Please Login or Register  to view this content.

[huuthang_bd]

Sub GetTotal_Click()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, 15).End(x1Up).Row
ThisWorkbook.Sheets("Sheet1").Range("O17:O" & lastrow + 1) = Application.WorksheetFunction.Sum(Sheets("Sheet1").Range("O17:O" & lastrow))
End Sub

The red character is the cause of the error.

[mohadin]

Hi
Plus
The sum result should be in a single cell, wright?
so ThisWorkbook.Sheets("Sheet1").Range("O" & lastrow + 1) =....

[Vnz]

The red character is the cause of the error.

How do solve this issue? I put x1Up

[Vnz]

Hi
Plus
The sum result should be in a single cell, wright?
so ThisWorkbook.Sheets("Sheet1").Range("O" & lastrow + 1) =....

Hi yes, it would be in a single cell.

[Vnz]

Attachment 641864

I would like to use have the sum auto adjust whenever i add/remove column above

[mohadin]

vBulletin Message
Invalid Attachment specified. If you followed a valid link, please notify the administrator
since the attachment is not valid would you Please explain in words what you are trying to do with the code