Foro
=> ¿No se ha registrado todavía?MAS EN: EXCEL AVANZADO
Foro - Actualizar gráfica con macro cuyos datos se encuentran en una hoja distinta ala hoja donde se ubica el gráfico
Se encuentra aqui: Foro => Macros => Actualizar gráfica con macro cuyos datos se encuentran en una hoja distinta ala hoja donde se ubica el gráfico |
|
almagir (Visitante) |
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 | |||
bar (Visitante) |
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 |
Respuesta:
Temas totales: 40
Entradas totales: 95
Usuarios totales: 208
En este momento conectados (usuarios registrados): Nadie