AutoFill Destination - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » AutoFill Destination (Макросы/Sub)

AutoFill Destination

baaur

Дата: Пятница, 14.10.2016, 07:26 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

Здравствуйте уважаемые форумчане!

Нужна снова ваша помощь, в интернете и на форуме не нашел ответ.

Есть таблицы с данными, в итоговой колонке есть сумма эта сумма должна протянутся вниз столько сколько есть данных необходимых для подсчета.

Проблема в том что данные могут быть в разных местах, то есть не обязательно в колонках B C D, а например в L M N но всегда вместе и так же количество данных может быть любое.

По этому макро рекордером не совсем то что нужно получается в Destination он прописывает фиксированный диапазон.

Заранее спасибо!!!

К сообщению приложен файл: 2066043.xlsb (12.1 Kb)

Сообщение отредактировал baaur - Пятница, 14.10.2016, 07:26

Ответить

baaur

Дата: Пятница, 14.10.2016, 07:34 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

То есть, как изменить ActiveCell.Range("A1:A4") на такой, что бы работал с любой активной ячейкой до последней ячейкой где есть данные.

Ответить

_Boroda_

Дата: Пятница, 14.10.2016, 07:59 | Сообщение № 3

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Я вывел себе на панель быстрого доступа кнопочку с таким макросом
[vba]

Код

Sub ZapolnVniz()
    On Error Resume Next
    rn_ = Rows.Count
    a_ = Selection.Address
    c_ = Selection.Column
    nc_ = Selection.Columns.Count
    r0_ = Selection.Row
    r10_ = Cells(rn_, c_).End(xlUp).Row
    r11_ = Cells(rn_, c_ - 1).End(xlUp).Row
    r12_ = Cells(rn_, c_ + nc_).End(xlUp).Row
    r_ = WorksheetFunction.Max(r10_, r11_, r12_)
    If r_ > r0_ Then Range(a_, Cells(r_, c_)).FillDown
End Sub

[/vba]
Он ищет номер строки последней заполненной ячейки в текущем столбце (левая верхняя ячейка выделенного диапазона - ЛВЯВД), столбце слева и столбце справа. Выбирает максимальное значение и от ЛВЯВД протягивает вниз до этой максимальной строки то

К сообщению приложен файл: 2066043_1.xlsb (15.1 Kb)

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

Ответить

baaur

Дата: Пятница, 14.10.2016, 08:20 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

Цитата _Boroda_, 14.10.2016 в 07:59, в сообщении № 3

_Boroda_

Класс, спасибо!!! hands

Не думал что будет так заморочено.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » AutoFill Destination (Макросы/Sub)

Страница 1 из 1
1