Grafico de tabla

martin,

Ya me preguntaba yo como ibas a distinguir 20 lineas con 95 puntos cada en
un grafico porque te habia entendido asi. Bueno dame unos 5 min y te
escribo otro codigo.

Saludos,
KL


"martin" wrote in message
news:

Gracias Kl por tu atencion,

En efecto, era el acento de la palabra grafico. Ahora funciona, pero no
solo se actualiza el grafico de los datos de la columna seleccionada; Se
actualiza el grafico 1, pero lo hace con todas las series en el mismo
chart, de modo que sale un lio de lineas. Yo lo que queria era tener una
pestaña-grafico para cada columna que se actualizase cada vez que
añadiera los datos de cada vendedor a la tabla cada dia, y tener un
grafico de cada vendedoralguna ayuda?

saludos y gracias otra vez,

martin

martin,

Lo primero a comprobar es el nombre del grafico: mira a ver si el tuyo
se llama "grafico1" y no "grafico1" o "grafico 1" o "grafico 1" ,
etc. Mejor, copia el nombre de la hoja del grafico al codigo. Entiendo
q tambien queda confirmado q el grafico es una hoja en si y no un
objeto dentro de una hoja de calculo, si no, este podria ser el
problema.

Saludos,
Kl

"martin" wrote in message
news:

Gracias KL, pero no funciona. Lo hago, y supongo que esta bien,
puesto que la hoja se llama hoja1 y el grafico, grafico1, pero doy
f11, tengo el grafico y al añadir datos del dia en la siguiente fila
sale:

Se ha producido el error 9 en tiempo de ejecucion

Subindice fuera del intervalo

Al depurar se para en:

Set Graf = .Charts("Grafico1")


¿cual es el problema'

Gracias otra vez

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hoja As Worksheet
Dim Rng As Range
Dim Graf As Chart

With ThisWorkbook
Set Hoja = .Worksheets("Hoja1")
Set Graf = .Charts("Grafico1")
Set Rng = Intersect(Hoja.UsedRange, Hoja.Range("A:U"))
End With

If Not Rng Is Nothing Then Graf.SetSourceData Source:=Rng
End Sub

martin,

A ver este. Supongo q no tienes mas graficos en el fichero q los 20 q
corresponden a los vendedores, si no, tendras q modificar el codigo
para excluir los q no deben actualizarse.

Saludos,
KL

'--Inicio Codigo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hoja As Worksheet
Dim Rng As Range
Dim nGrfs As Integer

With ThisWorkbook
Set Hoja = .Worksheets("Hoja1")
Set Rng = Intersect(Hoja.UsedRange, Hoja.Range("A:U"))
If Not Rng Is Nothing Then
If .Charts.Count <= Rng.Columns.Count - 1 Then
nGrfs = .Charts.Count
Else
nGrfs = Rng.Columns.Count - 1
End If
For i = 1 To nGrfs
With Charts(i).SeriesCollection(1)
.XValues = Rng.Columns(1)
.Values = Rng.Columns(1 + i)
.Name = Rng.Columns(1 + i).Cells(1, 1)
End With
Next i
End If
End With
End Sub
'--Fin Codigo


"KL" wrote in message
news:%

martin,

Ya me preguntaba yo como ibas a distinguir 20 lineas con 95 puntos
cada en un grafico porque te habia entendido asi. Bueno dame unos 5
min y te escribo otro codigo.

Saludos,
KL


"martin" wrote in message
news:

Gracias Kl por tu atencion,

En efecto, era el acento de la palabra grafico. Ahora funciona, pero
no solo se actualiza el grafico de los datos de la columna
seleccionada; Se actualiza el grafico 1, pero lo hace con todas las
series en el mismo chart, de modo que sale un lio de lineas. Yo lo
que queria era tener una pestaña-grafico para cada columna que se
actualizase cada vez que añadiera los datos de cada vendedor a la
tabla cada dia, y tener un grafico de cada vendedoralguna ayuda?

saludos y gracias otra vez,

martin

martin,

Lo primero a comprobar es el nombre del grafico: mira a ver si el
tuyo se llama "grafico1" y no "grafico1" o "grafico 1" o "grafico
1" , etc. Mejor, copia el nombre de la hoja del grafico al codigo.
Entiendo q tambien queda confirmado q el grafico es una hoja en si
y no un objeto dentro de una hoja de calculo, si no, este podria
ser el problema.

Saludos,
Kl

"martin" wrote in message
news:

Gracias KL, pero no funciona. Lo hago, y supongo que esta bien,
puesto que la hoja se llama hoja1 y el grafico, grafico1, pero doy
f11, tengo el grafico y al añadir datos del dia en la siguiente
fila sale:

Se ha producido el error 9 en tiempo de ejecucion

Subindice fuera del intervalo

Al depurar se para en:

Set Graf = .Charts("Grafico1")


¿cual es el problema'

Gracias otra vez

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hoja As Worksheet
Dim Rng As Range
Dim Graf As Chart

With ThisWorkbook
Set Hoja = .Worksheets("Hoja1")
Set Graf = .Charts("Grafico1")
Set Rng = Intersect(Hoja.UsedRange, Hoja.Range("A:U"))
End With

If Not Rng Is Nothing Then Graf.SetSourceData Source:=Rng
End Sub

Si amplio la lista de
vendedores, supongo que solo deberia modificar el rango ("A:U") hasta la
letra conveniente ¿no?,

"martin"...

Si amplio la lista de
vendedores, supongo que solo deberia modificar el rango ("A:U") hasta la
letra conveniente ¿no?,

Si. Y tambien crear mas graficos :-)

KL

Muchisimas gracias, KL. Abusando de tu amabilidad, voy a plantearte una
ultima duda: como los nombres estan en la primera fila, al moverme en la
hoja hacia abajo, los pierdo y al subir no veo los valores de la ultima
fila de abajo. Intente pegar la fila inicial hacia el centro-final de la
tabla para tener a la vista los nombres sin tener que subir al inicio,
pero
entonces el grafico me grafica esas celdas con los nombres con valor cero.
¿hay alguna forma de visualizar esa fila de nombres mas abajo sin que
interfiera en la generacion del grafico?, ¿una caja de texto tal vez?, de
nuevo gracias.


Saludos. Martin

"martin"...

Si amplio la lista de
vendedores, supongo que solo deberia modificar el rango ("A:U") hasta la
letra conveniente ¿no?,

Si. Y tambien crear mas graficos :-)

KL