Segue uma solução via UDF, caso você queira experimentar. Funciona com qualquer quantidade de linhas na tabela de dados.
1. instale uma cópia da UDF abaixo em um módulo comum, assim:
- copie a UDF daqui
- abra o seu arquivo Excel
- aperte Alt + F11 para acessar o editor de VBA
- menu Inserir Módulo | cole a UDF na janela em branco que irá se abrir | feche o editor
Código: Selecionar todosFunction ContaOco(p As Range)
Dim LR As Long, FR As Long, k As Long, x As Long
LR = Cells(Rows.Count, 3).End(3).Row
For FR = LR To 3 Step -1
If Cells(FR, 3) = p.Value Or Cells(FR, 4) = p.Value Then
x = x + 1: If x = 8 Then Exit For
End If
Next FR
For k = LR To FR Step -1
If (Cells(k, 3) = p.Value Or Cells(k, 4) = p.Value) And Cells(k, 5) = UCase(Cells(2, Application.Caller.Column)) Then
ContaOco = ContaOco + 1
End If
Next k
End Function
________________________________________________________________________________________________
2. em seguida cole esta fórmula em I3 ~~~>
=contaoco($H3) arraste até K3, arraste I3:K3 até a linha 16 ou até a última linha com Processos na coluna H.
Osvaldo
Quatro coisas que odeio: preguiçosos, políticos, Google planilhas e Outlook
Anexe arquivos diretamente no fórum:
+ Resposta / Adicionar um anexo / Selecione o arquivo
CÉLULAS MESCLADAS PODEM AFETAR FÓRMULAS E MACROS.