excel - função personalizada não funciona com filtragem

Question

Eu tenho isso:

EutenhocódigoVBA:

PublicFunctionCONCATENATESPECIAL(rngAsRange)AsStringDimrng1AsRangeCONCATENATESPECIAL=""

   For Each rng1 In rng
        If rng1.Value <> "" Then
        CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & " | "
        End If
   Next rng1

End Function

Eu preciso passar pela coluna e anotar o conteúdo nele separado por "|", que está funcionando perfeitamente.

Meu problema é que ele não funciona com filtragem. Quando eu filtrar algo, ele ainda exibe os mesmos resultados.

depois do filtro

    

Answer 1

Modifique seus critérios:

If (not rng1.EntireRow.Hidden) And (rng1.Value <> "") Then