Добавление диапазона с одного листа на другой - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление диапазона с одного листа на другой (Макросы/Sub)

Добавление диапазона с одного листа на другой

den45444

Дата: Четверг, 13.08.2015, 14:31 | Сообщение № 21

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

miver, еще один вопрос.

В столбце Е добавляется значение с Листа1 (СМЕТА) со столбца 7. Можно ли вместо этого добавления просто поставить формулу, которая будет умножать кол-во и цену в листе "Этап". Короче говоря там нужна формула, а не значение, чтобы можно было поменять в случае кол-во или цену.

Ответить

miver

Дата: Четверг, 13.08.2015, 14:45 | Сообщение № 22

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

den45444, Аппетит приходит во время еды

Удали сохранение
[vba]

Код

rez(1, UBound(rez, 2)) = "Итого:"
' rez(5, UBound(rez, 2)) = arr(i, 7)

[/vba]
Добавь строчку занесения формулы
[vba]

Код

        If start Then
             Rows("6:" & 4 + UBound(rez, 2)).Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
             Range("A5", Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Address).Rows.Value = Application.Transpose(rez)
             Range("A5").Offset(UBound(rez, 2) - 1).Font.Bold = True
             Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Font.Bold = True
             Range("A5").Offset(UBound(rez, 2) - 1).HorizontalAlignment = xlCenter
             Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")"  'вот она
         Else
             MsgBox "Номер этапа не найден!"
         End If

[/vba]