Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
макрос для вставки курсора в позицию и поиск свободной ячейки, замена F2 и поиск свободной ячейки
 
Добрый день!может поможете пожалуйста,
я нашёл на форуме макрос который следит за указанным диапазоном ячеек и при вводе данных в этом диапазоне вызывает работу другого макроса, вот нужен собственно этот другой макрос, который будет делать следующее:
в столбец В в строку № такой же как и № строки в столбце А в которую вводили данные поставить курсор (именно внутрь ячейки как по F2) и после того как в неё введут данные и нажмут enter выделилась (просто встать на ячейку) следующая свободна ячейка в столбце А.....
пример в аттаче.
в любом случае Спасибо!
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Offset(, 1).Select
    Application.SendKeys "{F2}"
End If
If Target.Column = 2 Then
    Target.Offset(, -1).End(xlDown).End(xlUp).Offset(1).Select
End If
End Sub
Живи и дай жить..
 
а как дать имя этому макросу что бы можно было прописать его в первом макросе который его должен вызывать?
 
это уже 1й макрос. он ам следит за изменением данных

просто копируйте его код в свой (такой же) вместо строки call Макрос1
Изменено: Слэн - 28 Июл 2016 15:20:43
Живи и дай жить..
 
вот, чтобы точнее было в вашем файле сделал
Живи и дай жить..
 
да всё отлично работает, заменил свой макрос на Ваш. просто в начале затупил :)
Спасибо огромное!!!
Изменено: dru_seb - 28 Июл 2016 16:07:29
Страницы: 1
Читают тему (гостей: 1)
Наверх