При добавлении строк на лист в макросе поменять диапазон

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

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

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

Garik007

Дата: Среда, 26.04.2017, 12:34 | Сообщение № 1

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

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

Сообщений: 102

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

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

Excel 2013, 2016

Добрый день, не силен в макросах, нужна помощь.
В ячейке М10 прописана формула, которая в зависимости от условий выводит результат.
В ячейку E10 должен быть скопирован только этот результат, а не сама формула. Вариант прописать в ячейке E10=M10 не устраивает, т.к. появляются зависимые ячейки, кроме того, пользователи постоянно портят формулы.
Прописал такое условие:
[vba]

Код

Range("E10") = Range("M10")

[/vba]
Можно ли сделать чтобы при добавлении или удалении строк и столбцов на лист автоматически менялся диапазон и в макросе?
и еще, если прописать условие
[vba]

Код

Range("E10:E24") = Range("M10:M24")

[/vba]
то ничего не происходит, приходится прописывать по порядку E10,E11,E12 и т.д., есть ли варианты сразу указать нужный диапазон.
При необходимости могу выложить файл пример.

Ответить

Manyasha

Дата: Среда, 26.04.2017, 12:43 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Garik007, так пойдет?
в модуль листа:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr&
    lr = Cells(Rows.Count, "m").End(xlUp).Row
    Range("E10:E" & lr) = Range("M10:M" & lr).Value
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Garik007

Дата: Среда, 26.04.2017, 13:00 | Сообщение № 3

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

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

Сообщений: 102

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

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

Excel 2013, 2016

Manyasha, да спасибо, то что нужно, если правильно понял, то в
[vba]

Код

Range("E10:E" & lr)

[/vba]
прописывается E10:E24 и т.п.

Ответить

Garik007

Дата: Среда, 26.04.2017, 13:02 | Сообщение № 4

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

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

Сообщений: 102

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

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

Excel 2013, 2016

А можно ли как-то реализовать

Цитата Garik007, 26.04.2017 в 12:34, в сообщении № 1 ()

при добавлении или удалении строк и столбцов на листе автоматически менялся диапазон и в макросе?

Ответить

_Boroda_

Дата: Среда, 26.04.2017, 13:06 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Цитата Garik007, 26.04.2017 в 12:34, в сообщении № 1 ()

при добавлении или удалении строк и столбцов на лист автоматически менялся диапазон и в макросе?

Довольно простой способ - дать диапазонам имена (посмотреть можно, нажав на листе Контрл F3) и в макросе написать примерно вот так
[vba]

Код

Sub tt()
[Д2_] = [Д1_].Value
End Sub

[/vba]

К сообщению приложен файл: 816786.xlsm (15.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995