Macro para modificar 50 graficos
Hola!
Que macro puedo utilizar para modificar los datos de origen de 50 graficos en excel, si en 1 libro tengo los datos y en los demas libros los graficos, para no hacerlo manualmente 1 x 1. Intente hacerlo con este codigo pero solo me didifica un libro.
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("INGENIERIA DE RED INTELIGENTE").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R59C10:R77C10"
ActiveChart.SeriesCollection(1).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C16:R77C16"
ActiveChart.SeriesCollection(2).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R74C10:R77C10"
ActiveChart.SeriesCollection(2).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C15:R77C15"
ActiveChart.SeriesCollection(3).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R74C10:R77C10"
ActiveChart.SeriesCollection(4).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C11:R77C11"
ActiveChart.SeriesCollection(5).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C12:R77C12"
ActiveChart.SeriesCollection(6).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C13:R77C13"
ActiveChart.SeriesCollection(7).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C14:R77C14"
Espero me puedan ayudar.
Gracias
Que macro puedo utilizar para modificar los datos de origen de 50 graficos en excel, si en 1 libro tengo los datos y en los demas libros los graficos, para no hacerlo manualmente 1 x 1. Intente hacerlo con este codigo pero solo me didifica un libro.
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("INGENIERIA DE RED INTELIGENTE").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R59C10:R77C10"
ActiveChart.SeriesCollection(1).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C16:R77C16"
ActiveChart.SeriesCollection(2).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R74C10:R77C10"
ActiveChart.SeriesCollection(2).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C15:R77C15"
ActiveChart.SeriesCollection(3).XValues = _
"='P-GRAFICAR_SOLICITANTE'!R74C10:R77C10"
ActiveChart.SeriesCollection(4).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C11:R77C11"
ActiveChart.SeriesCollection(5).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C12:R77C12"
ActiveChart.SeriesCollection(6).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C13:R77C13"
ActiveChart.SeriesCollection(7).Values = _
"='P-GRAFICAR_SOLICITANTE'!R74C14:R77C14"
Espero me puedan ayudar.
Gracias
1 respuesta
Respuesta de Juan Carlos González Chavarría
1