Условие на диапазон ячеек после автофильтра

[max334]

Здравствуйте всем !
Столкнулся с проблемой как прописать условие для видимых ячеек после автофильтра в диапазонах 7 столбца

Как задать требуемые If для отфильтрованных ячеек не знаю (тк условие только для видимых ячеек) ?
If "Все Значения отфильтрованных ячеек в диапазоне Rng1 одинаковы" And "Все Значения отфильтрованных ячеек в диапазоне Rng1 = "Test"" 'фильтр по полному слову Test
If "Значения отфильтрованных ячеек в диапазоне Rng1 неодинаковы-могут несовпадать" 'здесь фильтр по части слова могут не совпадать целые слова

Dim Rng1 As Range 'определяем диапазоны Rng1 для условий для видимых ячеек после автофильтра
With ThisWorkbook.ActiveSheet
        Set Rng1 = AutoFilter.Range.Columns(7).SpecialCells(12) 'устанавливаем Rng1 для фильтрованного диапазона в колонке 7
If ActiveSheet.AutoFilter.Filters(7).On = True  Then   'если автофильтр в 7 столбце включен
If "Все Значения отфильтрованных ячеек в диапазоне Rng1 одинаковы" And "Все Значения отфильтрованных ячеек в диапазоне Rng1 = "Test" Then
'Условие1
End If
If "Значения отфильтрованных ячеек в диапазоне Rng1 неодинаковы-могут несовпадать"  Then
'Условие2
End If
Else
Exit Sub 
End If
End With

[IgorGO]

если сможете сформулировать что Вам нужно - возможно, найдутся люди, которые смогут Вам помочь это сделать

[max334]

я же сформулировал вопрос как сделать IF в коде - только это как эти If прописать
If "Все Значения отфильтрованных ячеек в диапазоне Rng1 одинаковы" And "Все Значения отфильтрованных ячеек в диапазоне Rng1 = "Test"" 'здесь сработал фильтр по полному слову Test
If "Значения отфильтрованных ячеек в диапазоне Rng1 неодинаковы-могут несовпадать" 'здесь сработал фильтр по части слова могут не совпадать целые слова

те 2 If условия
If "Все Значения отфильтрованных ячеек в диапазоне Rng1 одинаковы" And "Все Значения отфильтрованных ячеек в диапазоне Rng1 = "Test"
If "Значения отфильтрованных ячеек в диапазоне Rng1 неодинаковы-могут несовпадать"

[IgorGO]

Rng1 (в общем случае) - это будет диапазон несмежных ячеек
к нему нельзя применить if worksheetfunction.cointif(Rng1, "Test") = Rng1.count (((

зато можно применить

if ВсеВДиапазонеРавныТест(Rng1) Then ...

где

Function ВсеВДиапазонеРавныТест(rg as range) as boolean
  dim c as range
  for each c in rg
    if c <> "Test" then exit function
  next
  ВсеВДиапазонеРавныТест = true
end function

и аналогично для второго условия

Function ВсеРавны( rg as range)
...
if c <> rg.cells(1) then exit function
...

[max334]

Благодарю IgorGO - очень помогли !