ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Não inserir dados duplicados

Dúvidas gerais sobre Excel
Celso Silvério
Colaborador
Colaborador
Mensagens: 35
Registrado em: Ter Jun 29, 2010 2:23 pm

Não inserir dados duplicados

Mensagem por Celso Silvério » Seg Jul 30, 2012 9:32 pm

Olá!
Estou precisando de uma macro que impede de inserir dados duplicados a partir da linha 2 da coluna "F" da planilha. Gostaria também que desse uma mensagem que já existe um registro igual. Estou usando um formulário em UserForm com botão. Segue o código que estou usando.

Sub Inserir()
Sheets("B.Dados").Select
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("Plan1")
linha = 2
While Sheets("B.Dados").Cells(linha, 2) <> ""
linha = linha + 1
Wend
Sheets("B.Dados").Cells(linha, 1) = UserForm1.ComboCliente.Text
Sheets("B.Dados").Cells(linha, 2) = CDate(UserForm1.TextBoxData)
Sheets("B.Dados").Cells(linha, 4) = UserForm1.ComboMotorista.Text
Sheets("B.Dados").Cells(linha, 5) = UserForm1.ComboEntregador.Text
Sheets("B.Dados").Cells(linha, 6) = CDbl(UserForm1.TextBoxNVenda)
Sheets("B.Dados").Cells(linha, 7) = UserForm1.ComboEntrega.Text
Sheets("B.Dados").Cells(linha, 8) = UserForm1.ComboUsuário.Text
Sheets("B.Dados").Cells(linha, 11) = UserForm1.TextBoxSituação.Text
End With
Application.ScreenUpdating = True
Sheets("Plan1").Select
MsgBox "Dados cadastrados com sucesso.", , "Confirmação"
End Sub

Abraços,

Celso



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Vega
Colaborador
Colaborador
Mensagens: 26
Registrado em: Sáb Ago 18, 2012 7:46 pm

Re: Não inserir dados duplicados

Mensagem por Vega » Sáb Ago 18, 2012 8:22 pm

Celso,

Você pode usar a função CountIf.

Por exemplo

Código: Selecionar todos

Private Sub CommandButton1_Click()
    
    If WorksheetFunction.CountIf(Range("A1:A20"), TextBox1.Value) > 0 And TextBox1 <> "" Then
        MsgBox "Esse valor já existe"
    End If

End Sub



vandersoncosta
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Jun 11, 2020 5:28 pm

Re: Não inserir dados duplicados

Mensagem por vandersoncosta » Sex Jul 03, 2020 5:43 pm

como usar esse bloqueio em uma determinada planilha?



vandersoncosta
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Jun 11, 2020 5:28 pm

Re: Não inserir dados duplicados

Mensagem por vandersoncosta » Sex Jul 03, 2020 5:43 pm

pois a pastas utiliza varias planilhas



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder