Como Impedir a Digitação de Dados Repetidos no Excel Vba

Existem várias maneiras de impedir a digitação de dados repetidos no Excel usando VBA. Abaixo, apresentamos duas opções:

Opção 1: Usando a validação de dados

1. Selecione a coluna em que deseja impedir a digitação de dados repetidos.
2. Na guia "Dados", clique em "Validação de Dados".
3. Na caixa "Permitir", selecione "Lista".
4. Na caixa "Fonte", digite a seguinte fórmula: =CONCATENATE(UNIQUE(A:A),""), onde "A:A" é a coluna que você selecionou anteriormente.
5. Clique em "OK" para fechar a caixa de diálogo.

Com essa validação de dados, o Excel permitirá que você insira apenas valores únicos na coluna selecionada.

Opção 2: Usando o evento BeforeDoubleClick

1. Abra o Editor do Visual Basic pressionando "Alt + F11".
2. Na janela do editor, localize o nome da planilha em que deseja impedir a digitação de dados repetidos.
3. Clique duas vezes no nome da planilha para abrir seu arquivo de código.
4. Na janela de código, cole o seguinte código:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Long Dim lastRow As Long Dim data As String

If Target.Column = 1 Then 'coluna Adata = Target.ValuelastRow = Cells(Rows.Count, Target.Column).End(xlUp).RowFor i = 1 To lastRow If data = Cells(i, 1).Value And i <> Target.Row Then Cancel = True MsgBox "Este valor já foi inserido na coluna A!", vbCritical, "Dados Repetidos" Exit Sub End IfNext i End If

End Sub

5. Salve o arquivo e feche o Editor do Visual Basic.

Com esse código, o Excel verificará se o valor de uma célula na coluna A já foi inserido anteriormente na mesma coluna. Se sim, a digitação será impedida e uma mensagem de erro será exibida.