Протянуть формулы до конца значений. Макрос.

Пользователь

Сообщений: 17 Регистрация: 21.07.2012

06.09.2012 14:33:07

Подскажите, возможно ли, в макросе автофильтр (в моем случае протягивание формулы) протянуть не по указанному значению, а до конца значений.
Selection.AutoFill Destination:=Range("I4:I122")

(файл большой с макросом не могу вставить)

То есть по столбцу I надо протянуть формулу, до значения I122, в другом файле эта же формула до I50, в другом файле до I145 и т.д.

Hugo

Пользователь

Сообщений: 26451 Регистрация: 22.12.2012

06.09.2012 14:40:45

Определяете любым способом номер нужной строки по нужному столбцу (если ниже ничего нет, то можно стандартно
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row '(это по столбцу A)
Затем вставляете это число в код:
Selection.AutoFill Destination:=Range("I4:I" & iLastRow)
Только избавляйтесь от selection - ведь можно :)

P.S. AutoFill - это автозаполнение, а не автофильтр :)

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

06.09.2012 14:42:37

И при чем тут автофильтр? автофил(автозаполнение), это совсем другое.
>> файл большой с макросом не могу вставить
А в правила заглянуть? Нам не надобен большой. 10-15 строк достаточно.

Я сам - дурнее всякого примера! ...

Guest Гость	#4 06.09.2012 19:52:06 Hugo спасибо большое. Еще не пробовала, но вы так все хорошо объяснили @--->>> Я сейчас только поняла, что написала неправильно про автофильтр )))

Катериная Пользователь Сообщений: 17 Регистрация: 21.07.2012	#5 07.09.2012 10:52:33 выдает ошибку (незаконченное - прописала немножко по другому myR = Range("G4").End(xlDown).Row Range("I4").AutoFill Destination:=Range("I4:I" & myR)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#6 07.09.2012 12:25:25 Какую ошибку? Чему равно myR - пройдите программу по шагам (F8), наведите курсор на myR или смотрите в окне Locals.

Читают тему