Я пытаюсь перевести базу данных из Рабочей книги B в автофильтр, используя некоторые данные из Рабочей книги A. Я создаю макрос в Рабочей книге A.
У меня есть следующее:
Рабочая тетрадь А - документ, где вы начали работать
Worrkbook B - База данных, конечная цель этого кода - импортировать некоторую информацию из Рабочей книги B в Рабочую книгу A
Мне нужно следующее:
- Если дважды щелкнуть столбец в книге A, книга B должна открыться (сделано)
- Выбранное значение из книги A будет сохранено как переменная, назовем его input_db (сделано)
- Рабочая книга B будет автоматически фильтроваться на основе input_db (не сделано, здесь требуется помощь!)
- Необходимые данные выбираются из рабочей книги B и импортируются в рабочую книгу A, желательно также с двойным щелчком мыши (еще не сделано, но если у вас есть какие-либо предложения для этого, я буду благодарен;))
Процесс должен повторяться несколько раз подряд.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim input_row, input_column As Integer
Dim input_db As String
Dim wbB, wbA As Workbooks
If Not (Application.Intersect(ActiveCell, [Links]) Is Nothing) Then 'Links is the name of the range where I need the code to be active
If ActiveCell.Value <> "" Then
input_row = ActiveCell.row
input_column = ActiveCell.Column
input_db = ActiveCell.Value
Set database = Workbooks.Open("Workbook B location")
ActiveWorkbook.ActiveSheet.Range("A9").AutoFilter Field:=1, Criteria:=input_db ' This bit doesnt work as expected
End If
End If
End Sub