Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/AutoFill Destination - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » AutoFill Destination (Макросы/Sub)
AutoFill Destination
baaur Дата: Пятница, 14.10.2016, 07:26 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

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


Сообщение отредактировал baaur - Пятница, 14.10.2016, 07:26
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане!

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

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

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

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

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

Автор - baaur
Дата добавления - 14.10.2016 в 07:26
baaur Дата: Пятница, 14.10.2016, 07:34 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - baaur
Дата добавления - 14.10.2016 в 07:34
_Boroda_ Дата: Пятница, 14.10.2016, 07:59 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 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(15Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ вывел себе на панель быстрого доступа кнопочку с таким макросом
[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]
Он ищет номер строки последней заполненной ячейки в текущем столбце (левая верхняя ячейка выделенного диапазона - ЛВЯВД), столбце слева и столбце справа. Выбирает максимальное значение и от ЛВЯВД протягивает вниз до этой максимальной строки то

Автор - _Boroda_
Дата добавления - 14.10.2016 в 07:59
baaur Дата: Пятница, 14.10.2016, 08:20 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010


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

Не думал что будет так заморочено.
 
Ответить
Сообщение

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

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

Автор - baaur
Дата добавления - 14.10.2016 в 08:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » AutoFill Destination (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!