Saving a value before the cells update again

[fpa93]

Guys,

How can I save a cell value in another cell as a copy? I mean I dont want to keep a connection between the cell that receive the value 1 or 0 with the cell that I want to copy this values. I want to do that to save the number of time that the cell goes to 1 or 0 among the day.

Can anybody help me ?

 

[DILIPandey]

Hi fpa93,

let say a1 is having value 5, and then user overwrites a1 with 6 and then with 7... now what you want ? you need some other cell to show 6 and then 7 (overwritten) or you want to track 5,6,7 etc (all values) in a separate column ?

Or you just want a number which will say the number of times a1's value got changed ?

Also, will a1 have 1 or 0 numbers only ?

Regards,
DILIPandey

 

[fpa93]

Hey DILIpandey,

Basically what I have is A1 being updated once per day. So each day I want to know if A1 was updated in the previous day. I mean I want to know that before A1 be updated again with the
actual date.

Lets say today is 03/01 and I updated A1=03/01 (day that the task was done). So if I go to my control I want to see if on "moday" A1 was done even if I am in "tuesday".

Monday = A1 was done (done means that the task was read that day)
Tuesday = A1 was not done (mean that the task was not read on tuesday but see it was on monday)
Wednesday = A1 was done
.
.
.

Kinda track A1 in each day. Does not need to be like that I just need to save the action.

Did you understand ?

Please let me know!!

Tomorrow is 03/02 so I want to know if A1 was 03/01 (previous day) before A1 be 03/02 (new updating).

What I want is like a control of daily activity something like.

Thanks in advance.

 

[DILIPandey]

So best way would be to track all values of A1 in a separate column and you can refer this column to verify all the dates for any possible misses.. agree ?



Regards,
DILIPandey

 

[fpa93]

Yes I agree but how can I do that ? manually like checking every day ?

Regards,

 

[DILIPandey]

okay.. right click on your desired sheet and paste below code:-

Private Sub Worksheet_Change(ByVal Target As Range)
'created by DILIPandey on 2-Apr'16
If Target.Address = "$A$1" Then
    Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value
End If
End Sub

It will track cell a1 and will paste in column B.
If you wish you can edit the cell / column reference it the code to suit your requirement.

Regards,
DILIPandey

 

[fpa93]

DILIPandey,

It worked as a track but I got one problem I have many cells to track and I wanted to track them in another worksheet.

I can track one by one with your code but I would like to do it in another sheet as it will be a lot of datas.

Thanks in advance.

 

[DILIPandey]

Okay... create a sheet by the name of track and update below code in your desired sheet;-

Private Sub Worksheet_Change(ByVal Target As Range)
'created by DILIPandey on 2-Apr'16
If Target.Address = "$A$1" Then
    Worksheets("track").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value
End If
End Sub

Regards,
DILIPandey

 

[fpa93]

Dear DILIPandey,

Thank you a lot for your help and attention it worked as I wanted. I will just fit it to my necessities.

Best Regards,

 

[DILIPandey]

you are welcome fpa93.. !!

Glad to help.


Regards,
DILIPandey