Foro Excel

Adjunto archivo donde explico

Hola suso

Revisa el adjunto, funciona con una macro al abrirse el libro.
La primera parte de la macro es para evitar el bucle final si no hay ninguna fecha coincidente con el dí­a que se abre el libro.

Supongo que habrá que pulirlo. Tú dirás.

Un saludo desde Vitoria

El infatigable e incombustible Ioyama, siempre ayudando.
He dadolos pasos que me indicabas, pero com pequeño trnco que soy, no no he podido llera a cabo. Adjunto el archivo con el que he empezado a trabajar.

Saludos suso.

Aquí­ tu archivo pero sólo con "formato condicional",... obviamente nada comparado al gran trabajo del amigo ioyama... a ver si te puede servir.

Suerte.

Hola suso (tooper666)

Definitivamente ayer debí­a estar muy empanado.
La solución de tooper666 (mi idea inicial iba por ahí­, pero estaba preparando unas macros y ....) es suficiente para lo que necesitas suso, lo mí­o han sido ganas de complicarse la vida. No obstante te adjunto la macro modificada

Sub Vencimiento()
uf = Range("C65536").End(xlUp).Row
For i = 8 To uf
If Cells(i, 3) = Date Or Cells(i, 3) < Date Then
If Range("A" & i) <> "" Then Range("A" & i & ":D" & i).Interior.ColorIndex = 44
Range("total") = Range("total") - Cells(i, 4)
End If
Next i
Range("total").Select
End Sub

Así­ que gracias por los cumplidos, pero ... inmerecidos.

Un saludo desde Vitoria

Definitivamente es como yo querí­a. Funciona estupendamente.
Si yo supiese hacer lo que Uds. han hecho, no molestarí­a a nadie.
Ioyama: No digas que inmerecidamente, ya que cuando voy a este portal, veo tus grandes aportes a muchas personas.
Tooper666 : Gracias por éste trabajo que me has hecho.
Tambien gracias a todas las personas que aun no habiendo aportado a esto que solicitaba, lo hacen con el mayor cariño y ayuda a otras personas que piden socorro.
Un saludo a todos.