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
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
0