Cambiar rango de datos desde un gráfico
Estimado JCGonzalez,
He revisado varias respuestas en este sitio y no he encontrado la clave a lo que busco, tengo un gráfico que lo debo hacer variar todas las semanas y quiero poner una macros que me ayude en eso, los datos contenidos dentro del gráfico contienen información de 1 semana calendario y necesito cambiar el rango de todas las series. Cuando gravé el operación en VB me arrojó la siguiente sentencia:
ActiveChart.SeriesCollection(1).XValues = _
"='Planificación Mantención'!R4C18:R4C24"
Lo que debo hacer variar son las columnas y mantener las filas.
Si conoces alguna respuesta te lo agradezco.
He revisado varias respuestas en este sitio y no he encontrado la clave a lo que busco, tengo un gráfico que lo debo hacer variar todas las semanas y quiero poner una macros que me ayude en eso, los datos contenidos dentro del gráfico contienen información de 1 semana calendario y necesito cambiar el rango de todas las series. Cuando gravé el operación en VB me arrojó la siguiente sentencia:
ActiveChart.SeriesCollection(1).XValues = _
"='Planificación Mantención'!R4C18:R4C24"
Lo que debo hacer variar son las columnas y mantener las filas.
Si conoces alguna respuesta te lo agradezco.
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
a), podrías crear dos variables que pertenecerían a las columnas y combinarlas con el InputBox:
Dim MiValor1 As Integer, MiValor2 As Integer
MiValor1 = InputBox("Iniciar en la columna No.", "Establecer Primer columna")
MiValor2 = InputBox("Finaliza en columna No.", "Definir última columna")
ActiveChart.SeriesCollection(1).XValues = _
"='Planificación Mantención'!R4C" & MiValor1 & ":R4C" & MiValor2
[email protected]
Dim MiValor1 As Integer, MiValor2 As Integer
MiValor1 = InputBox("Iniciar en la columna No.", "Establecer Primer columna")
MiValor2 = InputBox("Finaliza en columna No.", "Definir última columna")
ActiveChart.SeriesCollection(1).XValues = _
"='Planificación Mantención'!R4C" & MiValor1 & ":R4C" & MiValor2
[email protected]
Estimado JC, Muchas gracias por la respuesta, me fusionó a la perfección la implementación propuesta.
Gracias.
Andrés Rovira
Gracias.
Andrés Rovira
