[حل شده] عدد آخرین ردیف جمع شود با آخرین ردیف قبلی

[alfa]

سلام علیکم
میخواهم عدد موجود در آخرین ردیف A با فشار دادن کلید : جمع شود با عدد داخل textbox و در آخرین ردیف جدید A ثبت شود.

[iranweld]

با سلام

Private Sub CommandButton1_Click()

Dim lastrow As Long

lastrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Range("A" & lastrow).Value = Range("A" & lastrow - 1).Value + TextBox1.Value

End Sub