[Terry Pinnell[_4_]]

In Excel 2000 I read "For Conditional Formatting you can set Font
Style, Underline, Color, and Strikethrough." Is there any way to
adjust Row Height please?

For example, Col B contains dates sorted in descending order. The top
one for example was entered as '30/10/16' and formatted in Excel 2000
as

All row heights are currently 12.75. I would like dates later than
today's date to be 16.0 in height. So in this example (as at today,
8th April), the top five would be distinctly higher than the bottom
three. I'd prefer that to changing colour, or style, but only if it's
simple to implement!

2016 20161030 Return from Spain
2016 20161025 To St Feliu
2016 20160605 Sun 5 Jun EGWAS Walk
2016 20160526 26 May J to Iceland, 1 week
2016 20160415 Fri 18 Mar Brian, Jean, Joy, Tony
2016 20160407 Thu 7th Apr Return
2016 20160401 Fri 1st Apr Marseilles
2016 20160328 Fri 28th Good Friday

--
Terry, East Grinstead, UK

[Claus Busch]

Hi Terry,

Am Fri, 08 Apr 2016 18:04:12 +0100 schrieb Terry Pinnell:

In Excel 2000 I read "For Conditional Formatting you can set Font
Style, Underline, Color, and Strikethrough." Is there any way to
adjust Row Height please?

this is not possoble with a formula or CF.
You need VBA.


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

[Claus Busch]

Hi Terry,

Am Fri, 8 Apr 2016 19:10:11 +0200 schrieb Claus Busch:

this is not possoble with a formula or CF.
You need VBA.

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

Then in a standard module:

Sub RowH()
Range("B:B").Interior.ColorIndex = xlNone
With Range("Dates")
.EntireRow.RowHeight = 16
.Interior.ColorIndex = 6
End With
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

[Claus Busch]

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.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

[Terry Pinnell[_4_]]

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.

--
Terry, East Grinstead, UK

[Terry Pinnell[_4_]]

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