Здравствуйте!
Неоднократно копировал макрос VBA (фильтр) в другие файлы с изменением ввода даных и все работало но не сегодня. Скопировал в талицу и он не работает, а именно:
1) При вводе данных в ячейку А2 ОПТ/Розница - не фильтрует
2) При вводе данних в ячейку C2 Клиент - неверно фильтрует (скрывает строки с 4 по 13)
3) При вводе данних в ячейку D2 Менеджер -неверно фильтрует (скрывает строки с 4 по 13)
4) При внесении данных в колонки В4-В59 и подальшей фильтрации в В2 - не фильтрует
Скажите куда смотреть.
Неоднократно копировал макрос VBA (фильтр) в другие файлы с изменением ввода даных и все работало но не сегодня. Скопировал в талицу и он не работает, а именно:
1) При вводе данных в ячейку А2 ОПТ/Розница - не фильтрует
2) При вводе данних в ячейку C2 Клиент - неверно фильтрует (скрывает строки с 4 по 13)
3) При вводе данних в ячейку D2 Менеджер -неверно фильтрует (скрывает строки с 4 по 13)
4) При внесении данных в колонки В4-В59 и подальшей фильтрации в В2 - не фильтрует
Скажите куда смотреть.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E2")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
Exit Sub
End If
End Sub
|
