hola:
Estoy trabajando con macros de excel y nec sacar promedio de datos que se encuntren en un determinado rango de hora. Los rango de Horas van cada media hora 5:30, 6:00, 6:30
los datos son los siguientes:
Código XML:
Ver original5:30:00 0,002916667
5:40:00 0,002916667
5:50:00 0,003055556
6:00:00 0,003055556
6:10:00 0,003032407
6:20:00 0,003310185
6:30:00 0,003310185
6:37:30 0,003391204
6:45:00 0,003391204
6:52:30 0,003599537
7:00:00 0,003599537
tengo el siguiente codigo:
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim p As Integer
Dim hora As Double
Dim hora1 As Double
Dim patito As Double
i = 4
x = 14
While Worksheets("Hoja4").Cells(i, 1) <> ""
hora1 = CDbl(Worksheets("Hoja4").Cells(i + 1, 1))
hora = CDbl(Worksheets("Hoja4").Cells(i, 1))
y = 0
patito = 0
While CDbl(Worksheets("Diferencias").Cells(x, 1)) < hora1
patito = patito + Worksheets("Diferencias").Cells(x, 2)
y = y + 1
x = x + 1
Wend
Worksheets("Hoja4").Cells(i, 2) = (patito / y)
i = i + 1
Wend
los resultados, de las dos primeras medias horas me dan correcto, pero el problema se me presenta en los siguientes rangos ya que el ciclo itera una vez más de lo que debiera.
Código .xls:
Ver originalHora promedio resultados que debiera ser
5:30:00 0,002962963 0,002962963
6:00:00 0,003132716 0,003132716
6:30:00 0,003458333 0,003423032
7:00:00 0,004100879 0,004000611
Como pueden observar el problema se me presenta de las 6:30 en adelante.
por favor ayudenme!!!!!