Hola a ambos,
@RandalHP , por si es de tu interés, te paso un archivo donde con una sencilla fórmula puedes obtener, partiendo de fecha inicial y fecha final a voluntad, el total de cada uno de los 'CeBe'.
Ambas fechas habría que introducirlas en J6 y K6.
El modelo es fácilmente aplicable/ampliable a rangos de mayor amplitud, sea en datos (filas) o fechas (columnas).
Saludos,
DATA (B).xlsx
Por
Victor7, · publicado
Código Hoja: Dinámico (donde está la gráfica)
Option Explicit
Private Sub ScrollBar1_Change()
ScrollBar1.Max = Range("chrtMaxScrollBar")
'para definir el valor máximo de la barra de desplazamiento. Para hacerlo programamos elevento ScrollBar1_Change()
End Sub
Código Módulo 1
Option Explicit
Sub animate_Chart()
Dim iX As Integer, Delay As Single, Start As Single
'fijar valores del eje Y del grafico
Call fix_Y_Values
Range("chrtCounter") = 0
For iX = 0 To Range("chrtMaxScrollBar")
Range("chrtCounter") = Range("chrtCounter") + 1
Delay = 0.1
Start = Timer
Do While Timer < Start + Delay
DoEvents
Loop
Next iX
End Sub
Sub backTo0()
Range("chrtCounter") = 0
End Sub
Private Sub fix_Y_Values()
ActiveSheet.ChartObjects("chrtUSDBRL").Activate
With ActiveChart
.Axes(xlValue).MinimumScale = Range("chrtXmin")
.Axes(xlValue).MaximumScale = Range("chrtXmax")
End With
Range("A1").Select
End Sub
Gráfico Animado con ScrollBar.rar