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:
Tags colors microsoft-excel vba cells