Valores en serie de datos

09/09/2004 - 23:12 por Alex | Informe spam
Tengo la siguiente formula :

ActiveChart.SeriesCollection(2).Values = "=Produccion!
R12C16:R12C20"

Quiero que los numeros de los renglones y columnas
poderlos manejar a traves de variables

Se que es facil pero lo he intentado sin exito

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
10/09/2004 - 08:51 | Informe spam
hola, Alex !

ActiveChart.SeriesCollection(2).Values = "=Produccion!R12C16:R12C20"
Quiero que los numeros de los renglones y columnas poderlos manejar a traves de variables



si te refieres a modificar via macros tanto valores de la serie como titulo/leyenda...
tienes que 'incluir' [pero... 'separados'] ambos datos [p.e.]...
With ActiveChart.SeriesCollection(2)
.Name = "=Produccion!r12c16"
.Values = "=Produccion!r12c17:r12c20"
End With
o...
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range("q12:t12"
End With

saludos,
hector.
Respuesta Responder a este mensaje
#2 Alex
10/09/2004 - 22:52 | Informe spam
Mi pregunta mas bien es referente a que no se como
asociar un rango a valores. Algo asi como :

With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range(Cells(12,
16), Cells(12, 20))
End With

Me marca el error 1004 en el metodo Cells de objeto
_Global

Alguna idea?

hola, Alex !

ActiveChart.SeriesCollection(2).Values = "=Produccion!




R12C16:R12C20"
Quiero que los numeros de los renglones y columnas




poderlos manejar a traves de variables

si te refieres a modificar via macros tanto valores de


la serie como titulo/leyenda...
tienes que 'incluir' [pero... 'separados'] ambos datos


[p.e.]...
With ActiveChart.SeriesCollection(2)
.Name = "=Produccion!r12c16"
.Values = "=Produccion!r12c17:r12c20"
End With
o...
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range("q12:t12"
End With

saludos,
hector.
.

Respuesta Responder a este mensaje
#3 Héctor Miguel
10/09/2004 - 23:45 | Informe spam
hola, Alex !

... mas bien ... no se como asociar un rango a valores. Algo asi como :
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range(Cells(12, 16), Cells(12, 20))
End With
Me marca el error 1004 en el metodo Cells de objeto _Global [...]



aunque un objeto 'Cells' es [tambien] un objeto 'Range' [en este 'preciso' caso'...]
NO le 'estas diciendo' al grafico 'de que hoja' debe 'tomar' el objeto_rango 'Cells' :-((
=> usar [simplemente] 'Cells' ->supone<- que la hoja 'activa' ES una hoja de calculo <sera necesario 'emparentar' los objetos 'Cells' con su 'correspondiente' objeto 'Worksheet' ;)
[lo que hara que el codigo sea 'ligeramente' mas largo] :-(( [p.e.]
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range(Worksheets("Produccion").Cells(12, 16), Worksheets("Produccion").Cells(12, 20))
End With

=> solo 'toma en cuenta' el el rango "P12" [que se supone es el 'titulo' -eje X- para la serie]
->equivale<- al objeto 'Cells(12, 16)' [que le estamos diciendo que es 'parte de los valores'] [???]

saludos,
hector.
Respuesta Responder a este mensaje
#4 Alex H
11/09/2004 - 01:01 | Informe spam
Muy bien !!

Muchas gracias, tu ayuda me ha sido muy util



hola, Alex !

... mas bien ... no se como asociar un rango a




valores. Algo asi como :
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range(Cells




(12, 16), Cells(12, 20))
End With
Me marca el error 1004 en el metodo Cells de objeto




_Global [...]

aunque un objeto 'Cells' es [tambien] un objeto 'Range'


[en este 'preciso' caso'...]
NO le 'estas diciendo' al grafico 'de que hoja'


debe 'tomar' el objeto_rango 'Cells' :-((
=> usar [simplemente] 'Cells' ->supone<- que la


hoja 'activa' ES una hoja de calculo <>sera necesario 'emparentar' los objetos 'Cells' con
su 'correspondiente' objeto 'Worksheet' ;)
[lo que hara que el codigo sea 'ligeramente' mas


largo] :-(( [p.e.]
With ActiveChart.SeriesCollection(2)
.Name = Worksheets("Produccion").Range("p12")
.Values = Worksheets("Produccion").Range(Worksheets


("Produccion").Cells(12, 16), Worksheets
("Produccion").Cells(12, 20))
End With

=> solo 'toma en cuenta' el el rango "P12" [que se


supone es el 'titulo' -eje X- para la serie]
->equivale<- al objeto 'Cells(12, 16)' [que le


estamos diciendo que es 'parte de los valores'] [???]

saludos,
hector.
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida