Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
С кнопки слетает макрос и excel не отвечает
 
После того, как запускаем макрос по нажатию на фигуру макрос не запускается. Так же (в этой книге было 1 раз, в другой постоянно) пишет "Excel не отвечает", если нажать "Сохранить " после того как макрос закончил выполнение. Может кто нибудь пожалуйста помочь?

Макрос копирует данные из одной книги в другую
Создание сводных программно
 
Как правильно создавать сводные программно?
Я делаю так:
Код
Dim PTCache As PivotCache 
Dim PT As PivotTable  
Set PTCache = ActiveWorkbook.PivotCaches.Create( _SourceType:=xlDatabase, _SourceData:=wsh1.UsedRange)  
Set PT = wsh.PivotTables.Add( _PivotCache:=PTCache, _TableDestination:=wsh.Range("A3")...
Он то работает, то нет.
Валится на строке Set PTCach пишет ошибку
Run-time error '13'
Type mismatch

Может кто то мне объяснит в чем проблема?
Экспериментировала с SourceData поменяла UsedRange на Range(Cells(1,1), Cells(150,num_col)) так работает, когда меняю номер строки на >150 валится, как было описано выше.
Или посоветуйте другой способ для создания сводных или скажите где почитать.
Изменено: sunlight-vrn - 15.12.2013 17:09:30
CDbl не возвращает значения если строка пуста
 
Она действительно так работает или это глюк? Что должно вернуться если строка пустая

str = ""
CDbl(str)

Что должна вернуть CDbl? Я так понимаю, что 0, но у меня пишет ошибку. а Val(str) возвращает только целое значение
Страницы: 1
Наверх