Página 1 de 1

Mostrando códigos não-correspondentes

Enviado: 28 Dez 2019 às 21:57
por Domingsp
Na pasta anexada, na coluna C há 5 combinações de 7 letras e na coluna D, combinações de 2 letras. Venho pedir uma ajuda para criar uma macro que mostre somente as combinações de C em que o par dos ultimos caracteres seja DIFERENTE de TODAS as combinações da coluna D.
Na macro que fiz, resulta a combinação ASDEFXX, mas não deveria, porque embora XX seja diferente da maioria das
combinações de D, XX ainda tem uma correspondente na coluna D. O resultado correto para esse exemplo seria nenhum resultado.
Obrigado.

Re: Mostrando códigos não-correspondentes

Enviado: 28 Dez 2019 às 22:47
por osvaldomp
Experimente:
Código: Selecionar todos
Sub VerificaCorrespondências()
 Dim c As Range
  For Each c In Range("C2:C" & Cells(Rows.Count, 3).End(3).Row)
   If Application.CountIf([D:D], Right(c, 2)) = 0 Then Cells(c.Row, 5) = c.Value
  Next c
End Sub

Re: Mostrando códigos não-correspondentes

Enviado: 28 Dez 2019 às 23:14
por Domingsp
Domingsp escreveu:O resultado correto para esse exemplo seria nenhum resultado.
Corrigindo, resultado correto exclui ASDEFXX, só aparecendo os outros.
Muito obrigado, Osvaldomp, parece que atende ao que preciso. Irei testar melhor sua solução e volto para encerrar o topico.