[Excel][DDE]

[faaliopa]

Salve a tutti e scusate il disturbo.
Sono nuovo qui e vorrei chiedervi se esiste un modo per memorizzare i dati che variano da una casella in excel con collegamento dde ogni secondo.
Piu' specificatamente ho diverse caselle con collegamenti dde (come una tabella) da B7 a G14 e vorrei che questa tabella fosse come stampata subito sotto ogni secondo con i dati fissati a quel tempo. esempio: B7(collegamento dde),B15 (t), B23(t+1); B31(t+2)..ecc ecc...

[MarcoGG]

Salve a tutti e scusate il disturbo.
Sono nuovo qui e vorrei chiedervi se esiste un modo per memorizzare i dati che variano da una casella in excel con collegamento dde ogni secondo.
Piu' specificatamente ho diverse caselle con collegamenti dde (come una tabella) da B7 a G14 e vorrei che questa tabella fosse come stampata subito sotto ogni secondo con i dati fissati a quel tempo. esempio: B7(collegamento dde),B15 (t), B23(t+1); B31(t+2)..ecc ecc...

Se vuoi qualche spunto di codice, prova a guardare qui :
http://www.hwupgrade.it/forum/showthread.php?t=1698904

Per copia/incollare il range nell'evento temporizzato la risolverei più o meno così :

Private Function UltimaRigaUtile(nomeFoglio As String) As Long

Dim UR As Long
If WorksheetFunction.CountA(Worksheets(nomeFoglio).Cells) > 0 Then
UR = Worksheets(nomeFoglio).Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
UltimaRigaUtile = UR
Else
UltimaRigaUtile = 1
End If

End Function

Private Sub CopiaTabellaDati()

Range("B7:G14").Copy
Range("B" & (UltimaRigaUtile("Foglio1") + 1)).Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False

End Sub

Chiamando CopiaTabellaDati() ogni secondo... ;)