Список листов книги

[Scolopendra]

Здравствуйте всем!
1) Подскажите макрос, который вставит список листов открытой книги в текущее положение курсора.
И ещё, 2) как можно суммировать определённую ячейку на всех листах открытой книги через VBA. А ещё лучше, суммировать по условию (например, все ячейки A3, если B3="Краснодар").

[The_Prist]

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

1) Подскажите макрос, который вставит список листов открытой книги в текущее положение курсора.
2) как можно суммировать определённую ячейку на всех листах открытой книги через VBA. А ещё лучше, суммировать по условию (например, все ячейки A3, если B3="Краснодар").

1. Не понял как можно вставить список в положение курсора. Постарайтесь выразить мысль более конкретно(вып.список в ячейке создать или еще что)
2.

if [B3]="Краснодар" then
dim wsSh as worksheet,dblSumm as double
for each wsSh in Sheets
dblSumm = dblSumm + [A3]
next wsSh
end if

правда, опять же непонятно:

• по какому событию суммировать?
• куда потом результат вставлять(если знать, то можно обойтись без переменной dblSumm).

[Scolopendra]

Массив имён листов нужно вставить начиная с ячейки на которой в данный момент находится табличный курсор («подсвеченная» ячейка), а не в жёстко заданную (вроде $A$1 и пошло вниз). Я не силён в терминах.

А суммировать нужно как в формуле =СУММЕСЛИ(). Эта формула не обрабатывает трёхмерные ссылки, а у меня в одном огромном файле куча накладных на 3 предприятия вперемешку. Вот и хотел сделать что-то типа выборки — сумма для Васи, сумма для Пети, сумма для Краснодара.

Надеюсь, что не запутал ещё больше.

[The_Prist]

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

Надеюсь, что не запутал ещё больше.

А зря.
Полагаю как-то так, но с Вашим примером было бы лучше...

dim wsSh as worksheet
for each wsSh in Sheets
    if wsSh.name <> Activesheet.name then
          if wsSh.[B3]="Краснодар" then Activecell = Activecell + wsSh.[A3]
    end if
next wsSh
end if

Есть подозрение, что Вам надо еще предварительно найти, в которой ячейке столбца "В" каждого листа "Краснодар" находится и их суммировать, но как я уже написАл - лучше примерчик.