Encontrar e contar as ocorrências.
Enviado: 13 Abr 2022 às 16:49
Boa tarde!
Solicito a sua, ajuda conforme o anexo.
Grato.
Solicito a sua, ajuda conforme o anexo.
Grato.
Fórum de Dúvidas sobre Excel e Power BI
https://gurudoexcel.com/
Sub LocalizarOcorrencias()
Dim lBusca As Long
Dim Result As Integer
Dim strResult As String, vLinha As String
lBusca = 7 'linha inicial das informações
Result = 0
Do Until Plan1.Cells(lBusca, 1) = "" 'Plan1 é o nome da planilha
If Plan1.Cells(lBusca, "E") = Plan1.Range("B1") And _
Plan1.Cells(lBusca, "G") = Plan1.Range("D1") Then
Result = Result + 1
strResult = Plan1.Cells(lBusca, "A") & " " & Plan1.Cells(lBusca, "B") & "" & _
Plan1.Cells(lBusca, "C") & " " & Plan1.Cells(lBusca, "D")
vLinha = vLinha & " - " & lBusca
End If
lBusca = lBusca + 1
Loop
Plan1.Range("F1") = Result & " ocorrências para " & strResult & " na(s) linha(s) " & vLinha
End Sub
=SEERRO(ÍNDICE(Tabela1[Texto1];AGREGAR(15;6;(LIN(Tabela1)-LIN(Tabela1[#Cabeçalhos]))/((Tabela1[Texto5]=$B$1)*($D$1=Tabela1[Texto7]));LINS(I$14:I14)));"")