Передать значение переменной в адрес

Вход

Регистрация

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

= Мир MS Excel/Передать значение переменной в адрес - Мир MS Excel

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

Передать значение переменной в адрес (Макросы/Sub)

Передать значение переменной в адрес

ant6729

Дата: Среда, 31.01.2018, 19:20 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Добрый день, уважаемые форумчане
Подскажите, пожалуйста, как передать значение lr в адрес? Возможно ли это?

Код про меняющийся размер для выпадающего списка. Он может быть больше, может меньше. Может меняться.
Не хочу задавать большой диапазон, потому что остаются пробелы в выпадающем списке потом... Решил попробовать как-то так...

[vba]

Код

Sub Макрос5()
lr = Sheets("Лист2").Cells(Rows.Count, 9).End(xlUp).Row
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Лист2!$I$1:$I$8" ' lr вместо конечной цифры границы диапазона
End With
End Sub

[/vba]