Скрытие строк по 2 критериям (из разных столбцов)

Автор MilanAC, 27.12.2011, 17:52

« назад - далее »

MilanAC

Добрый день, подскажите, пожалуйста, как скрыть строки по двум критериям из разных столбцов. Условие для скрытия одного столбца я написал:

Dim m1 As Range
  Set RowsBlank = [D2:D10000]
 
  Application.ScreenUpdating = False
  For Each m1 In RowsBlank
        If m1 < Date - 14 And m1 > "01.01.2000" Then m1.EntireRow.Hidden = True
  Next
 
  Application.ScreenUpdating = True


Хочется в процедуру If Then добавить еще один критерий, но по столцу B - Чтобы также скрывались строки, где непустые значения в ячейках столбца B.
На примере нужно чтобы он отображал актуальные замеры по дате замера (столбец D - его я сделал), а также скрывал строки, где нету даты замера в графе D, а также те строки, где столбце B стоят только имена.

На моем примере, чтобы программа автоматически скрыла 10 строку, где просто вбито имя Петр (т.к. в этой строке нету даты в столбце D).

MilanAC

Спасибо, ответ по этому вопросу дали. Кому интересно - код должен выглядеть так:
Dim m1 As Range
Set RowsBlank = [D2:D10000]
Application.ScreenUpdating = False
For Each m1 In RowsBlank
If m1 = "" Then
If m1.Offset(, -2) <> "" Then m1.EntireRow.Hidden = True
End If
Next
For Each m1 In RowsBlank
If m1 < Date - 14 And m1 > DateValue("01.01.2000") Then m1.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True