Este fórum está sendo desativado

[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!

[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

[Gleisom]

Muito obrigado Osvaldo! Perfeito! Que Deus lhe ilumine sempre! Abraço!