Fecha si se cumple una condicion

La verdad no entiendo mucho pero si quieres que en una celda te coloque la
fecha actual prueba con la funcion hoy(), cualquier cosa me avisas, un
saludo.


Rodrigo Barrere Brezina

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

Tengo esta macro en mi hoja excel:

Option Explicit

Private Sub Worksheet_Calculate()
If Me.Range("e17").Value > Me.Range("j8").Value Then
Me.Range("j8").Value = Me.Range("e17").Value
End If
End Sub

pero quiero que salga la fecha del dia actual en la celda H8 cuando se
cumpla que E17 es mayor que J8Es decir que mantenga la fecha del

record
Mostrar la cita

actual...
No sé si me he explicado bien. Muchas gracias a todos de antemano. Toni.-

Hola Edipo,

?Que tal lo siguiente?

Private Sub Worksheet_Calculate()
If Range("e17") > Range("j8") Then
Range("j8") = Range("e17")
Range("H8") = Date
End If
End Sub

No es necesario usar Me ya que dentro del modulo de hoja si la hoja no se
especifica sera Me por defecto. Lo mismo ocurre con la propiedad Value del
objeto Rango - si no se especifica sera Value por defecto. Si quieres
acortar el codigo aun mas podrias usar lo siguiente, pero si hay mucho
codigo y muchas referencias ten presente que esta forma de representar los
rangos relentiza el codigo en comparacion con la anterior.:

Private Sub Worksheet_Calculate()
If [e17] > [j8] Then
[j8] = [e17]
[H8] = Date
End If
End Sub


Regards,
KL


"Edipo" wrote in message
news:
Mostrar la cita

Tengo esta macro en mi hoja excel:

Option Explicit

Private Sub Worksheet_Calculate()
If Me.Range("e17").Value > Me.Range("j8").Value Then
Me.Range("j8").Value = Me.Range("e17").Value
End If
End Sub

pero quiero que salga la fecha del dia actual en la celda H8 cuando se
cumpla que E17 es mayor que J8Es decir que mantenga la fecha del
record
actual...
No se si me he explicado bien. Muchas gracias a todos de antemano. Toni.-