O Excel personalizado concatenado com a condição de cor

0

Eu tenho essa função VBA personalizada

Public Function concatenatespecial(rng As Range) As String

Dim rng1 As Range

concatenatespecial = ""

   For Each rng1 In rng
        If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") And (Not rng1.Interior.ColorIndex = -4142) Then
            concatenatespecial = concatenatespecial & rng1.Text & "|"
        End If
   Next rng1

End Function

Ele pega todas as células amarelas e não vazias no intervalo e as concatena com "|".

O problema é que ele funciona apenas se essas células forem coloridas manualmente. Quando é colorido por formatação condicional, não funciona.

Você poderia me ajudar com a solução?

Melhor explicação:

    
por Roman Žydyk 11.05.2017 / 21:39

0 respostas