Data capture method

[jhaskins]

What I am trying to do is log data from a DDE linked cell. It gets real time updates from a Allen Bradley Data Highway network. I want to capture this data every 15 minutes and log it into the excel sheet for the 24 hour period.
I have used the VBE for the sheet and put this code in worksheet event change

Range("A65535").End(xlUp).Offset(1, 1).Value = Now
Range("A65535").End(xlUp).Offset(1, 0).Value = Range("A1").Value

Only problem it does the deed every time the cursor is moved
How do I creat a 15 minute event to put this code in

[ravishankar]

Hi
try the following codes

Sub Jhaskins()
Dim z As Long
For z = 1 To 100
Range("A65535").End(xlUp).Offset(1, 1).Value = Now
Range("A65535").End(xlUp).Offset(1, 0).Value = Range("A1").Value
  ActiveWorkbook.Save
PauseTime = 900 '15 min (900 sec)
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop
    Next z
End Sub

Ravi

[jhaskins]

Thanks You sir I am going to study and try to apply this for a while. I know nothing about VB. But willing to try. I will get back to this thread hopefully. Think my problem has been I was drifting between forums. I must apoligize for cross posting I am going to stick with this one if I can pull it off.
Jimmy

[jhaskins]

I was able to get Ravishankar's code to work for me. But while the timer is running the DDE link is not updated. Any sugestions?

Have progressed to this point I need a variable in timeValue that I can minuplate

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dim z As Long
'For z = 1 To 10
 Application.OnTime Now + TimeValue("00:00:15"), "capture_Data"
 Application.OnTime Now + TimeValue("00:00:30"), "capture_Data"
 Application.OnTime Now + TimeValue("00:00:45"), "capture_Data"
 Application.OnTime Now + TimeValue("00:01:00"), "capture_Data"
 Application.OnTime Now + TimeValue("00:01:15"), "capture_Data"
 Application.OnTime Now + TimeValue("00:01:30"), "capture_Data"
 
 
'Next z
End Sub

That way I will not have to enter all these times. I would need 96 of them for a 24 hour day. Itried to call this over and over as a function then as a macro but it never resets to now it continues from start of application.