Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 поиск на другом листе xl  [new]
assei
Member

Откуда: Тамбов
Сообщений: 235
Ребята подскажите! не могу понять где в коде обозначить лист с которого будет производится поиск, есть код (но не мой), пример приложил

К сообщению приложен файл (Поиск.xls - 59Kb) cкачать
2 янв 19, 16:46    [21777614]     Ответить | Цитировать Сообщить модератору
 Re: поиск на другом листе xl  [new]
Казанский
Member

Откуда:
Сообщений: 1290
assei,
Sub ПоискЗначений()
Dim Rng As Range, Адрес As String
ListBox1.Clear

With Worksheets("Лист2") 'добавлено
  With .Range("A7:A" & .Cells(Rows.Count, 1).End(xlUp).Row) 'изменено
    Set Rng = .Find(Me.TextBox1.Value, , , Abs(Abs(chbxPart + 1) + 1))
    If Not Rng Is Nothing Then
        Адрес = Rng.Address
        Do
            ListBox1.AddItem Rng: Set Rng = .FindNext(Rng)
        Loop While Адрес <> Rng.Address
    End If
  End With 'добавлено
End With

End Sub
2 янв 19, 18:28    [21777646]     Ответить | Цитировать Сообщить модератору
 Re: поиск на другом листе xl  [new]
assei
Member

Откуда: Тамбов
Сообщений: 235
Казанский, Спасибо большое! а попутный вопрос можно?
если функция зарезервирована возможно ли прописать еще одну? например активировать другую ячейку на этом же листе!
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'при активной ячейке 
     If Not Application.Intersect(Range("B2"), Target) Is Nothing Then
         anncalendar.Show
     End If
End Sub
3 янв 19, 11:15    [21777831]     Ответить | Цитировать Сообщить модератору
 Re: поиск на другом листе xl  [new]
Казанский
Member

Откуда:
Сообщений: 1290
assei,
в смысле, написать еще одну процедуру Worksheet_SelectionChange в этом же модуле? Нельзя. Но можно в существующую процедуру дописать команды или вызов другой процедуры.
4 янв 19, 02:00    [21778174]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить