Создание отчета

[Deni55]

Есть пробленма с отчетом.

Нужно чтобы формировался отчет по статьям (к примеру в книге Питание 340 занесена информация по источникам финансирования ФОМС, Бюджет,ПД закупаемая по средствам котировок, Аукциона, торгов и до 100 тыс) Необходимо чтобы вся информация имеющаяся в этой книге переносилась в книгу отчет в соответствующую статью! Аналогично по всем книгам! желательно, чтобы переброс информации происходил без открытия всех документов. (Если возможно)

данные значения каторых нужно переносить залил желтым цветом

Файлы находятся в одной папке!

Помогите кто может!!!

Заранее благодарен!

[pivas]

Deni55, самый простой способ связать ячейки.

[Deni55]

А есть другой способ?? С привязками у меня иногда случаются проблемы, при их наличии, обновление не происходит! Я так уже пробовал! При переносе на менее слабый комп привязки иногда отказываются работать!

[Deni55]

Помогите! Вопрос все еще актуален!!
Проблема в следйющем: 1) Ссылки в отчете плохо рабтают (точнее работают, но не на всех машинах. В чем причина не знаю! Настроены все машины одинаково! Только отличаются по мощьности!)
2) В файлах медикоменты 223,питание 340... и др. плохо работают формулы! Это можно увидеть на примере медикоменты223 обновление результата не всегда проходят нормально! Ингда происходит зависание итоговых сумм по ФОМС, БЮДЖЕТ, ПД.
3) есть ли другой способ расчета по ФОМС, ПД и Бюджету??
утром выложу файл

[pivas]

Если приложишь более подробную задачу (что, откуда, куда) будет замечательно.

[SAS888]

Во-первых, Вы применили макрос, который я делал для одного листа, распространив его на все листы всех книг путем простого копирования. Это очень не рационально. Т.к. на всех листах выполняются одни и те же действия, то это уже событие книги. Во вложении оптимизирована структура всех книг.
Во-вторых, мне не понятно, что нужно вставлять в столбцы "G:I" файла "Отчет.xls".
В-третьих, не понятно, почему у Вас не корректно работают связи с ячейками другой книги.
Посмотрите альтернативный вариант получения данных из неоткрытой рабочей книги без использования связей с помощью макроса XLM.
Данные обновляются при открытии книги. Если какие-либо файлы отсутствуют, то данные из этих файлов обновлены не будут. Никакого сообщения при этом не выводится (а нужно?).
Условия:
1. Все файлы должны находиться в одной папке.
2. Имена файлов и листов переименовывать нельзя. (Вообще-то можно, но т.к. имена файлов и листов определяются по значению ячеек файла "Отчет.xls", то необходимо будет внести соответствующие изменения в этих ячейках.

P.S. Еще раз обратите внимание на построение VBA-проекта файлов-источников.

[Deni55]

Файл «ОТЧЕТ» То что нужно! Спасибо!!! Вот только не могу понять как он определяет нужный файл???!
в столбцы "G:I" файла "Отчет.xls". Туда оператор будет вводить суммы руками, так что вставлять туда ничего не нудно!

А вот сообщение об отсутствии файла желательно!

Файлы медикаменты, питание и хоз. товары по статьям 340,223 и 226 вроде считают правильно, вот только не знаю будет ли подтормаживать этот расчет на менее слабой машине, как это было для отдельного листа.

Выскакивает ошибка :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.Run "Main", Target.Row - Cells(Target.Row, 1), Sh
End Sub

Когда пытаюсь добавить формулу! Формула для даты (Т.е. в столбец J2 прописываем дату 01.01.09. В этой ячейке устанавливается 1-е число. В ячейке J1 устанавливается значение Январь, ячейка К2 =J1+1, тем самым я добиваюсь автоматической смены даты. При достижении 31 января, автоматически будет установлено 1 февраля.) Это нужно, если таблица заполняется не с января, а с июня. Причем дата во всех файлах должна быть одинаковой!

[SAS888]

1. В каждом файле-источнике в модуле "Эта книга" замените код на :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, [J4:GQ1026]) Is Nothing Then
        If Target.Cells.Count = 1 Then
            Application.Run "Main", Target.Row - Cells(Target.Row, 1), Sh
        Else: MsgBox "Ввод данных допускается только по 1 ячейке!"
        End If
    End If
End Sub

Это позволит с ячейками вне диапазона "J4:GQ1026" делать все, что угодно.

2. В файле "Отчет.xls" в макросе "Main" найдите фрагмент:

If Dir(p & f) <> "" Then
    For j = 4 To 6
        a = Cells(1, (j - 3) * 2 + 202).Address
        Cells(i, j) = GetValue(p, f, s, a)
    Next
End If

и удалите (закомментируйте) первую и последнюю строки этого фрагмента.
В результате, при отсутствии текущего обрабатываемого файла будет выведено не сообщение об его отсутствии, а окно с предложением указать путь к этому файлу. При нажатии кнопки "Отмена", обновление данных произведено не будет.

3. Имя файла, листа, и адрес ячейки в макросе "Main" определяются так:
Переменная k задается внешним циклом For k = 2 To 74 Step 36, т.е. принимает 3 значения: 2, 38 и 74, т.е. номера строк. Переменная i задается во внутреннем цикле For i = k + 4 To k + 15. Так, при k=2, перебираются строки с 6 по 17, при k=38 - c 42 по 53 и т.д.
Имя текущего файла определяется как

f = Cells(i, "B").MergeArea.Cells(1, 1) & Cells(k, "C") & ".xls"

Так, например, при k=2, i=8, значение Cells(i, "B").MergeArea.Cells(1, 1) - это значение левой верхней ячейки объединенного диапазона, в который попадает ячейка Cells(i, "B"), т.е. "Питание". Сцепляем это значение со значением ячейки Cells(k, "C"), т.е. "340" и сцепляем с ".xls". Получаем "Питание340.xls", т.е. требуемое имя файла. Проследите по циклу, как изменяются сцепляемые значения.
Аналогично получаем имя текущего листа:

s = Cells(i, "B").MergeArea.Cells(1, 1) & " " & Cells(k, "C") & " " & Cells(i, "C")

. Т.е. сцепляем "Питание", пробел, "340", пробел и "Торги" (это при i=8). Получаем "Питание 340 Торги". И т.д.
Адрес ячейки текущего файла, из которой требуется получить значение получаем так:

a = Cells(1, (j - 3) * 2 + 202).Address

Где j - номер столбца (цикл от 4 до 6). Тогда, при j=4, получаем Cells(1, 204), т.е. ячейку "GV1", при j=5, получаем Cells(1, 206), т.е. ячейку "GX1" и при j=6, получаем Cells(1, 208), т.е. ячейку "GZ1".

[Deni55]

Огромное спасибо! Как раз то, что нужно!

[Deni55]

Извеняюсь за идиотизм! Меня что-то клинит, Наверно так действует жара.

А можно сделать, так чтобы файл отчет находился в папке Договори и брал результаты из файлов находящихся в папках 310, 340,223 и 226.? Файлов много! и если они будут находиться в одной папке можно будет запутаться пытаясь найти нужный файл.

Если это невозможно! Тогда помогите с вариантом когда все файлы в одной папке!

Прикрепленный файл отличается от прошлых! Сам пытался разобраться, но что-то не получается!

Помогите пожалуста! очень нужно!!