Excel - como hacer un grafico sin seleccionar los rangos (que obedezca dos fechas)

 
Vista:
Imágen de perfil de SIDIEVORA
Val: 24
Ha disminuido su posición en 4 puestos en Excel (en relación al último mes)
Gráfica de Excel

como hacer un grafico sin seleccionar los rangos (que obedezca dos fechas)

Publicado por SIDIEVORA (14 intervenciones) el 26/08/2018 21:16:14
hola amigos
saludos desde Sinaloa mexico
quisiera un sencillo pero importante ejemplo de parte de uds..
de como hacer un gráfico sin tener que seleccionar yo los datos.

ojo que NO SEA A TRAVES DE GRAFICOS DINAMICOS..
es decir que el usuario solo capture la fecha de inicio y termino del gráfico, es decir el rango
esto es ejemplo:

rango de datos

A B C
1 dia ingresos
2 01-ene 1,613
3 02-ene 1,200
4 03-ene 1,400
5 04-ene 4,500
6 05-ene 1,000
7 06-ene 3,200
8 807-ene 1,760

ejemplo:
SOLO ESTO DEBE PEDIR..

fecha de inicio : 2-enero
fecha de termino : 6 de enero

¿qué ocupo?
solo que me grafique del periodo del 2 al 6 de enero los ingresos que aparecen en el rango

agradeceré su valiosa ayuda..
muchas gracias
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
Imágen de perfil de Antoni Masana
Val: 4.144
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como hacer un grafico sin seleccionar los rangos (que obedezca dos fechas)

Publicado por Antoni Masana (1459 intervenciones) el 27/08/2018 09:02:44
La Macro podría ser algo así. Falta validar que las fechas sean correcta y alguna cosa más

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Sub Macro1()
    Dim Desde As Date, Ini As Long, LIN As Long, _
        Hasta As Date, Fin As Long
 
    ' ---&--- Busca la primera y ultima fecha
    LIN = 2: Desde = Cells(LIN, "a")
    While Cells(LIN, "A") <> ""
        Hasta = Cells(LIN, "A")
        LIN = LIN + 1
    Wend
 
    ' ---&--- Solicita el rango ded fechas
    Desde = InputBox("Desde la Fecha:", "DESDE FECHA", Desde)
    Hasta = InputBox("Hasta la Fecha:", "HASTA FECHA", Hasta)
 
    ' ---&--- Busca la línea de inicio y fin del rango
    Ini = 0
    Fin = 0
    LIN = 2
    While Cells(LIN, "A")
       If Ini = 0 Then If Cells(LIN, "A") >= Desde Then Ini = LIN
       If Cells(LIN, "A") <= Hasta Then Fin = LIN
        LIN = LIN + 1
    Wend
 
    ' ---&--- Presenta el gráfico
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("Hoja1!$A$" & Ini & ":$B$" & Fin)
    End Sub

No me funciona la opción de crear el gráfico con la macro. En esta pagina explica pero tampoco me funciona.

Mira en esta página:

https://excelyvba.com/modificar-graficos-vba/

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Antoni Masana
Val: 4.144
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como hacer un grafico sin seleccionar los rangos (que obedezca dos fechas)

Publicado por Antoni Masana (1459 intervenciones) el 28/08/2018 11:24:23
Te añado un ejemplo.

Puedes crear un gráfico configurarlo y mostrarlo después de hacer la selección de fechas y ocultarlo cuando no lo necesites, pero no borrarlo.
Puedes poner botones para las macros.

Saludos.
\\//_
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