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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск данных по номеру. (Макросы/Sub)
Поиск данных по номеру.
Manyasha Дата: Четверг, 08.09.2016, 14:02 | Сообщение № 21
Группа: Модераторы
Ранг: Старожил
Сообщений: 1956
Репутация: 815 ±
Замечаний: 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]
К сообщению приложен файл: Book-4.xlsm(24Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]

Автор - Manyasha
Дата добавления - 08.09.2016 в 14:02
DK Дата: Четверг, 08.09.2016, 15:46 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Manyasha,
Ну теперь точно всё идеально )!
Огромное Вам Спасибо! Такой отзывчивости я ещё не встречал! :)
 
Ответить
Сообщение Manyasha,
Ну теперь точно всё идеально )!
Огромное Вам Спасибо! Такой отзывчивости я ещё не встречал! :)

Автор - DK
Дата добавления - 08.09.2016 в 15:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск данных по номеру. (Макросы/Sub)
Страница 2 из 2«12
Поиск:

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