Visual Basic para Aplicaciones - problemas en visual + excel

Life is soft - evento anual de software empresarial
   
Vista:

problemas en visual + excel

Publicado por Claudio (1 intervención) el 04/03/2008 02:16:55
hola amigos, estoy comenzando a utilizar visual basic junto con excel, y tengo un problema que no se como arreglar.

manejo unos datos en excel, y quiero hacerles un estudio para obtener unos datos, y hacer un grafico, me resulta bien lo del grafico, mi problema es que quiero optimizar el programa.

me explico, para colocar una nueva serie dentro de grafico hago lo siguiente

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!R2C2:R20C2 'seteo la serie

el problema es que son como 30 series, o sea que tengo algo asi:

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!R2C2:R20C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(3).values=Hoja!R21C2:R39C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(4).values=Hoja!R40C2:R57C2 'seteo la serie

activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(5).values=Hoja!R58C2:R76C2 'seteo la serie

lo que quiero hacer es meter el codigo dentro de un loop pero no se como dejar variable los R para que me vaya tomando los mismos valores.

que quede algo asi

for
activechart.seriescollection.newseries ' agrego una serie
activechart.seriescollection(2).values=Hoja!RnC2:Rn+18C2 'seteo la serie
n=n+18
end for

si alguien sabe como puedo hacer eso estaria muy agradecido, capaz que la respuesta sea muy facil, pues aun me faltan muchas cosas por aprender

se agradece cualquier aporte

atte

claudio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas en visual + excel

Publicado por JuanC (243 intervenciones) el 04/03/2008 12:54:46
probá con algo así:

Dim x&, y&, i%
x = 2
y = 20
For i = 1 To 30
ActiveChart.SeriesCollection.NewSeries ' agrego una serie
ActiveChart.SeriesCollection(2).Values = Range("Hoja!R" & x & "C2:R" & y & "C2")
x = x + 18
y = y + 18
Next

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar