IF based on date

[Guest]

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("Campaign 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?

 

[MattShoreson]

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 visibl
= false