I want to use data from a worksheet to be displayed in a digital signage
application. The signage player can read the URL of a web page and it is
refreshed periodically. The data would consist of tracking new business as it
flows through our business process. Ideally the use of conditional formatting
on dates would allow visual triggers of any fulfilment deadlines etc... the
number of lines could extend past the vertical viewing area of the screen so
scrolling of the data would be an asset. Would welcome any ideas on how to
achieve.

OK, you have some code that will email a page, you need to change the content
of that page several times, emailing it after each change.

This code presents a way to do that, first some Assumptions that you'd have
to modify the code to correct to represent your reality before it is usable:

The name of the routine that sends the email is EmailOnePage,
The data on the second page, named[List Page], begins in column A at row 2.
Entries in column A continue unbroken down the page until the end of the list.
The name of the page to email is [Our Form]
Now for sample code:

Sub MakeFilledForms()
Dim formSheet As Worksheet
Dim listSheet As Worksheet
Dim dataList As Range
Dim dataItem as Range

Set formSheet = Worksheets("Our Form")
Set listSheet = Worksheets("List Page")
Set dataList = listSheet.Range("A2:" & _
listSheet.Range("A" & Rows.Count).End(xlUp).Address)
For Each dataItem in dataList
'here you move data row by row from[List Page] to [Our Form]
'you will need to change the "to" addresses as required
'and add more moving commands as required to get all data moved
formSheet.Range("B9") = dataItem ' from col A to form sheet
formSheet.Range("X4") = dataItem.Offset(0, 1) ' from[List Page] col B
formSheet.Range("A2") = dataItem.Offset(0, 2) ' from[List Page] col C
'.... continue moving information
'after moving the information on one row, call the email routine
'depending on the way the code is written, you may need to make
'sure the sheet to be emailed is active first. You can run this code
'while that sheet is active.
EmailOnePage ' email it
Next ' moves to next row on[List Page]
' release resources back to the system
Set dataList = Nothing
Set listSheet = Nothing
Set formSheet = Nothing
End Sub


"Logistic" wrote:

I want to use data from a worksheet to be displayed in a digital signage
application. The signage player can read the URL of a web page and it is
refreshed periodically. The data would consist of tracking new business as it
flows through our business process. Ideally the use of conditional formatting
on dates would allow visual triggers of any fulfilment deadlines etc... the
number of lines could extend past the vertical viewing area of the screen so
scrolling of the data would be an asset. Would welcome any ideas on how to
achieve.