Переход по листам

[lavrentiyy]

Итак, прошу помощи.
Нужно реализовать что то типа "просмотр данных для выбранных записей",
Т.е. пользователь нажимает на ячейку, открывается соседний лист, а в нем уже включен фильтр, и выбраны только нужные записи, по этому товару.

[roplius]

Смотрите вложение

[lavrentiyy]

Дружище, че-то я не въеду...
Можешь объяснить, пожалуйста.

[roplius]

Добавил объяснения в код

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

 If Target.Column > 2 Then Exit Sub ' Uslovije na mestopolozhenije vybranoj jacheiki, pri kotoroi kod ne srabotajet
 If Target.Row < 3 Then Exit Sub ' Uslovije na mestopolozhenije vybranoj jacheiki, pri kotoroi kod ne srabotajet
 If [e1] <> "Filtr vkliucion" Then Exit Sub ' Esli znachenije jacheiki E1 <>"Filtr vkliucion", kod ne srabotaet
 With Worksheets("List2") ' Nachinaem rabotu v liste "List2"
    .[a1] = Target.EntireRow.Cells(1).Value & ", *" ' Jacheike A1 lista "List2" prisvajivajem znachenije jacheiki (iz lista "List1"), kotoraja nachoditsa v odnoi liniji s vybrannoj jacheikoj v pervom stolbce, i k etomu znacheniju v konce prisoediniajem tekst ", *"
    .[a2] = "* " & Target.EntireRow.Cells(2).Value ' Jacheike A2  lista "List2" prisvajivajem znachenije jacheiki (iz lista "List1"), kotoraja nachoditsa v odnoi liniji s vybrannoj jacheikoj vo vtorom stolbce, i k etomu znacheniju v nachale prisoediniajem tekst "* "
    .Range(.[b1].Value).AutoFilter Field:=1, Criteria1:=.[a1], Operator:=xlAnd, Criteria2:=.[a2] ' Zapuskaem filtr v oblasti jacheek, ukazannych v jacheike B1 lista "List2". Kriteriji filtra beriom iz jacheek A1 i A2.
    .Activate ' Aktivirujem list "List2"
 End With
 
    
End Sub

[lavrentiyy]

Мерси боку!
Въехал!
Всех благ.

[lavrentiyy]

Темку пока не закрывайте, мож еще че нибудь спросить по теме надо будет.

[lavrentiyy]

Application-defined or object-defined error
На строчке

.Range(.[b1].Value).AutoFilter Field:=1, Criteria1:=.[a1], Operator:=xlAnd, Criteria2:=.[a2]

Как лечить?

[lavrentiyy]

Все, разобрался.
У меня В2 пустой ячейкой была.
Спасибо!
Ах да, мне б еще резервную копию хотелось бы реализовать...
Такое возможно?