Макрос при вставки строк

[Trimbl]

Уважаемые знатоки VBA ! Помогите с созданием макроса вычисления в Итоговой строке таблицы Excel. Подробнее во вложенном файле.

[IgorGO]

а макросы обязательно? сводная таблица не подойдет? (сделана за неполных 5 минут)

[Trimbl]

Нет, сводная таблица это несколько мудрено для пользователей без стажа работы с Excel, а данный документ (вернее его итоговая часть) - есть продукт коллективного "творчества". С помощью макросов хочется свести вероятность ошибок к 0. И самое главное - на примерах ПРОФИ пытаюсь научится самостоятельно писать коды макросов.Пожалуйста(будь ласка) посмотрите еще раз исходный материал во вложении. Спасибо за внимание.

[SAS888]

Посмотрите вложение. Для того, чтобы вставить блок ячеек для новой даты, нажмите кнопку "Новая дата". Для того, чтобы вставить (удалить) стоку, нужно сначала выделить ячейку в первом столбце, с порядковым номером того блока, для которого требуется вставка (удаление), затем нажать соответствующую кнопку.

[Trimbl]

Феноменально, это именно то, что и требовалось! С этим можно работать, но лучше если бы; 1.Вставка и удаление строки производилось только в текущем блоке(т.е. если вставлена новая дата(блок), то добалять или удалять строку предыдущего блока(даты) не требуеться, как и выделение ячейки блока при вставке/удалении). 2. Возможно-ли чтобы при вставке новой строки/блока когда все ячейки начиная с третьего столбца пусты, (также как и в исходном состоянии-один блок, одна пустая строка) даже если предыдущие строки блока заполнены в итоговой строке значился не 0 или итог предыдущих партий, а ячейка была-бы пуста до заполнения исходных данных(№партии, дата отгрузки, вес, зола, влага) типа:ЕСЛИ(ИЛИ(ЕПУСТО();ЕПУСТО());"" ;СУММ()). 3. При незаполненной вставленной строке, вставить еще одну было-бы не возможно(лучше с текстовым сообщением о невозможности выполнения).

[dzv]

А что нужно изменить в макросе, чтобы можно было только добовлять и удалять строку с указаного места?!
Тоесть мне нужно только две кнопки.

Заранее спасибо за помощь!

[SAS888]

Тоесть мне нужно только две кнопки.

Вы не поверите!!! Удалить лишнюю кнопку!!!

[dzv]

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

Вы не поверите!!! Удалить лишнюю кнопку!!!

Спасибо!
Я методом исключений добился добавление (удаление) строк, единственное прошу посмотреть макрос и в случае ошибки подправить его (хотя работает, но мне кажется, что-то не так):

Sub DelRow()

    With ActiveCell
        Rows(.Row + .MergeArea.Rows.Count - 1).Delete
    End With

End Sub

Sub InsRow()

    Dim i As Long: Application.ScreenUpdating = False
    With ActiveCell
        Rows(.Row + .MergeArea.Rows.Count - 1).Copy: Rows(.Row + .MergeArea.Rows.Count - 1).Insert:
        Rows(.Row + .MergeArea.Rows.Count - 1).ClearContents
    End With

End Sub

[SAS888]

1. Без примера файла однозначного ответа получить невозможно.
2. Оба Ваших макроса будут работать без ошибки только в том случае, если активная ячейка является объединенной ячейкой, содержащей хотя бы 2 строки.
3. Написание кода можно упростить.

[dzv]

Добрый день, SAS888!
Извините, забыл добавить пример, исправляюсь!
Нужно добовлять и удолять строки между 8-ой и 10-ой строками, а также формат 9-й необходимо, чтобы при копировании копировался в новую строку, точнее сохронялся, а еще точнее оставался малинового цвета и с проверкой.