VBA for copying and adding new cell value in every row

[FLAWLESSKING]

Hello Guys, i need to execute this simple thing...pls read below


A1 = 15


here a1 has cell value 15, so when I change it to 16, A2 should show number 15, when i change it to 17, A3 should show number 16,


means whenever i update the Cell Value A1, the new row records the previous value and posts the data one after another, something like this...


A1 = 15 (the number gets updated, and the previous number gets added below)
A2 = 15
A3 = 16
A4 = 17
A5 = 18

any help would be deeply appreciated, thanks a million.

 

[My Aswer Is This]

Why does A1 not equal 15 and A2 equal 16

 

[FLAWLESSKING]

Why does A1 not equal 15 and A2 equal 16

yes, but i hope you got my query

 

[My Aswer Is This]

Do the values always increment by 1

Or might you enter 300 in A1 then enter 647 in A1 and then enter 987 in A1

 

[My Aswer Is This]

I asked why does and your answer is Yes?

I do not understand

 

[FLAWLESSKING]

Do the values always increment by 1

Or might you enter 300 in A1 then enter 647 in A1 and then enter 987 in A1

No sir, it can be any random value, like 23, 454, 25 etc , just it should capture the previous value and update

 

[FLAWLESSKING]

I asked why does and your answer is Yes?

I do not understand

I meant, it was just an example, and i asked if you got my query sir.

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/29/2019  2:33:51 AM  EST
If Target.Address = Range("A1").Address Then
If Target.CountLarge > 1 Then Exit Sub
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(Lastrow, 1).Value = Target.Value
End If
End Sub

 

[FLAWLESSKING]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/29/2019  2:33:51 AM  EST
If Target.Address = Range("A1").Address Then
If Target.CountLarge > 1 Then Exit Sub
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(Lastrow, 1).Value = Target.Value
End If
End Sub

Thanks a Million sir, exactly what i was looking for, works like a charm!!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks a Million sir, exactly what i was looking for, works like a charm!!