Instantaneous cell values from a PLC
 

I am running excell 2003 and have an analog input value from an Allen Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

I have installed the code in the Sheet1 Objects, and still I have no tag
values comming up in the LogSheet, is there a setting or something that may
be preventing vba from moving the changing value?

"Jim Cone" wrote:


Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

Change the cell designation in the code to another cell;
enter some data in that cell; see if the change is logged.
( the dollar signs($) are required in the cell address)

If not, run this sub and try again...
Sub MakeItRight
Application.EnableEvents = True
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Bill"
wrote in message
I have installed the code in the Sheet1 Objects, and still I have no tag
values comming up in the LogSheet, is there a setting or something that may
be preventing vba from moving the changing value?

"Jim Cone" wrote:
Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

If that's a DDE link, the Worksheet_Change event may not fire. To overcome
this, put a formula in another cell that links to the DDE-linked cell (just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

I still cannot get Excel to run the procedure, security settings are fine,
still will not give me the values.

"Jon Peltier" wrote:

If that's a DDE link, the Worksheet_Change event may not fire. To overcome
this, put a formula in another cell that links to the DDE-linked cell (just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input, I was
wondering if there was a way of saving the values in that cell, so I can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

Show your code, and tell us where you've placed it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
I still cannot get Excel to run the procedure, security settings are fine,
still will not give me the values.

"Jon Peltier" wrote:

If that's a DDE link, the Worksheet_Change event may not fire. To
overcome
this, put a formula in another cell that links to the DDE-linked cell
(just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input, I
was
wondering if there was a way of saving the values in that cell, so I
can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

Have placed it in this workbook procedure
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$A$1" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub


"Jon Peltier" wrote:

Show your code, and tell us where you've placed it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
I still cannot get Excel to run the procedure, security settings are fine,
still will not give me the values.

"Jon Peltier" wrote:

If that's a DDE link, the Worksheet_Change event may not fire. To
overcome
this, put a formula in another cell that links to the DDE-linked cell
(just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input, I
was
wondering if there was a way of saving the values in that cell, so I
can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.

Instantaneous cell values from a PLC
 

I said that a _Change event might not fire, so you should use a _Calculate
event procedure. See my earlier post (5/9/07 8:41 am).

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
Have placed it in this workbook procedure
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$A$1" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1, 1).Value
End With
End If
End Sub


"Jon Peltier" wrote:

Show your code, and tell us where you've placed it.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Bill" wrote in message
...
I still cannot get Excel to run the procedure, security settings are
fine,
still will not give me the values.

"Jon Peltier" wrote:

If that's a DDE link, the Worksheet_Change event may not fire. To
overcome
this, put a formula in another cell that links to the DDE-linked cell
(just
=$C$5 will do), then put the code into the Worksheet_Calculate event
procedure.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jim Cone" wrote in message
...

Code goes in the sheet module.
Name a blank sheet in the same workbook "LogSheet".
Change C5 to the correct cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Address = "$C$5" Then
With Worksheets("LogSheet")
.Cells(.Rows.Count, 1).End(xlUp)(2, 1).Value = Target(1,
1).Value
End With
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Bill"
wrote in message
I am running excell 2003 and have an analog input value from an
Allen
Bradley
control logix PLC giving a cell an instantaneous value of the input,
I
was
wondering if there was a way of saving the values in that cell, so I
can
set
up a trend of the values.I have tried to send the values to another
spreadsheet on a time basis, but have had no luck.