Фильтрация таблицы2 по выделенной ячейке в таблице1

Пользователь

Сообщений: 27 Регистрация: 19.06.2013

13.07.2013 11:45:44

Здравствуйте, Уважаемые форумчане, рассчитываю на Вашу помощь.
Подскажите, пожалуйста, как написать макрос:

в таблице1 ("Заказы" ;) каждая строка имеет свой уникальный порядковый номер (который указывается в первом столбце).

Какой должен быть макрос, чтобы, дважды щелкая по этой ячейке с порядковым номером (например, со значением 1), меня как по гиперссылке переносило бы на другой лист
с таблицей2 ("Спецификация" ;) , в которой автофильтром уже отфильтрованы строки по 1 столбцу со значением "1" из щелкнутой 2 раза ячейки?

Я немного разобрался с командами, которые необходимо использовать в макросе, но на большее не способен:

Код
PrivateSub Макрос1() Range("Заказ[@[Номер заказа]]") .Select ActiveSheet.ListObjects("Спецификация").Range.AutoFilter Field:=2, Criteria1 _ :="1" End Sub

файл в примере

Прикрепленные файлы

Пример1.xlsm (20.51 КБ)

k61

Пользователь

Сообщений: 2421 Регистрация: 21.12.2012

13.07.2013 12:20:37

Не проверял. В код листа "Заказы":

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
r = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range(Cells(2, 1), Cells(r, 1))) Is Nothing Then
Cancel = True
With Sheets("Спецификация")
.Cells(3, 1).AutoFilter Field:=1, Criteria1:=Target
.Select
End With
End If
End Sub

Изменено: k61 - 13.07.2013 12:21:31

Dmitrik Пользователь Сообщений: 27 Регистрация: 19.06.2013	#3 13.07.2013 12:28:41 Уважаемый, k61, ! работает, черт возьми! Я Вам крайне признателен! Спасибо, что уделили внимание!

Dmitrik

Пользователь

Сообщений: 27 Регистрация: 19.06.2013

13.07.2013 12:38:20

Прошу прощения за назойливость, но один не справлюсь,
как еще добавить в этот макрос, чтобы:

на листе2 ("Спецификация") ячейке C1 присваивалось выделенное (щелкнутое 2 раза) значение с листа1 (из таблицы "Заказы") по столбцу A (Номер заказа), а ячейке Е1 присваивалось выделенное значение с листа1 по столбцу В (Дата заказа) той же строки.

то есть также щелкаю 2 раза ячейку таблицы1 и на листе2 сразу в ячейках (С1 и Е1) отображаются значения из первых 2-х столбцов таблицы1.

Заранее Спасибо!

Юрий М

Модератор

Сообщений: 60982 Регистрация: 14.09.2012

Контакты см. в профиле

13.07.2013 12:43:42

Код
With Sheets("Спецификация") .Cells(1, 3) = target.Value .Cells(1, 5) = target.Offset(0, 1).Value .Cells(3, 1).AutoFilter Field:=1, Criteria1:=target .Select End With

Dmitrik Пользователь Сообщений: 27 Регистрация: 19.06.2013	#6 13.07.2013 12:48:45 Глубокоуважаемый, Юрий М, , разобрался куда скопировать код, и Вы не поверите! - ОПЯТЬ ЗАРАБОТАЛО! Низкий поклон Вам! За чудесный сайт и за отзывчивость людей. Юрий М, благодарю! окончательный работающий файл приложен Прикрепленные файлы Пример1.xlsm (20.76 КБ) Изменено: Dmitrik - 13.07.2013 13:03:34 (добавил файл с решением)

Читают тему