VALOR DE SERIE

Hola, Orfao.

Un gráfico no te acepta indirecto() como función, pues convierte la
dirección a un rango constante. Podrías intentar hacer algo por código.


Primero, averigua cómo se llama tu gráfico.

En la barra de herramientas Dibujo, haz clic en el botón "Seleccionar
Objetos". Luego haces clic en cualquier parte de tu gráfico, y anotas el
nombre que aparece en la Barra de Fórmulas (cuidado con los espacios y las
tildes). Luego pulsas ESC para liberar la selección de objetos. Supongamos
que tu gráfico se llama "Gráfico 1".


Segundo, prueba el siguiente código:

Sub RangoGraf()
Dim Pa, Lc As String
'Pa = ActiveCell.Address
Lc = "d4:" & Range("A1").Value
Worksheets("Hoja1").ChartObjects("Gráfico 1").Select
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Lc)
'Range(Pa).Select
End Sub

Lo podrías asignar a un botón, o llamarlo desde el evento "Worksheet_Change"
de la Hoja1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
RangoGraf
End If
End Sub


Observa que el primer código tiene dos líneas marcadas con apóstrofe. Cada
vez que lo ejecutes, quedará seleccionado el gráfico. Si esto te es molesto,
quita los apóstrofes. Esto hará que la selección vuelva a la celda activa.

Comentas los resultados.

Saludos.



"Orfao" escribió:

Hola a todos...
En un grafico Cliqueo con el boton derecho y selecciono
Datos de origen. Serie
para la primera serie asigno Valores='CURVA DE AVANCE'!$C$48:$O$48
como puedo referenciar el valor dependiendo del valor de una celda ?
algo asi como...
=+"'CURVA DE AVANCE'!$C$48:" & +indirecto(a1)
donde a1= $O$48
...Preferiria si es posible no utilizar el evento SelectionChange ni macros
solo asignarlo directamente en el cuadro de dialogo... ES POSIBLE?..COMO???
Gracias de antemano...
Me alimento del conocimiento de todos

La consulta está duplicada, y no había visto la respuesta de Héctor en el
otro post.

Yo tengo el hábito de tratar de resolver todo con código, y en ocasiones no
es conveniente. Revisa ambas respuestas, pero ten presente que la de Héctor
evitará utilizar código, así que tal vez te sea más conveniente...

Saludos a ambos.



"David" escribió:

Hola, Orfao.

Un gráfico no te acepta indirecto() como función, pues convierte la
dirección a un rango constante. Podrías intentar hacer algo por código.


Primero, averigua cómo se llama tu gráfico.

En la barra de herramientas Dibujo, haz clic en el botón "Seleccionar
Objetos". Luego haces clic en cualquier parte de tu gráfico, y anotas el
nombre que aparece en la Barra de Fórmulas (cuidado con los espacios y las
tildes). Luego pulsas ESC para liberar la selección de objetos. Supongamos
que tu gráfico se llama "Gráfico 1".


Segundo, prueba el siguiente código:

Sub RangoGraf()
Dim Pa, Lc As String
'Pa = ActiveCell.Address
Lc = "d4:" & Range("A1").Value
Worksheets("Hoja1").ChartObjects("Gráfico 1").Select
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Lc)
'Range(Pa).Select
End Sub

Lo podrías asignar a un botón, o llamarlo desde el evento "Worksheet_Change"
de la Hoja1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
RangoGraf
End If
End Sub


Observa que el primer código tiene dos líneas marcadas con apóstrofe. Cada
vez que lo ejecutes, quedará seleccionado el gráfico. Si esto te es molesto,
quita los apóstrofes. Esto hará que la selección vuelva a la celda activa.

Comentas los resultados.

Saludos.



"Orfao" escribió:

> Hola a todos...
> En un grafico Cliqueo con el boton derecho y selecciono
> Datos de origen. Serie
> para la primera serie asigno Valores='CURVA DE AVANCE'!$C$48:$O$48
> como puedo referenciar el valor dependiendo del valor de una celda ?
> algo asi como...
> =+"'CURVA DE AVANCE'!$C$48:" & +indirecto(a1)
> donde a1= $O$48
> ...Preferiria si es posible no utilizar el evento SelectionChange ni macros
> solo asignarlo directamente en el cuadro de dialogo... ES POSIBLE?..COMO???
> Gracias de antemano...
> Me alimento del conocimiento de todos