Здравствуйте. Помогите, пожалуйста, найти ошибку в процедуре  
 
Sub Макрос1()  
  Dim NData As Date, Smena As String, PivTab As PivotTable, SH As Worksheet  
     
   NData = [E3]
   Smena = [E4]
   Set SH = Worksheets("Лист1")  
     
   For Each PivTab In SH.PivotTables  
       PivTab.PivotFields("дата").ClearAllFilters  
       PivTab.PivotFields("дата").CurrentPage = Format(NData, "DD/MM/YYYY")  
       PivTab.PivotFields("смена").ClearAllFilters  
       PivTab.PivotFields("смена").CurrentPage = Smena  
   Next PivTab  
 
End Sub  
 
ругается вот на эту строчку  
       PivTab.PivotFields("дата").CurrentPage = Format(NData, "DD/MM/YYYY")  
хотя взял ее из файла скачанного с форума, в том файле работает а в моем не хочет  
Подскажите кто сталкивался с подобной проблемой как это победить?

Здравствуйте. Подскажите, пожалуйста, почему не работает формула суммесли(), если в качестве диапазона указать одну ячейку на нескольких листах, ведь формула сумм() при тех же условиях считает нормально)

Здравствуйте. Подскажите, пожалуйста, как макросом преобразовать дату с 2-значным годом в формат 20XX. Макрорекордер ничего не записывает((

Здравствуйте. Никак не могу понять причину глюка. Если файл .xls вручную сохранять как текстовый с разделителями табуляции то формат даты не менятся, а если тоже самое делать макросом то почему-то вместо "dd.mm.yyyy" получается "mm/dd/yyyy". Подскажите, пожалуйста, кто сталкавался, как бороться?

Здравствуйте. Есть таблица с данными, первая строка каждого столбца - дата, даты идут в возрастающем порядке, остальные строчки содержат числовые данные как положительные, так и отрицательные.  
Вопрос: Подскажите, пожалуйста, возможно ли написать формулу для каждой строки с помощью, которой можно определить дату первого отрицательного значения просматривая диапазон начиная с текущей даты и до конца таблицы.

Здравствуйте. Подскажите, пожалуйста, как проще обновлять данные в книге из другой книги, используя vba?    
Sub macro()  
   Dim a As Range, f As Range, c As Long, d As Long, e As Single, month As String, i As Integer, g As Range, h As Long  
   Dim mdata As Date, n As Integer  
   n = InputBox("la", "na", "ba")  
   mdata = Date - 1  
   e = Left(Date - 1, 2)  
   h = 29  
   mdata = Date - 1  
   For i = 1 To n  
   mdata = mdata + 1  
   month = Format(mdata, "mmmm")  
   e = Left(mdata, 2)  
   h = h + 5  
   Windows("HLT" & month & " 2010.xls").Activate  
   Application.DisplayAlerts = False  
   ActiveWorkbook.Save  
   Application.DisplayAlerts = True  
   Set a = Range("3:3")  
   Set f = a.Find(e & "f",,xlValues,xlPart)  
   c = f.Row  
   d = f.Column  
   Range(Cells((c + 7), d), Cells((c + 137), d)).Copy  
   Windows("book.xls").Activate  
   Sheets("sheet1").Select  
   Cells(3, h).Activate  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone  
   Next i  
End Sub  
наслаждаюсь мельканием окон и получаю нужный результат, решил переписать макрос так, чтобы данные извлекались без "copy" и "paste" и застопорился на этой строчке:    
Application.Workbooks("book1.xls").Sheets("o1").Range("otgrdat" & dm) = "=R[7]C:R[162]C"
, в диапазон "otgrdat" & dm вставляются формула массива, а как вставить значения допетрить не могу( Помогите, пожалуйста, понять как значение диапазона вставлять. А может есть способ намного проще данные синхронизировать? Заранее спасибо)