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

Страницы: 1
ДВССЫЛ
 
Всем привет,

Такой вопрос:

Есть формула:

Код
={СУММ(
(ЕСЛИ(
(((ДВССЫЛ(СЦЕПИТЬ((Справочник!$B$2:$B$34);("_ДДС_мес!E4")))))
<>"");
(ДВССЫЛ(СЦЕПИТЬ((Справочник!$B$2:$B$34);("_ДДС_мес!E4"))))
*(Справочник!$C$2:$C$34);
0)))}


Если считать ее последовательно (с помощью F9 по строкам 3, 3+4,5,6, 5+6, потом со 2й до конца, потом с 1й до конца), получается нормальный ответ. А так Excel выдает ошибку #ЗНАЧ!

В исходнике заменить "" на нули не могу - он не мой, его трогать нельзя. Есть способ помочь моему горю?

П.С. Ниже - шаги.

Скрытый текст
Изменено: Elena A - 29.03.2013 09:10:23
VBA - подбор параметра для диапазона ячеек
 
Всем привет,  
 
Нужно подобрать параметр для ряда ячеек. Пишу:  
 
Sub Calc_1()  
'  
   Dim Cell As Range  
   For Each Cell In Selection  
   Range(Cells(Cell.Row + 21, Cell.Column)).GoalSeek Goal:=0, ChangingCell:=Range(Cells(Cell.Row, Cell.Column))  
   Next  
'  
End Sub  
 
Выдает ошибку 1004:    
Method 'Range' of object '_Global' failed  
 
Почему? Что исправить?
VBA: Проверка наличия значения и добавление его при отсутствии
 
Всем привет.  
 
Имеются два листа.  
1. Выделяем на Листе2 диапазон, скажем, A1:A5, строки всегда меняются, столбец всегда А  
1. Надо проверить, содержится ли в столбце A Листа1 значения ячейки A1 Листа2.  
2. Если да - перейти к следующей ячейке выделенного диапазона.  
3. Если нет, то:  
а) найти в столбце В Листа1 значения ячейки В1 Листа2,  
б) добавить строку ниже найденной ячейки  
в) скопировать в нее формулы из строки выше (очень желательно только формулы, а ячейки со значениями - не копировать),  
г) в ячейки столбцов С, D, E новой строки Листа1 откопировать значения из ячеек С1, D1, E1 Листа2 (при переходе к ячейке А2 - из ячеек С2, D2, E2 соответственно и т.д.)  
4. Проделать со всеми ячейками выделенного диапазона.  
 
Нужна помощь :-[
VBA + Excel + метод Find + Даты
 
Всем привет!  
 
Задача: надо, чтобы максрос находил заданную дату на листе  
 
Rак не работает:  
   Sub  
       Dim MyDate As Date  
       MyDate = ActiveCell.Offset(0, -2).Value  
       Windows("File.xls").Activate  
       Sheets("Sheet1").Select  
       Cells.Find(MyDate).Activate  
   End Sub  
 
То же, но с четко указанной датой работает:  
 
   Sub  
       Windows("File.xls").Activate  
       Sheets("Sheet1").Select  
       Cells.Find("11.12.2010").Activate  
   End Sub  
 
Хелп! Буду крайне признательна :)
Страницы: 1
Наверх