gt; > > Next x
> > > ActiveSheet.Cells(1, 2) = ActiveSheet.Cells(1, 1)
> > > End If
> > > End Sub
>
> > > now, if you really want to keep the duplicates
> > > (just to show that the values haven't changed for x number of cycles)
> > > then
tes
> > (just to show that the values haven't changed for x number of cycles)
> > then... is it possible for your DDE update to also update a cell with
> > the TIME of the last update?
> > then, do the same thing but also record the date/time of the data record?
>
>
a cell with
> the TIME of the last update?
> then, do the same thing but also record the date/time of the data record?
>
> ??
>
> Paul
>
> ________________
> From: TAlgo
> To: MS EXCEL AND VBA MACROS
> Sent: Wednesday, June 3, 2009 12:50:00 PM
> Subject: $$E
. is it possible for your DDE update to also update a cell with
> the TIME of the last update?
> then, do the same thing but also record the date/time of the data record?
>
> ??
>
> Paul
>
> ________________
> From: TAlgo
> To: MS EXCEL AND VBA MACROS
&
ne 3, 2009 12:50:00 PM
Subject: $$Excel-Macros$$ Re: Excel Macro - copying cell value as it changes
Paul, it works but my value in cell A1 is derived from external
sources via DDE. you think worksheet event does not recognize cell
value if its DDE?
On Jun 3, 12:32 pm, Paul Schreiner wrote:
&g
ubject: $$Excel-Macros$$ Re: Excel Macro - copying cell value as it changes
Paul, it works but my value in cell A1 is derived from external
sources via DDE. you think worksheet event does not recognize cell
value if its DDE?
On Jun 3, 12:32 pm, Paul Schreiner wrote:
> the simplest approach
Paul, it works but my value in cell A1 is derived from external
sources via DDE. you think worksheet event does not recognize cell
value if its DDE?
On Jun 3, 12:32 pm, Paul Schreiner wrote:
> the simplest approach would be to use a
> worksheet Change Event like:
>
> Option Explicit
> Private Su
the simplest approach would be to use a
worksheet Change Event like:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
If (Target.Address = "$A$1") Then
For X = 20 To 2 Step -1
ActiveSheet.Cells(X, 2) = ActiveSheet.Cells(X - 1, 2)
Next X
