Есть экселевский лист:
A | B | C | D ...
<шапка таблицы>
номера | Значение№ | пусто | Фамилии | ...
Есть такой говнокод макроса:
Sub Id_obj()
Sheets("Лист1").Select
Application.ScreenUpdating = False
Dim Balon As Integer
Balon = Sheets("Лист1").Range("CF6")
Select Case Balon
Case 1
Selection.AutoFilter Field:=1, Criteria1:="Значение1"
Selection.AutoFilter Field:=3, Criteria1:="<>"
Case 2
Selection.AutoFilter Field:=1, Criteria1:="Значение2"
Selection.AutoFilter Field:=3, Criteria1:="<>"
...
Совершенно не понимаю как и почему оно работает в одном файле (скрывает строчки с пустыми значениями в столбце D и оставляет только с указанным в CF6 значением в столбце B) и не работает (скрывает все строки) в другом таком же (что поломалось).
Что конкретно я не понимаю:
1) Какие ячейки выбираются Selection.AutoFilter?
2) как я панимаю всё остальное растёт из первого :)