Este fórum está sendo desativado

[Dunguinha]

Olá à todos.
Pesquisei num monte de lugar e só acho código para impedir duplicidade varrendo uma coluna apenas.
A necessidade é fazer a consulta em duas colunas simultaneamente e impedir o cadastro em duplicidade.

Anexo explicação detalhada.

[osvaldomp]

Por Validação de dados não serve ?

Personalizado | =CONT.SES($B$3:$B$100;$B3;$C$3:$C$100;$C3)<2

[Dunguinha]

Puxa, até agradeço, mas vou usar um formulário de cadastro, a lista é grande. Gostaria que ao clicar num botão fosse feito a verificação na palnilha.

[osvaldomp]

Utilize a fórmula que passei, substitua CONT.SES por Application.CountIf e no lugar dos endereços das células com os critérios (B3 e C3) coloque os valores/textos que estão nos Controles do Form.

"... e só acho código para impedir duplicidade varrendo uma coluna apenas"
Ou coloque aqui o código que você encontrou e que "varre" uma coluna apenas ... de repente, aumentando a largura da vassoura já resolve ...

[Dunguinha]

Osvaldomp, seguindo sua linha de raciocínio expandi a procura para a TextBox2 no código, e não é que deu certo!
Deixo no anexo a planilha funcionando como era esperado.

Muito obrigado.

[osvaldomp]

Você adotou o Loop, que é um processo lento, para verificar os registros.
Imagine uma tabela com 5 mil linhas, o Loop deverá fazer 5 mil comparações na coluna A e mais 5 mil na coluna B , até concluir que o registro não existe. Ainda, se houver uma célula vazia no meio da tabela o Loop irá interromper sem verificar toda a tabela.

A função que eu sugeri faz a verificação beeeeem mais rápido.

Código: Selecionar todos

Private Sub CommandButton1_Click()
 If Application.CountIfs(Range("A2:A100"), TextBox1.Text, Range("B2:B100"), TextBox2.Text) > 0 Then
  MsgBox "Já tem"
 Else: MsgBox "Novo Registro"
 End If
 TextBox1 = "": TextBox2 = "": TextBox1.SetFocus
End Sub

[Dunguinha]

Foi o que eu tinha achado e que deu certo, mas você tem razão, já estou mudando para o código que sugeriu.
Mais uma vez muito obrigado, estou aprendendo muito.

[osvaldomp]

E no lugar da linha 100 que eu coloquei de forma arbitrária na função, você pode inserir uma variável que represente a última linha da tabela.