Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск из диапазона значений и переход к найденному, Excel Vba
 
#1
24.05.2024 13:07:47
Доброго времени суток!
Ребята, подскажите пожалуйста.
Идея: создать справочник по аббревиатурам, в определенную ячейку вношу аббревиатуру, и нажимаю на иконку поиска, если совпадения есть перейти на строку я найденным.
Но у меня не удается сделать переход на ячейку(    
 
 
 
#2
24.05.2024 13:14:50
Цитата
Baben: не удается сделать переход на ячейку
Application.Goto Range("A1")
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
24.05.2024 13:17:35
Код
Sub Проверка()
    Dim rf As Range
    On Error Resume Next
    Set rf = [B2:B100].Find([E2])
    On Error GoTo 0

    If rf Is Nothing Then
        MsgBox "Аббревиатура не найдена. Можешь дополнить базу. Спасибо!"
    Else
        Application.Goto rf
        MsgBox "Найдено"
    End If

End Sub
 
 
 
#4
24.05.2024 13:21:20
Код
Sub Проверка()
    Dim rAll As Range
    Set rAll = Range(Range("B2"), Cells(Rows.Count, 2).End(xlUp))

    Dim rf As Range
    On Error Resume Next
    Set rf = rAll.Find([E2])
    On Error GoTo 0

    If rf Is Nothing Then
        Application.Goto rAll.Cells(rAll.Rows.Count + 1, 1)
        MsgBox "Аббревиатура не найдена. Можешь дополнить базу. Спасибо!", vbCritical, "Проверка"
    Else
        Application.Goto rf
        MsgBox "Найдено", vbInformation, "Проверка"
    End If

End Sub
 
 
 
#5
24.05.2024 13:21:45
Это в модуль листаАббревиатуры
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0, xlA1) = "E2" Then Проверка
End Sub
 
 
 
#6
24.05.2024 14:38:15
Спасибо всем за оперативную помощь!
 
 
 
#7
26.05.2024 21:27:34
Private Sub Worksheet_Change(ByVal Target As Range)
 If Application.Intersect(Range("B1:B100"), Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False 'контроль событий

       Range("D" & Target.Row) = Now 'указываем в какую ячейку выводить результат
  Application.EnableEvents = True
End Sub

помогите пожалуйста с этим кодом
не могу добавит другие столбцы с результатом
Изменено: kenpachi - 27.05.2024 18:01:53 (не добавил файл)
 
 
 
Страницы: 1
Наверх