IF based on date
 

I have a macro which is fine. But part of it has to be done manually.

e.g. when the new financial year begins..(01st April of each year)

a new field needs to be addded ( in this case I added manually 2005)

With ActiveSheet.Pivottables("a1").PivotFields("Campaig n year")
..Orientation = xlPageField
..Position = 1
..PivotItems("2005").Visible = False
..PivotItems("2004").Visible = False
..PivotItems("pre 2004").Visible = False
End With

Is it possible to write a if statement where it checks for date and hide the
pivotitems accordingly?

IF based on date
 

evaluate the year you need...

Create a string variable to hold the year.
Then format the date to a year and place in the variable.

strYear = year(date)

then cycle thru the pivotitems and if not equal to stryear then visible
= false.


--
MattShoreson
------------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...fo&userid=3472
View this thread: http://www.excelforum.com/showthread...hreadid=538844