View Single Post
  #2   Report Post  
Bill Manville
 
Posts: n/a
Default

Garr wrote:
How do I get sheet 1 to
put the information into a different cell in sheet 2 each time it updates. I
would like to get them to follow the dates down a column.

You will need a macro to do this.
It might go something like this, stored in a standard VBA module:

Sub TransferData()
Dim vRow
With ThisWorkbook.Sheets("Sheet2").Range("A1").CurrentR egion
' the used area starting at A1
vRow = Application.Match(CLng(Date),.Columns(1),0) ' match date in col. A
If IsError(vRow) Then
vRow = .Rows.Count+1 ' not found, add at end
.Cells(vRow,1)=Date ' add date to bottom of table
End If
' copy the newly received data
ThisWorkbook.Sheets("Sheet1").Range("A2:C2").Copy
' paste into sheet 2 as values
.Cells(vRow, 2).PasteSpecial xlValues
End With
End Sub

You could attach this macro to a button which you press, or you could have it
executed automatically, say 5 seconds after opening the workbook by adding

Sub Auto_Open()
Application.OnTime Now+TimeValue("0:0:5"), "TransferData"
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup