| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If cell value equals today
I have used a 3 conditional formats for other things. With vba, I would like
to have a cell fill be red and the font black if the cell equals a date in cell K7. The range of cells for this possible format is D12:J81 I found some code on the net and tried to modify it to get it to do what I want ...I made into a disaster. Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("D12:J81") If Application.Cells = Today() Then ..Interior.ColorIndex = 3 Else ..Interior.ColorIndex = 0 End If End With End Sub Thanks for any help ADK |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Populate Cell with another cell, but only if the date equals today | Excel Worksheet Functions | |||
| how do I do this: today minus hire date equals how many years mo. | Excel Worksheet Functions | |||
| If a cell equals _, at the next row that equals _, return value fr | Excel Worksheet Functions | |||
| IF TODAY equals date in cell A10, or if TODAY is beyond that date | Excel Worksheet Functions | |||
| If cell is left blank, or equals zero, then cell equals a different cell | Excel Discussion (Misc queries) | |||
Threaded Mode
