Excel - msgbox

   
Vista:

msgbox

Publicado por juan pablo prado (2 intervenciones) el 25/03/2011 17:22:13
hola amigos
Necesito hacer una msgbox que realice las siguientes funciones cuando el archivo se abra:

que busque en la columna de fecha ("a") todas las que coincidan con la fecha de hoy ("=hoy()" o "date"). una vez que la seleccione las celdas, les cambia a color rojo y envié mensaje "fecha caducada".
esto es lo que tengo.

Sub Workbook_Open()


If Range("e1").Select = Columns("A:A").Select Then
ActiveCell.Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
MsgBox "fechas caducadas"
End With
End If
End Sub


se agradecerá sus comentarios
saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder