функция СУММ, что надо дописать?

[AKSENOV048]

Сообщение от аналитика

какая ошибка?

прекращение работы Excel

[AKSENOV048]

Сообщение от Казанский

Не будет. ДВССЫЛ не создает трехмерные ссылки. Решение тут: http://www.planetaexcel.ru/forum.php?thread_id=4802

ни чего не понял там десятки формул, какую из них применить мне не пойму

[MCH]

как вариант, формула массива (вводится нажатием ctrl+shift+enter):

=СУММ(ЕСЛИ(ЕОШ(Ч(ДВССЫЛ(ТЕКСТ(СТРОКА(ИНДЕКС($A:$A;$N$1):ИНДЕКС($A:$A;$N$2));"'ДД.ММ.ГГГГ'!")&"E"&СТРОКА(5:5))));;Ч(ДВССЫЛ(ТЕКСТ(СТРОКА(ИНДЕКС($A:$A;$N$1):ИНДЕКС($A:$A;$N$2));"'ДД.ММ.ГГГГ'!")&"E"&СТРОКА(5:5)))))

[AKSENOV048]

здорово. спасибо. я правда не думал что формула такая длинная будет. пока не совсем разобрался что есть что!
спасибо.
единственное вылетает ошибка о прекращении работы приложения если в указанных ячейках я выбираю даты при помощи надстройки DataPicker.

а нельзя будет сделать, чтобы в ячейках не вбивать даты, а выбирать из всплывающего списка?

[R Dmitry]

Сообщение от AKSENOV048

здорово. спасибо. я правда не думал что формула такая длинная будет. пока не совсем разобрался что есть что!
спасибо.
единственное вылетает ошибка о прекращении работы приложения если в указанных ячейках я выбираю даты при помощи надстройки DataPicker.

а нельзя будет сделать, чтобы в ячейках не вбивать даты, а выбирать из всплывающего списка?

можно UDF использовать

Function SumSheetRange(r As Range, sh1 As String, sh2 As String)
Dim bl As Boolean, i&
For i = 1 To Sheets.Count
If Sheets(i).Name = sh1 Then bl = True
If bl Then
SumSheetRange = SumSheetRange + Application.WorksheetFunction.Sum(Sheets(i).Range(r.Address))
If Sheets(i).Name = sh2 Then Exit Function
End If
Next
End Function

пример использования
=SumSheetRange(A1:A2;"Лист2";"Лист4 ")

[AKSENOV048]

Сообщение от R Dmitry

можно UDF использовать

Function SumSheetRange(r As Range, sh1 As String, sh2 As String)
Dim bl As Boolean, i&
For i = 1 To Sheets.Count
If Sheets(i).Name = sh1 Then bl = True
If bl Then
SumSheetRange = SumSheetRange + Application.WorksheetFunction.Sum(Sheets(i).Range(r.Address))
If Sheets(i).Name = sh2 Then Exit Function
End If
Next
End Function

пример использования
=SumSheetRange(A1:A2;"Лист2";"Лист4 ")

Спасибо. но у меня не получается! вставляю в свой документ и не работает. Если я понял A1:A1 это ячейки которые будут суммироваться, а C2;D2 это листы. Я пишу =SumSheetRange(E5:E5;C1;C2) и выдается предупреждение о циклической ссылке.
Щас еще раз посмотрел получается что формула меняется в значениях =SumSheetRange(E6:E6;C2;C3) и т.д.! или я не правильно делаю?

Нельзя сделать раскрывающийся список с именами листов?

[VictorM]

Нельзя сделать раскрывающийся список с именами листов?

Можно конечно.
при открытии рабочей книги запустить макрос, типа такого

Sub tt()
    For i = 1 To Sheets.Count
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Sheets(i).Name
    Next i
End Sub

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

[AKSENOV048]

Сообщение от VictorM

Можно конечно.
при открытии рабочей книги запустить макрос, типа такого

Sub tt()
    For i = 1 To Sheets.Count
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Sheets(i).Name
    Next i
End Sub

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

Спасибо, но такой вариант не пойдет. это делается для человека мало понимающего, точнее сказать ни чего не понимающего в excel и в компе вообще. а в вашем случае надо постоянно запускать макрос, но даже не в этом проблема, а в том что, при создании нового листа, старый список не обновляется, а создается новый дополнительно!

Интересует, можно ли сделать всплывающий список листов в книге с помощью формул?

может можно использовать какие-то данные из формулы выше?

[VictorM]

а в вашем случае надо постоянно запускать макрос,

Вы видимо недочитали, что макрос можно запускаеть автоматом, при открытии книги, по событию Private Sub Workbook_Open.
Да и вообще, запускать его можно как угодно, хоть при создании нового листа, хоть при обновлении данных на листе, причем, заметьте, без участия пользователя.
Но решать конечно Вам.
p.s.
Чисто для примера, см. файлик

[AKSENOV048]

Сообщение от VictorM

Вы видимо недочитали, что макрос можно запускаеть автоматом, при открытии книги, по событию Private Sub Workbook_Open.
Да и вообще, запускать его можно как угодно, хоть при создании нового листа, хоть при обновлении данных на листе, причем, заметьте, без участия пользователя.
Но решать конечно Вам.

т.е. можно сделать так: создать отдельный лист и сделать чтобы макрос на нем автоматически запускался и обновлял данные о листах в книге(именно обновлялся, а не продолжался новым списком)? если я так вас понял, опишите пожалуйста как так сделать подробней, буду очень благодарен!

Вопрос по поводу сделать тоже самое с помощью формул, все еще интересует!