grafica

22/09/2006 - 18:45 por Johann Romero | Informe spam
Sub grafica()
Range("M10").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Simulador").Range("M10:M50")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Simulador"
End Sub

****

Como hago para que en el RANGO que dice M10 a M50, pues sea lo que dice en
las primeras lineas, que abarque hasta el final de la seleccion?,
Selection.End

Gracias

Preguntas similare

Leer las respuestas

#1 Abraham
22/09/2006 - 21:33 | Informe spam
Creo que entendi tu pregunta, mira aqui:

http://lawebdelprogramador.com/news...new.php?id7&texto=Excel&n190648&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Abraham
Respuesta Responder a este mensaje
#2 Gabriel Raigosa
30/09/2006 - 18:26 | Informe spam
Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Johann Romero" escribió en el mensaje
news:
| Sub grafica()
| Range("M10").Select
| Range(Selection, Selection.End(xlDown)).Select
| Charts.Add
| ActiveChart.ChartType = xlLine
| ActiveChart.SetSourceData Source:=Sheets("Simulador").Range("M10:M50")
| ActiveChart.Location Where:=xlLocationAsObject, Name:="Simulador"
| End Sub
|
| ****
|
| Como hago para que en el RANGO que dice M10 a M50, pues sea lo que dice en
| las primeras lineas, que abarque hasta el final de la seleccion?,
| Selection.End
|
| Gracias
|
|
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida