Поиск данных по номеру. - Страница 2

Вход

Регистрация

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

= Мир MS Excel/Поиск данных по номеру. - Страница 2 - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск данных по номеру. (Макросы/Sub)

Поиск данных по номеру.

Manyasha

Дата: Четверг, 08.09.2016, 14:02 | Сообщение № 21

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

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

DK, аа, поняла)
Тогда так:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    'Если редактируем столбцы А:С
    If Not Intersect(Target, Columns("a:c")) Is Nothing Then
        refrashSheet
    'Если редактируем столбец №3
    End If
    If Target.Column = 3 Then
        Cells(Target.Row + 1, 1).Activate
    End If
End Sub

[/vba]
В макросе refrashSheet изменила вычисление последней строки на листе 2:
[vba]

Код

lr2 = .Cells(Rows.Count, 1).End(xlUp).Row

[/vba]