У меня есть созданная рабочая книга, которая будет обслуживать временную базу данных CRM для клиентов банка.
Лист1 назван компанией
В каждой строке на Листе 1 есть поля для таких деталей, как телефон, электронная почта и адрес, а также поля, в которые требуется другой лист для включения необходимой информации, такой как Контакты, Учетные записи и История (журнал контактов телефона и электронной почты с клиентом). .
Я пытаюсь создать код VBA на листе компании, который приведет меня к данным на соответствующих листах, отфильтрованных по названию этой компании.
Например; если я дважды щелкну по имени контакта на листе компании, мне потребуется лист с контактами и отфильтровать этот лист только для компаний, которые соответствуют компании контакта, по которому я дважды щелкнул.
Я новичок в VBA и получил код с этого сайта Нажав на гиперссылку в Excel, чтобы установить автофильтр на другом листе
Тема была довольно старой, поэтому я подумал, что лучше создать новую.
Я получаю сообщение «Ошибка времени выполнения 9»: нижний индекс выходит за пределы диапазона », и отладчик выделяет строку, которая начинается с« Sheet2.ListObjects (ContactTable)
Вот код, который у меня есть:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 9 Then
Sheet2.ListObjects(ContactTable).Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Offset(0, -8).Value
Sheet2.Activate
End If
End Sub
Столбец1 на всех страницах имеет название заголовка «Компания»
Лист1 назван Компанией, Лист2 назван Контактами
Таблица на Листе 1 называется CompanyTable, таблица на Листе 2 называется ContactTable
У меня есть автофильтры на всех листах
Любая помощь с моим кодом будет принята с благодарностью. Пожалуйста, дайте мне знать, если вам нужны другие данные в моей рабочей тетради.