Thnaks Otto,

this is clear, but what if the user changed the value of the cell "A1" by
copying and pasting into it the cell "B2", which, in facts, contained not
only a value, but also a comment, some borders, a different number format
and a different font color and type.
Using your code, I'm going to loose everything of that apart the value.
Is there a simple way to store everything of a cell in a variable so that I
can easily re-apply everything from the variable to the cell?
Something like here below, which, I tried, unfortunately put in A2 just the
value of C2 and not also formats, comments, etc.
Dim r As Range
Set r = ActiveSheet.Range("C2")
ActiveSheet.Range("a2") = r

Paolo

--
Paolo
Milan, Italy
NOTE: remove QUESTONO from my email address for direct emailing
"Otto Moehrbach" <ottomocobia97@bellsouth.net> ha scritto nel messaggio
news:ekcdiYJBFHA.4028@TK2MSFTNGP15.phx.gbl...
> Paolo
> Yes, I've used this many times before. No, you cannot reverse the
> Undo. The code is something like this:
> (Say the cell is A1)
> Dim NewValue as Variant
> Dim OldValue as Variant
> NewValue = Range("A1").Value
> Application.Undo
> OldValue=Range("A1").Value
> 'Now you do what you want with your data, then put either OldValue or
> NewValue into A1.
> 'Bracket some of this code with the EnableEvents code as needed. HTH
> Otto
> "Paolo De Laurentiis" <pdela@QUESTONOfastwebnet.it> wrote in message
> news:IpTJd.12378$2h5.8749@tornado.fastwebnet.it...
>> Otto,
>> is this working for you (referring to manually done changes)?
>> I tried also this, but when the change event happen, I store the new
>> values, call the Undo, read the previous values, but then I'm unable to
>> call a Repeat to return to the situation after the changes.
>> In facts, the code I'm using causes a strange effect since I cannot
>> Repeat
>> any action even using the standard Excel button: you see the application
>> repeating the action, but then the Undo is applied by the macro while the
>> repeat is not.
>>
>> Here is the code I'm using.
>>
>> Application.EnableEvents = False
>> Call StoreValues(True, True, Wb, Ws, Rng) 'read values after change
>> Application.Undo
>> Call StoreValues(False, True, Wb, Ws, Rng) 'read values before change
>> Application.Repeat
>> Application.EnableEvents = True
>>
>> I'm thinking that I can simulate a Repeat writing via macro the new
>> values
>> into the cells, since I've stored them, but I'm worried about formats and
>> comments and whatever the user can have changed in the cells, apart from
>> the values, with just one single copy and paste operation from the GUI.
>> Do you think I can use something like:
>>
>> dim R as Range
>> set R= Rng 'where Rng is the range where the change happened,
>> passed
>> by the SheetChange event
>> Application.EnableEvents = False
>> Call StoreValues(True, True, Wb, Ws, Rng) 'read values after change
>> Application.Undo
>> Call StoreValues(False, True, Wb, Ws, Rng) 'read values before change
>> set Rng = R 'so meaning that everything is copied to the worksheet
>> range: values, formatting, comments, names, etc.
>> 'Application.Repeat
>> Application.EnableEvents = True
>>
>> Thanks,
>> Paolo
>>
>> --
>> Paolo
>> Milan, Italy
>> NOTE: remove QUESTONO from my email address for direct emailing
>>
>> "Otto Moehrbach" <ottomocobia97@bellsouth.net> ha scritto nel messaggio
>> news:ONhF$r0AFHA.3084@TK2MSFTNGP11.phx.gbl...
>>> Steph
>>> If the change you are wanting to trap was done manually, you can set
>>> the current (new value) value to a variable, then issue the Undo command
>>> and set the old value to another variable. Then you have both values.
>>> If the change was done by code, then you have to somehow capture the old
>>> value before the change is done. HTH Otto
>>> "Steph" <verysmallrox@yahoo.com> wrote in message
>>> news:eqUfPuyAFHA.824@TK2MSFTNGP11.phx.gbl...
>>>> Can I somehow capture what the cell value was before it was changed?
>>>>
>>>> I know I can capture the cell changed and the changed value in the
>>>> following:
>>>> MsgBox "You changed: " & Target.Address & " to " & Target.Value
>>>>
>>>> I would love it to tell me You changed A1 from 15 to 25
>>>>
>>>> Possible?
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>