Доброго времени суток, очень нужна ваша помощь.
Имеется файл вот такого типа.
Как видите, в столбике F "№ Скв" три разных повторяющихся значений: 507, 401 и 5. Мне нужно сделать отчеты по каждому № Скв отдельно, убрав два остальных.
Вручную получается так: выделяю столбик F, нажимаю Фильтр, ввожу критерии - Не равно 507 и не равно Пусто (чтобы оставить пустые строки). Дальнейшие действия я уже могу записать в макрос: выделяю (Ctrl+Home, Shift+End, Shift+home), и удаляю. Появляются ошибки типа #ССЫЛКА!, я их благополучно удаляю но суть не в этом.
Мне нужно, чтоб человек вводил в ячейку R4 число, скажем 507, дальше нажимал на кнопку, запускается макрос, макрос фильтрует столбик F по условию: не равно значению ячейки R4 и не равно Пусто. Как это реализовать?
При ручном вводе получается такой код:
Имеется файл вот такого типа.
Как видите, в столбике F "№ Скв" три разных повторяющихся значений: 507, 401 и 5. Мне нужно сделать отчеты по каждому № Скв отдельно, убрав два остальных.
Вручную получается так: выделяю столбик F, нажимаю Фильтр, ввожу критерии - Не равно 507 и не равно Пусто (чтобы оставить пустые строки). Дальнейшие действия я уже могу записать в макрос: выделяю (Ctrl+Home, Shift+End, Shift+home), и удаляю. Появляются ошибки типа #ССЫЛКА!, я их благополучно удаляю но суть не в этом.
Мне нужно, чтоб человек вводил в ячейку R4 число, скажем 507, дальше нажимал на кнопку, запускается макрос, макрос фильтрует столбик F по условию: не равно значению ячейки R4 и не равно Пусто. Как это реализовать?
При ручном вводе получается такой код:
| Код |
|---|
End Sub
Sub Ìàêðîñ12()
'
' Ìàêðîñ12 Ìàêðîñ
'
'
Columns("F:F").Select
Selection.AutoFilter
ActiveSheet.Range("$F$1:$F$521").AutoFilter Field:=1, Criteria1:="<>507" _
, Operator:=xlAnd, Criteria2:="<>"
Range("A9").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
Selection.AutoFilter
Columns("A:P").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$P$521").AutoFilter Field:=16, Criteria1:= _
"=#ССЫЛКА!", Operator:=xlOr, Criteria2:="="
ActiveSheet.Range("$A$1:$P$521").AutoFilter Field:=1, Criteria1:="<>всего*" _
, Operator:=xlAnd
Range("A9").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
Selection.AutoFilter
Range("A9").Select
Cells.Replace What:="+#REF!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="#REF!+", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
|
