[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]

Originariamente inviato da 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...

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...