Условие для активной ячейки.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие для активной ячейки. (Макросы/Sub)

Сергей13

Дата: Среда, 01.05.2019, 11:31 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 344

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

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

Excel 2016

Здравствуйте!
С праздником всех!
Ребята создал код с условием – Если адрес активной ячейке расположен в не адресе столбца (Наименование) умной таблицы. Но код работает правильно если в таблице всего одна строка, при добавлении строк срабатывает только MsgBox.

[vba]

Код

Sub AktivRange()
    If ActiveCell.Address <> Range("tabl_logbook[Наименование]").Address Then
        MsgBox "Адрес ячейка находится в не области адреса столбца Наименование"
    Else
        Range("R1").Value = ActiveCell.Value 'Отобразить данные активной ячейки в ячейке R1
    End If
End Sub

[/vba]
Что необходимо изменить или добавить в условии?

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

Сообщение отредактировал Сергей13 - Среда, 01.05.2019, 11:41

Ответить

RAN

Дата: Среда, 01.05.2019, 11:50 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Sub AktivRange()
If Not Intersect(ActiveCell, Range("tabl_logbook[Наименование]")) Is Nothing Then
Range("R1").Value = ActiveCell.Value
End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Сергей13

Дата: Среда, 01.05.2019, 12:02 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 344

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

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

Excel 2016

RAN, Благодарю!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие для активной ячейки. (Макросы/Sub)

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