Terry Pinnell wrote:
Claus Busch wrote:
Hi again,
Am Fri, 8 Apr 2016 21:57:24 +0200 schrieb Claus Busch:
Formulas = Name Manager = New
Name: Dates
Refers To:
=OFFSET($B$1,,,MATCH(--(YEAR(TODAY())&TEXT(MONTH(TODAY()),"00")&TEXT(DAY( TODAY()),"00")),$B:$B,-1))
if you want to color the 3 columns change the Refers To to:
=OFFSET($A$1,,,MATCH(--(YEAR(TODAY())&TEXT(MONTH(TODAY()),"00")&TEXT(DAY( TODAY()),"00")),$B:$B,-1),3)
and the macro to:
Sub RowH()
Range("A:C").Interior.ColorIndex = xlNone
With Range("Dates")
.EntireRow.RowHeight = 16
.Interior.ColorIndex = 6
End With
End Sub
Regards
Claus B.
Thanks very much Claus.
I forgot to add: Can you advise how I modify it to deal with this
slightly different scenario please. It's now the FIRST two that
indicate a redundant cell, not the last.
https://dl.dropboxusercontent.com/u/...omeCells-2.jpg
--
Terry, East Grinstead, UK