Ludagi

Hai un problema con Excel?

Nuova discussione

Ludagi
di Ludagi data: 26/06/2010
Ho creato la segente macro che mi aggiorna i dati con collegamento dde:

adesso ho necessita' di creare un grafico che si aggiorna con l'implementazione dei dati.
problema: se creo il gragico su colonne che si aggiornano la macro va in errore e si blocca ... fatti diversi tentativi ma non ho risolto... cerco aiuti.. grazie

il grafico è creato normalmente selezionando le colonne interessate

Sub bobbasopra()
Source = "A2:M2"          '<<<< inserire range in cui si aggiornano i dati da web
DeltaT = "00:00:01"  '<<< restart ogni 1 secondi; cambiare se necessario
 If Range("h3") <> 0 Then
If Range("h3") <> Range("h4") Then

    Rows("11:11").Select
    Selection.Insert Shift:=xlDown
    Range(Source).Select
    Selection.Copy
    Range("A11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Range("M11").Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "h:mm:ss"
    
    If Range("f11") = Range("b11") Then
    Range("n11") = Range("h11") - Range("h12")
     Range("m10") = "DOWN"
Else
    If Range("g11") = Range("b11") Then
    Range("o11") = Range("h11") - Range("h12")
       Range("m10") = "UP"
        Else
   
    Range("p11") = Range("h11") - Range("h12")
        
                          End If
        End If
        End If
       End If
       
Range("q11") = (Range("n11") + Range("o11") + Range("p11")) * Range("b11")
 Range("r11") = (Range("n11") + Range("o11") + Range("p11"))
 
 If Range("r11") <> 0 Then
 Range("s11") = Range("q11") / Range("r11")
 End If
 
 If Range("h3") <> 0 Then
 If Range("a6") = "no" Then
  Range("l11") = Range("b11")
    Range("a6") = "si"
    End If
    End If
    
    Range("e5") = "=SUM(q9:q159)"
    Range("f5") = "=SUM(r9:r159)"
    Range("e6") = "=max(l9:l20000)"
    Range("e7") = "=min(l9:l20000)"
    
    If Range("f5") <> 0 Then
    Range("t11") = Range("e5") / Range("f5")
   End If
 
 If Range("a5") = "go" Then
Application.OnTime Now + TimeValue(DeltaT), "bobbasopra"
End If
Range("h4") = Range("h3")
Range("b4") = Range("b3")

End Sub

Vuoi Approfondire?