Gamid, для вопросов по VBA есть отдельная ветка
по теме - пробуйте так
[vba]Код
Sub pt()
Dim s As Variant
retry:
s = InputBox("vvedi chislo")
If Not IsDate(s) Then
If MsgBox("Введены данные в неверном фогрмате." & vbLf & "Повторить?", _
vbExclamation Or vbYesNo, "Ошибка") = vbYes Then
GoTo retry
Else: Exit Sub
End If
End If
s = CDate(Format(s, "MM DD YYYY"))
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
.ClearAllFilters
.PivotFilters.Add xlSpecificDate, , s
End With
End Sub
[/vba]