Сложение данных в разных ячейках

[viter.alex]

Имеется таблицаP_and_G_reports.rar. Там есть поля:
«Общий вес», «Собрано», «Сварено», «Окрашено», «Готово к отгрузке».
Также есть даты проведения каждого процесса, т.е. дата сборки, сварки, покраски, упаковки. У каждой конструкции есть масса.
Задача в том, чтобы в ячейки, расположенные слева от вышеуказанных полей вводить сумму масс конструкций, но только если указана дата проведения процесса. Т.е. если для конструкции указана дата сборки, то масса этой конструкции должна учитываться и суммироваться в поле «Собрано», и т.д.
Можно ли это решить формулами, или нужно использовать макросы? Макросов не боюсь
Знаю, что есть системы управления проектами, но они сложны для быстрого освоения, особенно, когда не очень понимаешь сам процесс. Поэтому пока такой простенький вариант.

[EducatedFool]

Вполне можно (и нужно) обойтись формулами. Но в них я не разбираюсь...

Макросов не боюсь

Макросов-то и я не боюсь, а вот формулы бывают весьма страшными

[viter.alex]

А где прописан лист, который был активным при закрытии файла?

[EducatedFool]

А где прописан лист, который был активным при закрытии файла?

Если файл при закрытии не был сохранён - то этой информации не получить...

При открытии книги Excel активным становится тот лист, который был активен в момент сохранения книги.

[viter.alex]

Так я про это и говорю. Как его узнать при открытии книги?

И еще. Я копирую ячейки с одного листа на другой. Как указывать строку и столбец цифрами, а не буквами, т.е. не «А1», а «R1C1», ну и, соответственно, как указать диапазон таким же образом?
Как сохранить форматирование при копировании? Имеется ввиду ширина столбца и строки?

С Word много работал. А здесь больше вопросов пока, чем ответов.

[EducatedFool]

Обращайся к свойствам переменной ActiveSheet, представляющей активный рабочий лист.
То есть программно открыл книгу, и сразу обращаешься к объекту ActiveSheet, например, Msgbox ActiveSheet.name

Как указывать строку и столбец цифрами, а не буквами

Например, cells(2,5) - ячейка во 2 строке в 5 столбце
Вообще, существует около сотни разных способов обратиться к ячейке.
(подробности узнаешь, пройдя по приведённой ниже ссылке)

Здесь ты найдешь ответы на большинство вопросов по Excel.
Прочитай полностью хотя бы оглавление, потом будешь знать, где искать, да и вообще, что может делать Excel.

[viter.alex]

Что здесь неправильно? Добавляю новый лист, даю ему имя, пытаюсь диапазон ячеек из листа oWorksheet вставить в новый лист. Пишет: «Application-defined or object-defined error».

  For Each oWorksheet In ActiveWorkbook.Sheets
    Set oNewWorksheet = Worksheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
    oNewWorksheet.Name = "Изменения в «" & oWorksheet.Name & "»"
    oWorksheet.Range(Cells(1, 1), Cells(2, 12)).Copy oNewWorksheet.Cells(1, 1)
  Next oWorksheet

[EducatedFool]

Sub test()
    For Each oWorksheet In ActiveWorkbook.Sheets
        Set oNewWorksheet = Worksheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
        oNewWorksheet.Name = "Изменения в «" & oWorksheet.Name & "»"
        oWorksheet.Range(oWorksheet.Cells(1, 1), oWorksheet.Cells(2, 12)).Copy oNewWorksheet.Cells(1, 1)
    Next oWorksheet
End Sub

В твоём коде Cells(1, 1) и Cells(2, 12) ссылались на соответствующие ячейки активного листа, которым на момент выполнения команды являлся вновь созданный лист.


Я бы сделал так:

Sub test2()
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    For Each oWorksheet In ThisWorkbook.Worksheets
        oWorksheet.Copy ThisWorkbook.Worksheets(1)    ' копируем лист (новый лист становится активным)
        With ActiveSheet
            .UsedRange.Offset(2).Clear    ' стираем всё, начиная с 3-й строки
            .Name = "Изменения в «" & oWorksheet.Name & "»"
        End With
    Next oWorksheet
End Sub

поскольку такой вариант позволяет сохранить всё форматирование первых 2-х строк, и все настройки листа (типа параметров печати, и т.п.)

[IgorGO]

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

[viter.alex]

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

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

Я пока домой ехал в метро, тоже додумался до суммы произведений, только произведение нужно брать ячейки с массой на результат операции сравнения ячейки с датой и пустой строки. Т.е. если результат сравнения False, получим 0, если True, получим массу.
Добавлено после долгих раздумий
Чего-то я не пойму как работает эта формула.