Как проверить на заполненность листа после автофильтра?

@Sadma1 · Регистрация: 04.04.2019

Author24 — интернет-сервис помощи студентам

Есть макрос, который открывает файл, фильтрует, и после фильтрации выделяет отфильтрованные строки цветом.
Но проблема в том, что после фильтрации на листе может ничего не оказаться, и если пытаться закрасить, то выдаёт ошибку.
Как можно проверить на заполненность? Или с помощью On Error обойти это?

Visual Basic

1 2	oWorkBook1.sheets(1).range(“A1:J700”).autofilter field.... oWorkBook1.sheets(1).range(“A1:J700”).specialcells(xlCellTypeVisible).interior.color=vbRed

Во второй строке вылазит ошибка
Хотелось бы, чтобы если лист пустой, макрос пропускал этот шаг

Добавлено через 32 минуты
И после закраски макрос копирует закрашенное и вставляет в другую книгу, то есть если пропустить закраску, то и последующие 2 шага нужно тоже пропустить
Error go resume next пробовал, программа после этой строки работает некорректно

@pashulka · 09.04.2019, 19:51

Скажите какой критерий фильтрации

@Sadma1 · 10.04.2019, 11:11 **[ТС]**

pashulka,

Visual Basic

1	AutoFilter Field:=9, criteria1:=“МИО*”, Operator:=xlAnd

Попробовал через

Visual Basic

1 2	If oWorkBook1.sheets(1).Range(“A1:J700”).SpecialCells(xlCellTypeVisible).count > 0 then ‘И через’ .Count<> “”

Проблема будет уже на эту строку, «не найдено ни одной ячейки, удовлетворяющей указанным условиям»
Если перед if then поставить

Visual Basic

1	debug.print(oWorkBook1.sheets(1).Range(“A1:J700”).SpecialCells(xlCellTypeVisible).count)

то на эту строку вылазит ошибка, что «не найдено ни одной ячейки, удовлетворяющей указанным условиям»
У меня это все в цикле, и ошибка вылазит только после какого-то шага, на том же шаге, что и без debug
Я так понял, что .count возвращает nothing если ничего нет, а не 0

@pashulka · 10.04.2019, 11:52

В реальности будет работать и без указания видимых ячеек, т.е.

Visual Basic

Dim oWorkBook1 As Workbook, criteria$
Set oWorkBook1 = ...
criteria = "МИО*"
 
With oWorkBook1.Worksheets(1).Range("A:J")
     If Application.CountIf(.Columns(9), criteria) > 0 Then
        .AutoFilter Field:=9, Criteria1:=criteria
        .Parent.AutoFilter.Range.Interior.Color = vbRed
     End If
End With

или

Visual Basic

Dim oWorkBook1 As Workbook, r As Range, criteria$
Set oWorkBook1 = ...
criteria = "МИО*"
 
With oWorkBook1.Worksheets(1)
     Set r = .Range("A1:J1", Cells(.Rows.Count, "I").End(xlUp))
End With
If Application.CountIf(r.Columns(9), criteria) > 0 Then
   r.AutoFilter Field:=9, Criteria1:=criteria
   r.Interior.Color = vbRed
End If

@Sadma1 · 10.04.2019, 12:29 **[ТС]**

pashulka, дело в том, что он у меня должен потом то, что отфильтровал, копировать и вставить в другую книгу
При копировании тогда будет ошибка

@pashulka · 10.04.2019, 12:50

Sadma1, Во-первых не будет

Visual Basic

1	r.Copy Workbooks.Add.Worksheets(1).Cells(1)

во-вторых, кто Вам мешает добавить ненужное действие, как то .SpecialCells(xlVisible)

@Sadma1 · 10.04.2019, 14:29 **[ТС]**

Решил по-другому, потому что то, что выше не помогало
Просто вставлял в первую ячейку значение
И после того как копировал и вставлял, удалял ее

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	09.04.2019, 19:51	2
	Скажите какой критерий фильтрации 0

@Sadma1 0 / 0 / 0 Регистрация: 04.04.2019 Сообщений: 54
	10.04.2019, 12:29 [ТС]	5
	pashulka, дело в том, что он у меня должен потом то, что отфильтровал, копировать и вставить в другую книгу При копировании тогда будет ошибка 0

@Sadma1 0 / 0 / 0 Регистрация: 04.04.2019 Сообщений: 54
	10.04.2019, 14:29 [ТС]	7
	Решил по-другому, потому что то, что выше не помогало Просто вставлял в первую ячейку значение И после того как копировал и вставлял, удалял ее 0

Как проверить на заполненность листа после автофильтра?

Решение