Foro

Intento realizar una macro que pasandole unos valores mediante parametros, actualice un gráfico.
La particualridad es que gráfico y datos (valores) estan en Hojas distintas

El grafico se llama Gráfico 6, y se encuentra en la Hoja2
Los valores se encuetran en la Hoja1
Valores (eje y) en la columna D , filas de la 12 a la 23
Valores eje x en la columna C, filas de la 12 a la 23

Sub Macro1()

Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6".Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = "=Hoja1!R12C2:R20C2"
ActiveChart.SeriesCollection(1).Values = "=Hoja1!R12C3:R20C3"

End Sub

De este modo funciona la macro.

La implementación que querría sería algo así:

Sub Macro2()

cel1 = Cells(12, 3).Address
cel2 = Cells(20, 3).Address
cel1x = Cells(12, 2).Address
cel2x = Cells(20, 2).Address

Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6".Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = Range(cel1x, cel2x)
ActiveChart.SeriesCollection(1).Values = Range(cel1, cel2)

End Sub

El problema es que de este modo solo me sirve si los datos y el gráfico estan en la misma Hoja excel, creo que porque a el metodo SeriesCollection le paso un rango pero no le referencio en que Hoja debe tomarlo, como si sucede en la priemra Macro1, (la priemra que e he escrito).

¿Alguien sabe como puedo pasarle al metodo SeriesCollection mediante parametros valores que conformen mi gráfica y que estén en una Hoja distinta a la Hoja donde está la gráfica?

Gracias por su ayuda

Extraer datos externos

valor en la hoja activa
Range("a1".value

Valor en otra hoja
worksheets("hoja1".Range("a1".value

Valor de otro libro
WorkBooks("MyLibro.xls".sheets("hoja1".Range("a1".value

Saludos