Página 1 de 1

Contagem de sequências entre matrizes

Enviado: 19 Jan 2019 às 13:22
por Gleisom
Olá, pessoal!
Preciso fazer uma verificação linha por linha em uma matriz levando em conta uma dada sequência de códigos. Anexei uma planilha simplificada e nela coloquei mais detalhes dessa problema. Desde já agradeço muito a ajuda de vocês!! Abraço!

Re: Contagem de sequências entre matrizes

Enviado: 19 Jan 2019 às 19:14
por osvaldomp
Veja se atende.

Código: Selecionar todos
Sub ContaConjuntos()
 Dim k As Long, v As Long, x As Long
  If [I2] <> "" Then Range("I2:I" & Cells(Rows.Count, 9).End(3).Row) = ""
  For k = 2 To Cells(Rows.Count, 6).End(3).Row
   For v = 2 To Cells(Rows.Count, 2).End(3).Row
    If Application.CountIf(Cells(v, 2).Resize(, 3), Cells(k, 6)) And _
     Application.CountIf(Cells(v, 2).Resize(, 3), Cells(k, 7)) Then x = x + 1
   Next v
   Cells(k, 9) = x: x = 0
  Next k
End Sub

Re: Contagem de sequências entre matrizes

Enviado: 19 Jan 2019 às 21:26
por Gleisom
Muito obrigado Osvaldo! Perfeito! Que Deus lhe ilumine sempre! Abraço!