
16/02/2005, 11:14
|
 | | | 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.
;) |