I have the following coding:

Sub Update()
Dim myCell As Range
NextTime = Time + TimeValue("00:00:01")
Range("B5:G7").Copy
Set myCell = Cells(Rows.Count, 2).End(xlUp)(2)
myCell.PasteSpecial _
Paste:=xlPasteValues
With myCell.Offset(0, -1).Resize(3)
.Value = Now
.NumberFormat = "mm/dd/yy hh:mm:ss"
End With
Application.OnTime NextTime, "Update"
End Sub

Thanks a lot Bernie Deitrick last time for helping with this.

Now I hope to improve for 2 points:

1, Instead of every 1 second to stock the undated data, I hope to
stock whenever there is a update in the Range.

2, I hope to synchronize several sheets(say sheet 1, 2 , 3) of this
realisation.

Thanks in advance for all the possible help

Another one who thinks this is a programming service, and when he doesn't get
a satisfactory answer in 10 minutes posts again.. and again..

sigh..

--
p45cal


"Jonathan" wrote:

I have the following coding:

Sub Update()
Dim myCell As Range
NextTime = Time + TimeValue("00:00:01")
Range("B5:G7").Copy
Set myCell = Cells(Rows.Count, 2).End(xlUp)(2)
myCell.PasteSpecial _
Paste:=xlPasteValues
With myCell.Offset(0, -1).Resize(3)
.Value = Now
.NumberFormat = "mm/dd/yy hh:mm:ss"
End With
Application.OnTime NextTime, "Update"
End Sub

Thanks a lot Bernie Deitrick last time for helping with this.

Now I hope to improve for 2 points:

1, Instead of every 1 second to stock the undated data, I hope to
stock whenever there is a update in the Range.

2, I hope to synchronize several sheets(say sheet 1, 2 , 3) of this
realisation.

Thanks in advance for all the possible help

On Jul 18, 2:44 pm, p45cal wrote:
Another one who thinks this is a programming service, and when he doesn't get
a satisfactory answer in 10 minutes posts again.. and again..

sigh..

--
p45cal



"Jonathan" wrote:
I have the following coding:

Sub Update()
Dim myCell As Range
NextTime = Time + TimeValue("00:00:01")
Range("B5:G7").Copy
Set myCell = Cells(Rows.Count, 2).End(xlUp)(2)
myCell.PasteSpecial _
Paste:=xlPasteValues
With myCell.Offset(0, -1).Resize(3)
.Value = Now
.NumberFormat = "mm/dd/yy hh:mm:ss"
End With
Application.OnTime NextTime, "Update"
End Sub

Thanks a lot Bernie Deitrick last time for helping with this.

Now I hope to improve for 2 points:

1, Instead of every 1 second to stock the undated data, I hope to
stock whenever there is a update in the Range.

2, I hope to synchronize several sheets(say sheet 1, 2 , 3) of this
realisation.

Thanks in advance for all the possible help- Hide quoted text -

- Show quoted text -

Sorry guys, the reason that I tried 4 times is because since tomorrow
I have tried and waited to post my problem for many times and till
today I find it. I am sorry about this.

But it did took one day for my posting to show up.

My apologies!