Hola buenos dias, se que debe ser algo super básico pero estoy recién involucrandome con macros. Necesito construir una macro que cambie los datos de un gráfico por los de la hoja anterior, pero que ésta pueda ser utilizada en cualquier hoja, es decir, si la activo en la hoja 3 que saque datos de la 2 pero si lo hago en la hoja 7 que lo haga de la 6.

por ejemplo :

    ActiveSheet.ChartObjects("3 Gráfico").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(3).Values = "=hoja1!$D$16:$AH$16"
    ActiveSheet.ChartObjects("4 Gráfico").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(3).Values = "=hoja1!$D$30:$AE$30"[/PHP]

lo único que necesito es que en vez de modificar el gráfico con los datos de la hoja 1 lo haga con los de la anterior. Muchas gracias.

Hola:

Sustituya su código por:

[I][B][COLOR=#0000cd]If ActiveSheet.Index > 1 Then[/COLOR]

[/B][/I]

   ActiveSheet.ChartObjects("3 Gráfico").Activate

   ActiveChart.PlotArea.Select

   ActiveChart.SeriesCollection(3).Values = _

         "=" & [COLOR=#0000cd][I][B]Sheets(ActiveSheet.Index - 1).Name[/B][/I][/COLOR] & "!$D$16:$AH$16"

   ActiveSheet.ChartObjects("4 Gráfico").Activate

   ActiveChart.PlotArea.Select

   ActiveChart.SeriesCollection(3).Values = _

         "=" & [COLOR=#0000cd][I][B]Sheets(ActiveSheet.Index - 1).Name[/B][/I][/COLOR] & "!$D$30:$AE$30"


[COLOR=#0000cd][I][B]End If[/B][/I][/COLOR]



[/CODE]

Saludos

Muchas graciaas! funcionó de maravilla y agradezco su rápida respuesta. Le debo una ya que eran muchooos gráficos.

Saludos