Z przedstawionego teraz opisu wygląda, że Tobie nie jest potrzebne kryterium filtrowania, a wynik filtrowania - to znaczy czy wszystkie komórki w wyniku filtrowania są jednakowe, czy są różne. Jeśli jest tak w istocie, to możesz spróbować takiego makra: Sub Wart_zakresu() Dim zakres As Range, rws As Long, wynik Set zakres = Range("A1").CurrentRegion.Columns(1) rws = zakres.Rows.Count - 1 If rws = 0 Then Range("B1") = "" Else Set zakres = zakres.Offset(1, 0).Resize(rws, 1) On Error Resume Next Set zakres = zakres.SpecialCells(xlCellTypeVisible) If Err Then Range("B1") = "": Exit Sub On Error GoTo 0 wynik = zakres.Text If IsNull(wynik) Then Range("B1") = "Różne" Else Range("B1") = wynik End If End If End Sub Makro zwraca pusty tekst, jeśli obszar po filtrze jest pusty. Dopasuj sobie szczegóły tych sytuacji nietypowych. To makro działa niezależnie od użycia filtra, uwzględnia widoczne komórki.
" Filtr " ,, " & lt; ---- tutaj pokaż jakie zostalo wybrane kryterium, jeżeli wybarno więcaj jak jedno kryterium wówczac pokaż " " Różne " " "
" Filtr1 "
" Filtr2 "
" Filtr3 "
" Filtr4 "
" Filtr3 "
" Filtr6 "
" Filtr7 "
" Filtr8 "
" Filtr9 "
" Filtr10 "
,