Excel 2010 VBA - mise à Jour Graphique à l'aide de la gamme définie par la variable

J'ai une feuille Excel qui est mise à jour quotidiennement. Je suis en train de mettre à jour automatiquement un graphique avec les nouvelles données (1 ligne) qui est ajoutée chaque jour.

Pour l'instant j'ai:

Sub UpdateGraphs()

    Dim latestRow As Integer

    Sheets("DailyJourneyProcessing").Select

    Range("A500").Select

    Do Until ActiveCell.Value = ""
        If ActiveCell.Value <> "" Then
            ActiveCell.Offset(1, 0).Select
        End If
    Loop

    ActiveCell.Offset(-1, 0).Select
    Application.CutCopyMode = False
    ActiveCell.EntireRow.Copy

    ActiveCell.Offset(1, 0).Select
    ActiveCell.EntireRow.PasteSpecial (xlPasteAll)

    Application.CutCopyMode = False

    latestRow = ActiveCell.row

    Dim str1 As String
    Dim rng1 As Range

    str1 = "=DailyJourneyProcessing!$F$180:$F$" & latestRow
    Set rng1 = Range(str1)

    Debug.Print "Got this far..."

    Set ActiveChart.SeriesCollection(1).Values = Range(str1)

Je sais que cela semble comme j'ai tout simplement copier la ligne précédente, mais la formule est inclus prennent la voiture des changements dans les données.

L'Entier /ligne en ce moment est d'environ 520, donc je veux faire:

ActiveChart.SeriesCollection(1).Values = "=DailyJourneyProcessing!$F$180:$F$520"

Où le numéro de ligne change tous les jours. C'est l'un d'environ 20 plage de mises à jour j'ai besoin d'automatiser, mais une fois que j'ai résolu l'un l'autre devrait être le même.

J'ai essayé tout ce que je peut trouver en ligne, mais rien n'a fonctionné.

Pour le moment, je reçois une erreur d'exécution 91: Objet ou variable bloc with non définie.

Toute aide serait appréciée.

OriginalL'auteur user1774673 | 2012-10-25

  1. 3

    Il n'y a effectivement pas besoin de VBA pour accomplir cette tâche. Vous trouverez la méthode dans ce lien beaucoup plus facile à gérer et à entretenir que le code VBA. Aussi, il est vraiment préférable de ne pas utiliser VBA lorsque vous n'avez pas à!

    Cependant, de sorte que vous pouvez voir un moyen plus efficace de code que vous essayiez de faire, j'ai offert le code ci-dessous. Il peut très bien le besoin de quelques ajustements pour s'adapter à votre jeu de données.

    Sub UpdateGraphs()

    Dim wks As Worksheet, rng1 As Range
    Dim latestRow As Long ' changed to long to handle rows over 32,000 (whatever number Integer stops at)

    Set wks = Sheets("DailyJourneyProcessing")

    With wks

        latestRow = .Range("F" & .Rows.Count).End(xlUp).Row

        str1 = "=DailyJourneyProcessing!$F$180:$F$" & latestRow

        Set rng1 = Range(str1)

        Dim myChart As Chart
        Set myChart = .ChartObjects("myChartName")

        myChart.SeriesCollection(1).Values = rng1

    End With

End Sub
    Les deux méthodes fonctionnent très bien, merci beaucoup.

    OriginalL'auteur Scott Holtzman