| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
Realtime Graph
Hi
I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#2
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
Sorry, it should read:
I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#3
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
This VBA macro should work. Copy the following procedure to the sheet module
in which your data resides . . . Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Rng As Range Set Rng = Range("B65536").End(xlUp) If Not Intersect(Target, Range("A1")) Is Nothing Then Rng.Offset(1, 0).Value = Range("A1").Value End If End Sub -- John Mansfield http://www.cellmatrix.net "Alectrical" wrote: Sorry, it should read: I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#4
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
I apologize. Here's a slight modification to the code I just posted.
Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Rng As Range Set Rng = Range("B65536").End(xlUp) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("B1").Value = vbNullString Then Range("B1").Value = Range("A1").Value Else Rng.Offset(1, 0).Value = Range("A1").Value End If End If End Sub -- John Mansfield http://www.cellmatrix.net "Alectrical" wrote: Sorry, it should read: I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#5
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
Thanks John,
However, I could not get it to work. I created a module as you suggested and pasted the code in. My link in A1 is changing every second, but I am getting nothing in column B. Including "Option Explicit" also makes no difference. The version of excel I am running is 2003. "John Mansfield" wrote: I apologize. Here's a slight modification to the code I just posted. Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Rng As Range Set Rng = Range("B65536").End(xlUp) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("B1").Value = vbNullString Then Range("B1").Value = Range("A1").Value Else Rng.Offset(1, 0).Value = Range("A1").Value End If End If End Sub -- John Mansfield http://www.cellmatrix.net "Alectrical" wrote: Sorry, it should read: I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#6
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
On running debug, I get Target is empty
"John Mansfield" wrote: I apologize. Here's a slight modification to the code I just posted. Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Rng As Range Set Rng = Range("B65536").End(xlUp) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("B1").Value = vbNullString Then Range("B1").Value = Range("A1").Value Else Rng.Offset(1, 0).Value = Range("A1").Value End If End If End Sub -- John Mansfield http://www.cellmatrix.net "Alectrical" wrote: Sorry, it should read: I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
|
#7
Posted to microsoft.public.excel.charting
|
|||
|
|||
|
Realtime Graph
On running Debug, I get the error Target is empty
"John Mansfield" wrote: I apologize. Here's a slight modification to the code I just posted. Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Rng As Range Set Rng = Range("B65536").End(xlUp) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("B1").Value = vbNullString Then Range("B1").Value = Range("A1").Value Else Rng.Offset(1, 0).Value = Range("A1").Value End If End If End Sub -- John Mansfield http://www.cellmatrix.net "Alectrical" wrote: Sorry, it should read: I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, when the cell value changes I need to copy the new value from A1 into B2 and so on. I can then produce a real time graph from the information in column B. Sorry, it should read "Alectrical" wrote: Hi I have a cell with a DDE link from another program, which is sample data I need to produce a real time graph of. To do this I need to copy the value of the cell, A1, and paste it into B1, a second later I need to copy the value of A1 into B2 and so on. I can then produce a real time graph from the information in column B. Any ideas Thanks in advance. Alec |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy of realtime data. | Excel Worksheet Functions | |||
| realtime | Excel Worksheet Functions | |||
| History for Realtime measurement | Excel Discussion (Misc queries) | |||
| Realtime chart example | Excel Discussion (Misc queries) | |||
| extract data from a realtime updated cell | Excel Discussion (Misc queries) | |||
Linear Mode
