How can I get a message indicating which cells - if date in existing
cells(ie date already input) = today's date
Can anybody help pls

I'd use conditional formatting to do this, but it will change the format of
the cell, it can't make it blink.

Assuming you have selected cell C7, use

FORMAT - CONDITIONAL FORMATTING - FORMULA IS
=C7=TODAY()

And set your format for the cell.

"al007" wrote in message
oups.com...
How can I get a message indicating which cells - if date in existing
cells(ie date already input) = today's date
Can anybody help pls

Hi AL007,

Try using conditional formatting with the condition:

Formula is: =A1=Today()

where A1 is the first cell of interest.

---
Regards,
Norman



"al007" wrote in message
oups.com...
How can I get a message indicating which cells - if date in existing
cells(ie date already input) = today's date
Can anybody help pls

Hi,

I do not know how could you blink the cell but you may create a BEEP
sound if condition is matched. Code is as follows:

Sub Match_Criteria()
If (CONDITION) Then
BEEP
End If
End Sub


--
gajendra_vba
------------------------------------------------------------------------
gajendra_vba's Profile: http://www.excelforum.com/member.php...o&userid=29935
View this thread: http://www.excelforum.com/showthread...hreadid=496602

The following sub uses a named range, DateArea, and checks each cell in that
range for a value equal to the current date. If a match is found the
interior of the cell is colored red, and if it isn't a match the interior
color is set to none.

This would remove any previously highlighted cell coloring and just color
the ones with the current date.

The named range would encompass the entire worksheet area that you want to
check for dates.

Hope this helps

Sub ColorMeToday()

Dim rng As Range
Dim l As Long
Dim lCounter As Long

Set rng = Range("DateArea")

rng.Range("A1").Select
l = Range("DateArea").Cells.Count
For lCounter = 1 To l
If Range("DateArea").Cells(lCounter) = Date Then
Range("DateArea").Cells(lCounter).Interior. _
Color = vbRed
Else
Range("DateArea").Cells(lCounter).Interior. _
ColorIndex = xlNone
End If
Next lCounter

Set rng = Nothing
Exit Sub

End Sub

--
Kevin Backmann


"al007" wrote:

How can I get a message indicating which cells - if date in existing
cells(ie date already input) = today's date
Can anybody help pls