Problema con Gráfico

No sé conozco bien si existe una forma de definir un gráfico de forma tal
que el rango de celdas de la fuente de datos sea dinámico respecto al valor
de estos.

Una forma es ir redefiniendo a través de una macro la fuente de datos el
gráfico.

Por ejemplo, si el nombre del gráfico es "Chart 1" puedes redefinir el rango
de celdas del gráfico, a partir de la celda E4 hasta la ultima celda son
valor distinto de 0 hacia abajo.

Sub RedefineFuenteDatosDelGrafico()
Dim i As Integer
For i = 0 To 30
If Range("E4").Offset(i, 0).Value = 0 Then Exit For
Next i
if i>0 then i=i-1

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Range("E4", Range("E4").Offset(i, 0))
End Sub

Además puedes agregarle mayor inteligencia capturando el evento de cambio de
valor de celdas dentro del rango. Es decir, que se ejecute el código
anterior si es que dentro del rango E4 a E34 alguna celda cambia su valor.

Esto lo puede hacer agregando la siguiente función en el código asociado a
"ThisWorkBook"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 And Target.Row >= 4 And Target.Row <= 34 Then
Call RedefineFuenteDatosDelGrafico
End If
End Sub

Espero te ayude.

Saludos,

Marco Escobar.


"Compumakro" wrote in message
news:

Amigos
Tengo un rango: columna E4:E34 la cual tiene formula de resultado de suma.
Rango A4:A20 =>Fecha.
Como tengo datos hasta el día 14 y el gráfico abarca 30 días, entonces el
día 15 el gráfico se "va al suelo" porque el 15 al no tener datos es cero.
¿Cómo hago para que el gráfico se vaya formando solo con las celdas que

son

mayor que 1, e ignore el cero? y solo hasta el día que tiene datos?.
Gracias a todos
Oscar
Barranquilla