Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/02/2005, 11:14
Avatar de Mosiah
Mosiah
 
Fecha de Ingreso: mayo-2002
Ubicación: Vitoria - Madrid
Mensajes: 229
Antigüedad: 23 años
Puntos: 0
Si en la tabla excel siempre tienes 4 registros por hora únicamente tendrías que recorrer hasta encontrarte una celda vacía la columna eh ir sumando los valores de las columnas "Valores" y "Promedio".
El código sería algo así:

Sub macro1()
Dim valor
Dim promedio
Dim i
i = 1
Do While (Range("a" & i).Text <> "")
valor = 0
promedio = 0
For j = 0 To 3
valor = valor + Val(Range("b" & (i + j)).Text)
promedio = promedio + Val(Range("c" & (i + j)).Text)
Next
promedio = promedio / 4
Range("b" & (i + 3)).Select
ActiveCell.FormulaR1C1 = valor
Range("c" & (i + 3)).Select
ActiveCell.FormulaR1C1 = promedio

Range("A" & i).Select
Selection.EntireRow.Delete
Range("A" & i).Select
Selection.EntireRow.Delete
Range("A" & i).Select
Selection.EntireRow.Delete

i = i + 1

Loop

End Sub

Si no hay cuatro por cada hora sería cuestión de ir comparando los textos de la columna A.

;)