Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Gráficar datos diferentes a cero

165 views
Skip to first unread message

R.Garcia

unread,
Jan 15, 2008, 2:09:01 PM1/15/08
to
Hola,

tengo una tabla del estilo

Dato valor
A 7
B 0
C 2
D 0
E 0
F 9

pero quiero una gráfica que dinámicamente represente el gráficar la
siguiente tabla, es decir, no quiero que gráfique los datos que tienen valor
cero.

Dato valor
A 7
C 2
F 9

todo ello automáticamente y sin utilizar macros puras formulas.

Gracias por su ayuda.

R.Garcia

unread,
Jan 15, 2008, 6:36:00 PM1/15/08
to
ok, Reolví solo una parte con la siguiente formula matricial colocalda en el
rango G1:G9

=SI(ESERROR(INDICE(A:B,K.ESIMO.MENOR(SI(B1:B9,FILA(B1:B9)),FILA()),COLUMNA()-6)),"",INDICE(A:B,K.ESIMO.MENOR(SI(B1:B9,FILA(B1:B9)),FILA()),COLUMNA()-6))

ahora, ¿cómo le hago para dinámicamente se seleccione el rango a gráficar,
es decir que si cambia las dimensiones de la tabla los valores de la serie
cambien también, sin utilizar macros.

Héctor Miguel

unread,
Jan 17, 2008, 2:18:24 AM1/17/08
to
hola, R.Garcia !

prueba usando autofiltros (fltras por no ceros o mayores que cero)
y en las opciones del grafico establece que solo muestre las celdas visibles ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __


> tengo una tabla del estilo
> Dato valor
> A 7
> B 0
> C 2
> D 0
> E 0
> F 9

> pero quiero una grafica que dinamicamente represente el graficar la siguiente tabla, es decir
> no quiero que grafique los datos que tienen valor cero.


> Dato valor
> A 7
> C 2
> F 9

> todo ello automaticamente y sin utilizar macros puras formulas.


R.Garcia

unread,
Jan 17, 2008, 9:48:03 AM1/17/08
to
ok, esto fue la segunda parte lo resolví de la siguiente manera:

dinámicamente calculo el rango a gráficar con las funciones direccion() y
contar() y lo coloco en la celda "i1" ej: i1=$g$1:$g$6 (el rango es dinámico
es decir cambia dependiendo del rango a gráficar.)

y posteriormente le asigno ese rango al gráfico con la siguiente función.


Private Sub Worksheet_Activate()
RangoG1 = Hoja5.Range("az1").Value

ThisWorkbook.Sheets(1).ChartObjects("Chart 1").Chart.SetSourceData _
Source:=Sheets(1).Range(RangoG1), PlotBy:=xlColumns
End Sub

Chin.. finalmente como quiera tuve que utilizar VBA, no logré asignarle el
rango a la gráfica sin utilizar VBA o macros.

0 new messages