Valor record

Mediante código es fácil: Suponiendo que en a6 tienes el sumatorio y en c1
el record anterior

Sub Record()
Dim Sumatorio As Double
Dim Maxanterior As Double

Sumatorio = Range("A6").Value
Maxanterior = Range("c1").Value
If Sumatorio > Maxanterior Then
Range("c1").Value = Sumatorio
End If

End Sub



"Edipo" escribió en el mensaje
news:
Mostrar la cita

Es una duda muy pequeña-

Tengo una serie de celdas y al final el sumatorio de ellas. Esta suma
quiero
que mantenga como maximo ó record hasta la proxima vez que actualice
datos.

Es decir quiero que se compare en valor de la suma con el record de esta
suma y si es mayor que cambio el valor de la celda con el máximo ó record.

Alguna sugerencia

en el evento open del libro.

Private Sub Workbook_Open()
call record
End Sub

Saludos!

"luis" escribió en el mensaje
news:
Mostrar la cita

Mediante código es fácil: Suponiendo que en a6 tienes el sumatorio y en c1
el record anterior

Sub Record()
Dim Sumatorio As Double
Dim Maxanterior As Double

Sumatorio = Range("A6").Value
Maxanterior = Range("c1").Value
If Sumatorio > Maxanterior Then
Range("c1").Value = Sumatorio
End If

End Sub



"Edipo" escribió en el mensaje
news:
> Es una duda muy pequeña-
>
> Tengo una serie de celdas y al final el sumatorio de ellas. Esta suma
> quiero
> que mantenga como maximo ó record hasta la proxima vez que actualice
> datos.
>
> Es decir quiero que se compare en valor de la suma con el record de esta
> suma y si es mayor que cambio el valor de la celda con el máximo ó

record.
Mostrar la cita

>
> Alguna sugerencia

Perfecto la macro funciona.

Otra cosilla... ¿como puedo hacer para que se ejecute automáticamente al
abrir esta hoja de cálculo? Es decir, quiero que siempre esté activa ya que
si se te olvida ejecutarla manualmente ya no me vale.

Gracias de antemano

"luis" escribió:

Mostrar la cita

Mediante código es fácil: Suponiendo que en a6 tienes el sumatorio y en c1
el record anterior

Sub Record()
Dim Sumatorio As Double
Dim Maxanterior As Double

Sumatorio = Range("A6").Value
Maxanterior = Range("c1").Value
If Sumatorio > Maxanterior Then
Range("c1").Value = Sumatorio
End If

End Sub



"Edipo" escribió en el mensaje
news:
> Es una duda muy pequeña-
>
> Tengo una serie de celdas y al final el sumatorio de ellas. Esta suma
> quiero
> que mantenga como maximo ó record hasta la proxima vez que actualice
> datos.
>
> Es decir quiero que se compare en valor de la suma con el record de esta
> suma y si es mayor que cambio el valor de la celda con el máximo ó record.
>
> Alguna sugerencia