Трабла с скрытием строк в сводной.

[winfacks]

Есть файлик , например такой как в вложении.
В нем текст программы на кнопку:
Если дата в столбце дат сводной больше чем в ячейке К2 то скрыть
Private Sub CommandButton1_Click()
Set pvttbl = ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà1")
pvttbl.RefreshTable

For x = 1 To pvttbl.PivotFields("1").PivotItems. Count
If DateDiff("d", Data, DateValue(pvttbl.PivotFields("1").P ivotItems(x))) _
> DateDiff("d", Data, DateValue(Range("k2"))) Then
pvttbl.PivotFields("1").PivotItems( x).Visible = False
Else
End If
x = x + 1
Next

End Sub

Трабл в том что скрывает при всей вроде как логичности написаного, все что душе угодно - но только не то что надо
Может кто поможет свежим взглядом? - а то я чейто тупить начинаю.

[winfacks]

Товарисчи многоуважаемые форумчане!!!
Ну может кто то таки расскажет в чем может быть трабл?
В процессе индЮктивных методов и т.д. пришел к такому:

Private Sub CommandButton1_Click()
Set pvttbl = ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà1")
pvttbl.RefreshTable
For x = 1 To pvttbl.PivotFields("1").PivotItems. Count
If DateDiff("d", DateValue(Range("k2")), _
DateValue(Format(pvttbl.PivotFields ("1").PivotItems(x), "mm dd yyyy"))) > 0 Then
pvttbl.PivotFields("1").PivotItems( x).Visible = False
Else
End If
Next x
End Sub

В данном случае есть интереснейший глюк:
когда месяц значения PivotItems(x) меньше 12, то оно думает что изменением Х изменяеться месяц, а как только превышает - то думает что с изменением Х изменяеться день.... я када увидел ваще чуть со стула не упал ...
Никак не пойму - кде ж я обшибся то ... ведь изменяеться только день.

[winfacks]

усе понятно - забанили походу меня тута ... видать дюже дурацкие вопросы задаю. надо быть просче - например формулку с двумя если перестать уметь писать ........... или впр-ом перестать пользоваться уметь. ладно - звиняйте господа умельцы. не отвечаете - ненадоть.
зы: А ведь замороку то я свою таки победил