Notifications
Clear all

DUPLICIDADE DADOS PLANILHA EXCEL

6 Posts
1 Usuários
0 Reactions
1,415 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou precisando de uma mão em uma questão. Estou tendo dificuldades em uma "Cadastro de clientes".

Preciso de um código que faça a varredura em uma coluna da planilha para verificar se o nome de cliente a ser cadastrado já não existe. Se existir, emite um msgbox, caso contrário registrar.

Preciso de ajuda pessoal
desde agradeço

 
Postado : 21/01/2013 9:07 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu lhe recomendo usar a pesquisa do fórum!!
Outra coisa o pessoal vai precisar saber como é a estrutura de sua rotina para tal.

Ex: Dados Fictícios

Private Sub cmdAdd_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("SuaPlanilha")
     
     'encontrar a primeira linha vazia no banco de dados
    iRow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
     
    If WorksheetFunction.CountIf(ws.Range("A2", ws.Cells(iRow, 1)), Me.txtPart.Value) > 0 Then
        MsgBox "Codigo duplicado encontrado", vbCritical
        Exit Sub
    End If
     
     'verificar se há uma parte do número
    If Trim(Me.txtPart.Value) = "" Then
        Me.txtPart.SetFocus
        MsgBox "Por favor digite o código"
        Exit Sub
    End If
     
     'Copia os dados para a base
    ws.Cells(iRow, 1).Value = Me.txtPart.Value
    ws.Cells(iRow, 2).Value = Me.txtLoc.Value
    ws.Cells(iRow, 3).Value = Me.txtDate.Value
    ws.Cells(iRow, 4).Value = Me.txtQty.Value
     
     'Limpa os dados
    Me.txtPart.Value = ""
    Me.txtLoc.Value = ""
    Me.txtDate.Value = ""
    Me.txtQty.Value = ""
    Me.txtPart.SetFocus
     
End Sub

Outro exemplo alheio

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  
    If Application.WorksheetFunction.CountIf(Worksheets("Plan1").Range("A1:A10"), TextBox1.Text) > 0 Then
        MsgBox ("Código Duplicado!")
        Cancel = True
    End If
     
End Sub
 
Postado : 21/01/2013 9:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Alexandrevba obrigado pela atenção

Entao eu ja pesquisei e isso ta me tomando um tempo precioso nao consigo descobrir uma formula pra isso, parece simples mas nao encontro é uma planilha de dados e em coluna tem nomes de clientes e irei cadastrar outros nomes mas antes queria achar um jeito de pesquisar pra ver se ja existe. vou continuar insistindo se alguem puder ajudar serei muito grato

 
Postado : 21/01/2013 10:44 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Ao memons poste seu arquivo modelo compactado!!

Att

 
Postado : 21/01/2013 10:46 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

alexandrevba

Segue anexo a planilha de dados no qual vou precisar da macro vba

desde ja agradeço pela atenção

 
Postado : 24/01/2013 3:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite
Segue o exemplo solicitado!

att MarkoSoftware

 
Postado : 24/01/2013 4:07 pm