Notifications
Clear all

Contar por cores com formatação condicional

1 Posts
1 Usuários
0 Reactions
272 Visualizações
(@cartolla)
Posts: 2
Active Member
Topic starter
 

Alguém por favor, consegue transformar essa Sub (macro) para Function, abaixo?

Eu quero acioná-la assim, já passando o range e o local da cor a ser contada:  =ContarporCor(K3:K17; J20)

Esta Sub conta por uma determinada cor com uma range que contenha Formatação Condicional ativada.

Sub ContarporCor()
     Dim Rng As Range
     Dim CountRange As Range
     Dim ColorRange As Range
     Dim xBackColor As Long
     On Error Resume Next

     Set CountRange = Application.Selection
     Set CountRange = Application.InputBox("Contar Celulas :", xTitleId, CountRange.Address, Type:=8)
     Set ColorRange = Application.InputBox("Contar Celulas(Cor Referencia):", xTitleId, Type:=8)
     Set ColorRange = ColorRange.Range("A1")

     For Each Rng In CountRange
          If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
               xBackColor = xBackColor + 1
          End If
     Next
     MsgBox "Count of Colors is " & xBackColor
End Sub

Muito grato.

 
Postado : 03/05/2024 4:40 pm